- Любовные романы
- Фантастика и фэнтези
- Ненаучная фантастика
- Ироническое фэнтези
- Научная Фантастика
- Фэнтези
- Ужасы и Мистика
- Боевая фантастика
- Альтернативная история
- Космическая фантастика
- Попаданцы
- Юмористическая фантастика
- Героическая фантастика
- Детективная фантастика
- Социально-психологическая
- Боевое фэнтези
- Русское фэнтези
- Киберпанк
- Романтическая фантастика
- Городская фантастика
- Технофэнтези
- Мистика
- Разная фантастика
- Иностранное фэнтези
- Историческое фэнтези
- LitRPG
- Эпическая фантастика
- Зарубежная фантастика
- Городское фентези
- Космоопера
- Разное фэнтези
- Книги магов
- Любовное фэнтези
- Постапокалипсис
- Бизнес
- Историческая фантастика
- Социально-философская фантастика
- Сказочная фантастика
- Стимпанк
- Романтическое фэнтези
- Ироническая фантастика
- Детективы и Триллеры
- Проза
- Юмор
- Феерия
- Новелла
- Русская классическая проза
- Современная проза
- Повести
- Контркультура
- Русская современная проза
- Историческая проза
- Проза
- Классическая проза
- Советская классическая проза
- О войне
- Зарубежная современная проза
- Рассказы
- Зарубежная классика
- Очерки
- Антисоветская литература
- Магический реализм
- Разное
- Сентиментальная проза
- Афоризмы
- Эссе
- Эпистолярная проза
- Семейный роман/Семейная сага
- Поэзия, Драматургия
- Приключения
- Детская литература
- Загадки
- Книга-игра
- Детская проза
- Детские приключения
- Сказка
- Прочая детская литература
- Детская фантастика
- Детские стихи
- Детская образовательная литература
- Детские остросюжетные
- Учебная литература
- Зарубежные детские книги
- Детский фольклор
- Буквари
- Книги для подростков
- Школьные учебники
- Внеклассное чтение
- Книги для дошкольников
- Детская познавательная и развивающая литература
- Детские детективы
- Домоводство, Дом и семья
- Юмор
- Документальные книги
- Бизнес
- Работа с клиентами
- Тайм-менеджмент
- Кадровый менеджмент
- Экономика
- Менеджмент и кадры
- Управление, подбор персонала
- О бизнесе популярно
- Интернет-бизнес
- Личные финансы
- Делопроизводство, офис
- Маркетинг, PR, реклама
- Поиск работы
- Бизнес
- Банковское дело
- Малый бизнес
- Ценные бумаги и инвестиции
- Краткое содержание
- Бухучет и аудит
- Ораторское искусство / риторика
- Корпоративная культура, бизнес
- Финансы
- Государственное и муниципальное управление
- Менеджмент
- Зарубежная деловая литература
- Продажи
- Переговоры
- Личная эффективность
- Торговля
- Научные и научно-популярные книги
- Биофизика
- География
- Экология
- Биохимия
- Рефераты
- Культурология
- Техническая литература
- История
- Психология
- Медицина
- Прочая научная литература
- Юриспруденция
- Биология
- Политика
- Литературоведение
- Религиоведение
- Научпоп
- Психология, личное
- Математика
- Психотерапия
- Социология
- Воспитание детей, педагогика
- Языкознание
- Беременность, ожидание детей
- Транспорт, военная техника
- Детская психология
- Науки: разное
- Педагогика
- Зарубежная психология
- Иностранные языки
- Филология
- Радиотехника
- Деловая литература
- Физика
- Альтернативная медицина
- Химия
- Государство и право
- Обществознание
- Образовательная литература
- Учебники
- Зоология
- Архитектура
- Науки о космосе
- Ботаника
- Астрология
- Ветеринария
- История Европы
- География
- Зарубежная публицистика
- О животных
- Шпаргалки
- Разная литература
- Зарубежная литература о культуре и искусстве
- Пословицы, поговорки
- Боевые искусства
- Прочее
- Периодические издания
- Фанфик
- Военное
- Цитаты из афоризмов
- Гиды, путеводители
- Литература 19 века
- Зарубежная образовательная литература
- Военная история
- Кино
- Современная литература
- Военная техника, оружие
- Культура и искусство
- Музыка, музыканты
- Газеты и журналы
- Современная зарубежная литература
- Визуальные искусства
- Отраслевые издания
- Шахматы
- Недвижимость
- Великолепные истории
- Музыка, танцы
- Авто и ПДД
- Изобразительное искусство, фотография
- Истории из жизни
- Готические новеллы
- Начинающие авторы
- Спецслужбы
- Подростковая литература
- Зарубежная прикладная литература
- Религия и духовность
- Старинная литература
- Справочная литература
- Компьютеры и Интернет
- Блог
Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт
Шрифт:
Интервал:
Закладка:
������ ��, ������� � Word 97, ����� ���������� ��������� � ������� HTML, � ��� ������ ��������� ������������ ������ � ������ ��������� ����� (���.�5.2), �� ��������� ���, ��������� � ��������� ������� ���������
���.�5.2. ��� ������ ���� ������? ������� ������.
�������� "HKEY_LOCAL_ MACHINESoftwareMicrosoftShared ToolsText Converter s Expor tHTMLOptionsShow EncodingDialog" ��� "No". ���������� ���� �������� ������� ����� � ���������� � ������� �������
"System.PrivateProfileString("", "HKEY_LOCAL_MACHINESoftwareMicrosoftShared ToolsText ConvertersExportHTMLOptions", "ShowEncodingDialog") = "No""
������ �� ������� �������� ��� ����� ��������� �� VBA �� ��������� �������, � ����� ������������ ��� ������ � �� �����������: � ���������, �� ������ www.passwords.ru ���� ��������� AVPR, ����������� ������������ ������� ���� ������. �� ���������� ������ ������� ������ � �����������, � ������� � ����������. � ���������, ���������� ������ �������� ������ � �������, ���������� � Word � Excel �� Microsoft Office 97.
������� �������� ������ ���������, ���������� � �������, ��������� � �� ������ ������� "Application.ScreenUpdating = False", � � �� ����� � ������� "Application.ScreenUpdating = True", ���� ������ � �������� ������ ��������� �� ��������� ���������� �������� ������������ ���������. ��� ������� ��������� ������� �� ������� ����� � ���� �� ���������� ���������� ������ � ����������� ���������. ��� ����, ����� ��� �� �������� ����� ����� ���������� ���������� ������, ����������� ������� "Application.ScreenRefresh".
����� ��������� �� ������������ ������������ ������, ����� �������� ����, ����� ������������ ���������� ������� VBA � ���������� ���� "�������� �����", "�������� ���������" � ��. ��� ���������� �������� Dialogs("�������� �������"). Show (���������� ������ � ��������� ��������������� ��� ��������), Dialogs("�������� �������").Display (������ ���������� ������ � ��������� �������� � ���������� ��������� ���������, �� �� ��������� ������� �������� � ������ �� ��������: ����� ������� ��� ������������� ���������� ���������� ���� � ����� �����), Dialogs("�������� �������").Execute (������ �� ���������� �� ������, �� ��������� ��� �� ���������, ������� ���� ������� ����� � ������� ������� With Dialogs ("�������� �������")� End With). ��� ������ ������ ��������� �������� �������� "Dialogs(", � ��� ����� ����� �� ������. � ���������, �������� ���������� �������� ��� � ������� � �������� ������ ����������� ���������� ������, ���� ������ ��������� ���������� ������� ������� � ������� ����.
� Microsoft Excel ������ ���������� �������� ���, ������ ���������� �� ������ ���� �������� � ���������� ������ ��� �� �����. ��� ����� ������ ������� "Application.GetOpenFilename" � "Application.GetSaveAsFilename". � ���������� ���������� ������� "file = Application.GetOpenFilename" ����� ���������� ���� �������� �����, � ����� ������ ��� ����� ���������� � ���������� (����� � "file"). ������� �� "rez = Application.GetSaveAsFilename" ��������� ���� ���������� �����, � ���������� �� (����� � rez) ����� �������� True � ���� ���������� �������, � False � ���� ���. ��� ������� ��������� �������� ���������� (��������, �������� ��������� ���� � ������).
������ ��������� ������������� ������� �� ������� �����-���� ���������� ����, �� ���, ����� ����� ����� ����� �� ��������� �� "�������", ������������� ����� ������ ���� Word. � �������� ��� �� ������: ���, ������� "Dialogs(wdDialogEditFind).Show" ������������� �������� ���� ������, �� ��� ���� � ������ ����� � ���� ���������, �������� � ������ ���, �� ������������ ��������� � ����������������� ������.
��� �� ����� ������� �� ������� ������ ���� ���, ����� ��� �������� ����-�-���� ��� ��, ��� � "�������", ����� � ��� ����� ������� ������������ ��������� � VBA ������� SendKeys, ������� �������� ��������� ���� ������� ������ � ��� ���� �� ��� ���� ������ �� ����������. ��������� �� ���� ������� �� ������ ��������� � ������� �� VBA, � ������������ �� ��� ������ ����������� ���� �����, � �������, ���:
Sub prog()
SendKeys "^f"
End Sub
�����������, ��� ���������� ������ Ctrl+f �������� ���� "�����", ���, �������, ��������������� �� ���������. ������ ����� �������������� ������ � � �������.
���� �� ����������� ������� "SendKeys", �� ��������� �� ���� ����� ����� ���� ��������� ��� ��, ��� ��� ������ ������. ������ �������, ��� ���� ������������ ������������� ���������� ���� � ������ ���������� ������, �� ���� ��������� ������ �������� �����������.
�������� ��������� ������ � ���������� ���� � Word ���������� ��� ��������� ����� ��������� ������ ������ � �������� � ���� ����� � ���������� ���� ������. � �������, ������� "���������� ���� � ����� �����" ������������ ��� �������� �������� ��������� ��������� �� ������ "�����������" ��� ��� ����� ������� � ���������� ������� � OfficeXP.
������� ����� ���� ����� ������ ���������� � ����� ���� ��������� ��� ������� ������ (���, �������, � ������� �� ������������). ��� ����� ������� � ���� ������� ��� � ��������� ������ ��������� �������
CommandBars(�).Controls.Add ����:=�
��� "�" � ����� ������ (����� ������, ������ �������� �� ��� � ������� ������� "MsgBox CommandBars(�����).Name" � �������, ����� ����� ����� ������ ������������ � ������ ���������), � "�" � ���� �� ��������: "msoControlEdit", "msoControlDropdown", "msoControlComboBox", ��������� �������������� ���� ����� ������, ���������� ���� � ���������� ���� � ������������ ����� ������.
��������� ���������� ������, ��������, � �������, � ��� �����, ����� ������������ ��������� ������ � �������� ������������. ���, ����� ��������� �����-���� ����� � ���� �����, ������� ������������ �������
CommandBars(�).Controls(�).Text = "����� � ���� �����"
��� "�" � ����� ������, "�" � ����� �� ����� ����� ������� ������� ���� ����� ������ ���� ������. ����� ������� ����� ������������ ��� �������� ��� ����������� ������ ������������ ����������. ����� ��� �� � �������� "a=CommandBars(�).Controls(�).Text" ����� ������� ���������� �� ������� ���� � ������������ �� � ������ ���������. ������� ���� ����������� ������� �� ������������� ������� ������

