- Любовные романы
- Фантастика и фэнтези
- Ненаучная фантастика
- Ироническое фэнтези
- Научная Фантастика
- Фэнтези
- Ужасы и Мистика
- Боевая фантастика
- Альтернативная история
- Космическая фантастика
- Попаданцы
- Юмористическая фантастика
- Героическая фантастика
- Детективная фантастика
- Социально-психологическая
- Боевое фэнтези
- Русское фэнтези
- Киберпанк
- Романтическая фантастика
- Городская фантастика
- Технофэнтези
- Мистика
- Разная фантастика
- Иностранное фэнтези
- Историческое фэнтези
- LitRPG
- Эпическая фантастика
- Зарубежная фантастика
- Городское фентези
- Космоопера
- Разное фэнтези
- Книги магов
- Любовное фэнтези
- Постапокалипсис
- Бизнес
- Историческая фантастика
- Социально-философская фантастика
- Сказочная фантастика
- Стимпанк
- Романтическое фэнтези
- Ироническая фантастика
- Детективы и Триллеры
- Проза
- Юмор
- Феерия
- Новелла
- Русская классическая проза
- Современная проза
- Повести
- Контркультура
- Русская современная проза
- Историческая проза
- Проза
- Классическая проза
- Советская классическая проза
- О войне
- Зарубежная современная проза
- Рассказы
- Зарубежная классика
- Очерки
- Антисоветская литература
- Магический реализм
- Разное
- Сентиментальная проза
- Афоризмы
- Эссе
- Эпистолярная проза
- Семейный роман/Семейная сага
- Поэзия, Драматургия
- Приключения
- Детская литература
- Загадки
- Книга-игра
- Детская проза
- Детские приключения
- Сказка
- Прочая детская литература
- Детская фантастика
- Детские стихи
- Детская образовательная литература
- Детские остросюжетные
- Учебная литература
- Зарубежные детские книги
- Детский фольклор
- Буквари
- Книги для подростков
- Школьные учебники
- Внеклассное чтение
- Книги для дошкольников
- Детская познавательная и развивающая литература
- Детские детективы
- Домоводство, Дом и семья
- Юмор
- Документальные книги
- Бизнес
- Работа с клиентами
- Тайм-менеджмент
- Кадровый менеджмент
- Экономика
- Менеджмент и кадры
- Управление, подбор персонала
- О бизнесе популярно
- Интернет-бизнес
- Личные финансы
- Делопроизводство, офис
- Маркетинг, PR, реклама
- Поиск работы
- Бизнес
- Банковское дело
- Малый бизнес
- Ценные бумаги и инвестиции
- Краткое содержание
- Бухучет и аудит
- Ораторское искусство / риторика
- Корпоративная культура, бизнес
- Финансы
- Государственное и муниципальное управление
- Менеджмент
- Зарубежная деловая литература
- Продажи
- Переговоры
- Личная эффективность
- Торговля
- Научные и научно-популярные книги
- Биофизика
- География
- Экология
- Биохимия
- Рефераты
- Культурология
- Техническая литература
- История
- Психология
- Медицина
- Прочая научная литература
- Юриспруденция
- Биология
- Политика
- Литературоведение
- Религиоведение
- Научпоп
- Психология, личное
- Математика
- Психотерапия
- Социология
- Воспитание детей, педагогика
- Языкознание
- Беременность, ожидание детей
- Транспорт, военная техника
- Детская психология
- Науки: разное
- Педагогика
- Зарубежная психология
- Иностранные языки
- Филология
- Радиотехника
- Деловая литература
- Физика
- Альтернативная медицина
- Химия
- Государство и право
- Обществознание
- Образовательная литература
- Учебники
- Зоология
- Архитектура
- Науки о космосе
- Ботаника
- Астрология
- Ветеринария
- История Европы
- География
- Зарубежная публицистика
- О животных
- Шпаргалки
- Разная литература
- Зарубежная литература о культуре и искусстве
- Пословицы, поговорки
- Боевые искусства
- Прочее
- Периодические издания
- Фанфик
- Военное
- Цитаты из афоризмов
- Гиды, путеводители
- Литература 19 века
- Зарубежная образовательная литература
- Военная история
- Кино
- Современная литература
- Военная техника, оружие
- Культура и искусство
- Музыка, музыканты
- Газеты и журналы
- Современная зарубежная литература
- Визуальные искусства
- Отраслевые издания
- Шахматы
- Недвижимость
- Великолепные истории
- Музыка, танцы
- Авто и ПДД
- Изобразительное искусство, фотография
- Истории из жизни
- Готические новеллы
- Начинающие авторы
- Спецслужбы
- Подростковая литература
- Зарубежная прикладная литература
- Религия и духовность
- Старинная литература
- Справочная литература
- Компьютеры и Интернет
- Блог
Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт
Шрифт:
Интервал:
Закладка:
����������� ��������� ����� ��������� � ��������� ������� Windows. ��� ����� ������ ������� "SaveSetting", � ������� ������� ����� ��������� � ��������� ������ ������ ��� �����. ��� ����� ������ "SaveSetting "��� ����������", "��� �������", "����", "��������"". ��� ����������, ��� ������� � ���� � ��������� �����, � ������� ����������� ��������. �������� �������� �� ������� ����� �������� "GetSetting" � ����������� "GetSetting "��� ����������","��� �������", "����", "�� ��������, ������� ������� �������, ���� ������ �����, ��� ��������� � ���������� ���������, � ������� ���"", � ������� � �������� "DeleteSetting "��� ����������","��� �������", "����"". ��������:
SaveSetting "�������", "������1", "��� �����", "C:MyPapka" papka = GetSetting "�������", "������1", "��� �����", "C:Docs"
���������� ������ ���� ������������� � ������� ������� � ������ ����� ����� ��������:
ReDim shrifti(FontNames.Count) As String
For r = 1 To FontNames.Count
shrifti(r) = FontNames(r)
Next r
WordBasic.SortArray shrifti()
(� ������ "shrifti()" �������� � ���������� ������� � ������� ���������� ������ ���� ���� ������������� � ������� �������. ������� "WordBasic.SortArray" ��������� ��� �� ��������.)
��������� "If Selection. Type = wdSelectionIP Then�" ����������, ������ ���� � ��������� �� ������� �������� ������.
������ �� ������ ������� �����-������ ����������, ������ ��� ������ ���������, � ��������� �����, �� ����� ������������������ � ��������� ������ � �������� ����� ���� "open", "write" � ��. ������ ���������� ���� � Word ��� ��������� � ������� ������� "Documents. Open�" � ������ � ���� �������� ���������� ������ ������: "Selection.Text = "��� �����"".
������������ �������������� ��������, ������� � ������ ����� ��������, ��� "Application" � "System" (��� ����� ���������� ������� �������� ������� � ��������� ����� ���� �����,�� ������ ��������� ����������� ����������� ���). ����� ��� ����� ����� ������ ������ ���������� � ��������, ����� �������� ������� � ��������� �������� ������ � ������ ���� Word, ���������� � ����� ������ ������ Office, ����� ������ ������ �� ������������� ����� ������� � ������ ������.
��� ������� ��������� ����
Set MyData = New DataObject
MyData.SetText "��� �����"
MyData.PutlnClipboard
����� ��������� ����� � ����� ������, �� ��������� �������� ��������.
��� ������� ������� "Options.DefaultFilePath("��������� �������� �����")" ����� �������� ���� � ����� �����, ������������� � ���������� ���� Word "������" � "���������" � "������������". ��� ��������� ����������� � ������� VBA �� ����� "DefaultFilePath", � �� �� �������� ����� ����� ����������, �������� �������� ��������� � �����������.
������ � ������ �� ��������� ����� ���������� �������� Cancel � True, �� ������� ������ Esc ����� ������������ ����� ���� �� ���� ��������.
������ �� ������ ����������� ��� ����� ��������, ������� �������� ������� � ��������� � ����� ��������������� ������ Word[12], �� ������ ������������� ��������� ������������ ���������, ����� ������� �� ����������� � ��� ����� ������� ����� ��������. VBA ��������� �������������� ����� ������� ��� ������������ Microsoft Word � ��� ����� ���������� ����������� �������
Addins.Add("������ ��� �������, ������� ���� � ���� � ����������").Installed = True
��� ������� ������������ ������� ����������� ������� � ��������� ����� ���� Word "������ � ������� � ����������". ������ ���� ��� ����� ��������� ����� �� ����� ������������ ����������� ������� � ����� ��������������� ������, �� ����� ���������� ������ ���������� ����, ��� ��� ����� ����������� Word ������ ���������������� ���� ������ ��� ��������� ��� ����������� (����� ����������� �� �������� � ���������� ���� "������-������� � ����������", �� �� ����� ������� ��� �����������). �� ��� ������ ���� ������, � ���� � ���� ������ ������� ������� ����������� �������, �� Word ����� �������� ���������, ��� ������ ������� � ����� ������������ ���, ��� ������� ������.
������������� �������� �������� �����, ��������, � ������� ��������� �����������,�� ���������� �� ����� ������� ����������� ������� "FileCopy":
�="��� ������� � ����� ������������ � ������ ��������� ����"
On Error Resume Next
Do
If Addins(a).Installed Then Exit Do
Addins(a).Installed = True
Loop[13]
��� ������������� ������� ����������� ������� �� ����� ���������� � �� � ����� ��������������� ������, �� ��� �� �������� ������������ ������ ����� ������������.
����� �������� ������� ��� �������� Word ����� ������������ ����� �� ���:
�="��� ������� � ����� ������������ � ��������� ����"
On Error Resume Next
Do
If Not Addins(a).Installed Then Exit Do
Addins(a).Installed = False
Loop
Addins (a).Delete
Kill (a)
������� "Kill" ��������� �������� �����.
��������� "On Error Resume Next", ������������� � ����� ��������������� ���������� ���� � ��� ���������� ������. � ������ ������������� ������ � ���� ����� ���� (������, ��������� � ���������� � ��������������� �������) �� ��������� ���������� ��������� � �������, ��������� �� ��������� ������. ���������� ������ ����� ����� ����� ��� "On Error GoTo �����", � ����� ��� ������ � ���� ����� ���� ���������� ������� �

