- Любовные романы
- Фантастика и фэнтези
- Ненаучная фантастика
- Ироническое фэнтези
- Научная Фантастика
- Фэнтези
- Ужасы и Мистика
- Боевая фантастика
- Альтернативная история
- Космическая фантастика
- Попаданцы
- Юмористическая фантастика
- Героическая фантастика
- Детективная фантастика
- Социально-психологическая
- Боевое фэнтези
- Русское фэнтези
- Киберпанк
- Романтическая фантастика
- Городская фантастика
- Технофэнтези
- Мистика
- Разная фантастика
- Иностранное фэнтези
- Историческое фэнтези
- LitRPG
- Эпическая фантастика
- Зарубежная фантастика
- Городское фентези
- Космоопера
- Разное фэнтези
- Книги магов
- Любовное фэнтези
- Постапокалипсис
- Бизнес
- Историческая фантастика
- Социально-философская фантастика
- Сказочная фантастика
- Стимпанк
- Романтическое фэнтези
- Ироническая фантастика
- Детективы и Триллеры
- Проза
- Юмор
- Феерия
- Новелла
- Русская классическая проза
- Современная проза
- Повести
- Контркультура
- Русская современная проза
- Историческая проза
- Проза
- Классическая проза
- Советская классическая проза
- О войне
- Зарубежная современная проза
- Рассказы
- Зарубежная классика
- Очерки
- Антисоветская литература
- Магический реализм
- Разное
- Сентиментальная проза
- Афоризмы
- Эссе
- Эпистолярная проза
- Семейный роман/Семейная сага
- Поэзия, Драматургия
- Приключения
- Детская литература
- Загадки
- Книга-игра
- Детская проза
- Детские приключения
- Сказка
- Прочая детская литература
- Детская фантастика
- Детские стихи
- Детская образовательная литература
- Детские остросюжетные
- Учебная литература
- Зарубежные детские книги
- Детский фольклор
- Буквари
- Книги для подростков
- Школьные учебники
- Внеклассное чтение
- Книги для дошкольников
- Детская познавательная и развивающая литература
- Детские детективы
- Домоводство, Дом и семья
- Юмор
- Документальные книги
- Бизнес
- Работа с клиентами
- Тайм-менеджмент
- Кадровый менеджмент
- Экономика
- Менеджмент и кадры
- Управление, подбор персонала
- О бизнесе популярно
- Интернет-бизнес
- Личные финансы
- Делопроизводство, офис
- Маркетинг, PR, реклама
- Поиск работы
- Бизнес
- Банковское дело
- Малый бизнес
- Ценные бумаги и инвестиции
- Краткое содержание
- Бухучет и аудит
- Ораторское искусство / риторика
- Корпоративная культура, бизнес
- Финансы
- Государственное и муниципальное управление
- Менеджмент
- Зарубежная деловая литература
- Продажи
- Переговоры
- Личная эффективность
- Торговля
- Научные и научно-популярные книги
- Биофизика
- География
- Экология
- Биохимия
- Рефераты
- Культурология
- Техническая литература
- История
- Психология
- Медицина
- Прочая научная литература
- Юриспруденция
- Биология
- Политика
- Литературоведение
- Религиоведение
- Научпоп
- Психология, личное
- Математика
- Психотерапия
- Социология
- Воспитание детей, педагогика
- Языкознание
- Беременность, ожидание детей
- Транспорт, военная техника
- Детская психология
- Науки: разное
- Педагогика
- Зарубежная психология
- Иностранные языки
- Филология
- Радиотехника
- Деловая литература
- Физика
- Альтернативная медицина
- Химия
- Государство и право
- Обществознание
- Образовательная литература
- Учебники
- Зоология
- Архитектура
- Науки о космосе
- Ботаника
- Астрология
- Ветеринария
- История Европы
- География
- Зарубежная публицистика
- О животных
- Шпаргалки
- Разная литература
- Зарубежная литература о культуре и искусстве
- Пословицы, поговорки
- Боевые искусства
- Прочее
- Периодические издания
- Фанфик
- Военное
- Цитаты из афоризмов
- Гиды, путеводители
- Литература 19 века
- Зарубежная образовательная литература
- Военная история
- Кино
- Современная литература
- Военная техника, оружие
- Культура и искусство
- Музыка, музыканты
- Газеты и журналы
- Современная зарубежная литература
- Визуальные искусства
- Отраслевые издания
- Шахматы
- Недвижимость
- Великолепные истории
- Музыка, танцы
- Авто и ПДД
- Изобразительное искусство, фотография
- Истории из жизни
- Готические новеллы
- Начинающие авторы
- Спецслужбы
- Подростковая литература
- Зарубежная прикладная литература
- Религия и духовность
- Старинная литература
- Справочная литература
- Компьютеры и Интернет
- Блог
Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт
Шрифт:
Интервал:
Закладка:
� VBA ��� ������� ����� ��������� ���:
imyadoc = WordBasic.[FileNameInfo$](ActiveDocument.Name, 4)
��� ���������� ������ ��� ��������� ��� ���������� � ����.
������ ������� ������ ���������� ��� ��������� ���������� � ������������, ���������� �� �� ���� �������� � ��������, ".html". � �� ����� ��� � ����� ������� � ������� ������� "Len", "Mid", "Right" �������� �� ������ �������� ��������� ���� ��� ��������� ����� ��������� ��� ����������, ��� ������� �������� �������� ��� ����� ��������.
������ ��� ������ ������ � VBA ��� �� ����� ���������, ��� ��� ������ � ���, � ��� ����� � �� ����������� ���������� ����� ������ ���, ��� ������ ���� ���� � WordBasic. ������� � ����� ��������� ����� �������������� ���������� ������� � "imyadoc = Left(ActiveDocument.Name, Len(ActiveDocument.Name) � 4) ".
������ ������, ������ ������ ����� �������� ��������������� ������� ��������� WordBasic, ������� �������� � ��� �� ���������� ������. � ���������, � ������� �� �������� �� ����������, ������, ���� �� ����� ���������� ����������� ����� ��� ������ Word, �� �� ������ ������ � ����� �������� � ������� ���������� ������.
* * *
����, ������� ����� ��������� "ActiveDocument.SaveAs" ������ ��������� ���:
ActiveDocument.SaveAs FileName: = Left(ActiveDocument.Name, Len(ActiveDocument.Name) � 4), FileFormat:=wdFormatRTF, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= False
��� ������ ����� ������, ���� ��� �� �����������:
ActiveDocument.SaveAs FileName: = Left(ActiveDocument.Name,
Len(ActiveDocument.Name) � 4), FileFormat:=wdFormatRTF
He ������ �� ���, ����� ����� �������� � ������� Rtf ���������� � ��� �� �����, ��� � ��������. ��� ����� ������� � ��������� "FileName" ���������� � ���� � ��������� ���������:
ActiveDocument.SaveAs FileName:=ActiveDocument.Path + "" +
Left(ActiveDocument.Name, Len(ActiveDocument.Name) � 4),
FileFormat:=wdFormatRTF
����� Word ����� ��������� ��������� � ��� �����, ��� ��������� ��� ��� �������� ��� ������ ����-������ �������� � ������� ���������� ���� "��������� ���" � "�������". � ��� ��� �� �� ������ ����� ��� �� ����� ������, ��� ��������� �������������� ���������,�� � ���� �� ��������� ��� ��������� ����� ��������� � Word � ����� �������������� ������ ����� � ���� ���������, � ��� ����� ������� �������� ����� ���������� ���������� �� ��������.
�, �������, ��������� �������:
ActiveWindow.Close
End Sub
��� � ����� ��������� � �������� ��������� ���� � ����������.
��, � ������ ���� �������� ����, ����� ��������� ����� ������������ �� ���� ��������, � ����� ���������. ����� ����� ����� ������: ���� ������������ ��� ������ ��������� � ����� �����, ���� ���������� ��� �������� ���������, �������������� ������ ������. ����� � ��������� ������ �������: ���� ����� ����� ������� ��� ��������� ��� ������������� ����������� ���������, �������� �� �� �������� ������������ � ����� ���� � �� � ����� �����.
��� ��� �������? �������, ��� ������� �������� ����������� ����� ���������, � � ���� Word �������������� ��������� �������� �� ���� �������� � ���������. �������������, ��-������, ���� ���������� ���������� ������� ��� ����� �����������, �� ���� ��� ���������� � ����� ��������� ������ ������� �� ������ ���� �������� ������� ����� �������, ��� � ������ ��������� � ����
Word ����� ������� ���� �� ���������, ������� ���������� ���� � ������ ������ ����� �������, � ���� ��� �� ���������� �������� �� ���������, �� ������ �� ������ ������� ��� ��������� ������ ����� ���� Word. ��� ���������� ������� ������� ����� ��������� VBA ������� � ������ ���������. ������ � ������� VBA, � ���������� ��������� �� ����� "�������"�� ���� �� ����� ������� ��� �����? �������� ������ � "�����������", "��� ������", "��������"[5].
������� "�����������"�� ���� � ����� ��������� ���� ����������� ������� � ��������� ���������� ���������. �������� ����� �� ���� ������� � ������� ������, �������� ������ � ��������� �� ������������� �����.
�� ������� � ������� ������, ��� ���������� (�� ���� �������, ������� �� ���������� ������� ��������) "Goto" ��������� �� ������������� �������� � ������, �� ������� ��������� ������������� ���� �����. �������� �����[6] � ������ ����� ���������:
Sub ������1()
' ������1 ������
metka:
Selection.Wholestory
With Selection.Font
.Name = "Times New Roman"
�
� � �� ����� � ���������� "Goto":
ActiveDocument.SaveAs FileName:=ActiveDocument.Path + "" +
Left(ActiveDocument.Name, Len(ActiveDocument.Name) � 4),
FileFormat:=wdFormatRTF
ActiveWindow.Close
Goto metka
End Sub
������. ������ ���� ��������� ���������� ��� �������� ���������. �� ����������-�� ����������, �� � ����� ������ ��������� �� ������. �����, �������, �������� � ���, �� ���������, ������������� ���� ������ �������, ����� � ����� ���������� ���� ����������� ��������, �������� ���������. ������� ����� ���������� ��������� ���������� ��������� ����� ����, ��� ����� ���������� ��� ���������. ����, �������� �������� ��������� ������ ���� �����:
1.����������

