- Любовные романы
- Фантастика и фэнтези
- Ненаучная фантастика
- Ироническое фэнтези
- Научная Фантастика
- Фэнтези
- Ужасы и Мистика
- Боевая фантастика
- Альтернативная история
- Космическая фантастика
- Попаданцы
- Юмористическая фантастика
- Героическая фантастика
- Детективная фантастика
- Социально-психологическая
- Боевое фэнтези
- Русское фэнтези
- Киберпанк
- Романтическая фантастика
- Городская фантастика
- Технофэнтези
- Мистика
- Разная фантастика
- Иностранное фэнтези
- Историческое фэнтези
- LitRPG
- Эпическая фантастика
- Зарубежная фантастика
- Городское фентези
- Космоопера
- Разное фэнтези
- Книги магов
- Любовное фэнтези
- Постапокалипсис
- Бизнес
- Историческая фантастика
- Социально-философская фантастика
- Сказочная фантастика
- Стимпанк
- Романтическое фэнтези
- Ироническая фантастика
- Детективы и Триллеры
- Проза
- Юмор
- Феерия
- Новелла
- Русская классическая проза
- Современная проза
- Повести
- Контркультура
- Русская современная проза
- Историческая проза
- Проза
- Классическая проза
- Советская классическая проза
- О войне
- Зарубежная современная проза
- Рассказы
- Зарубежная классика
- Очерки
- Антисоветская литература
- Магический реализм
- Разное
- Сентиментальная проза
- Афоризмы
- Эссе
- Эпистолярная проза
- Семейный роман/Семейная сага
- Поэзия, Драматургия
- Приключения
- Детская литература
- Загадки
- Книга-игра
- Детская проза
- Детские приключения
- Сказка
- Прочая детская литература
- Детская фантастика
- Детские стихи
- Детская образовательная литература
- Детские остросюжетные
- Учебная литература
- Зарубежные детские книги
- Детский фольклор
- Буквари
- Книги для подростков
- Школьные учебники
- Внеклассное чтение
- Книги для дошкольников
- Детская познавательная и развивающая литература
- Детские детективы
- Домоводство, Дом и семья
- Юмор
- Документальные книги
- Бизнес
- Работа с клиентами
- Тайм-менеджмент
- Кадровый менеджмент
- Экономика
- Менеджмент и кадры
- Управление, подбор персонала
- О бизнесе популярно
- Интернет-бизнес
- Личные финансы
- Делопроизводство, офис
- Маркетинг, PR, реклама
- Поиск работы
- Бизнес
- Банковское дело
- Малый бизнес
- Ценные бумаги и инвестиции
- Краткое содержание
- Бухучет и аудит
- Ораторское искусство / риторика
- Корпоративная культура, бизнес
- Финансы
- Государственное и муниципальное управление
- Менеджмент
- Зарубежная деловая литература
- Продажи
- Переговоры
- Личная эффективность
- Торговля
- Научные и научно-популярные книги
- Биофизика
- География
- Экология
- Биохимия
- Рефераты
- Культурология
- Техническая литература
- История
- Психология
- Медицина
- Прочая научная литература
- Юриспруденция
- Биология
- Политика
- Литературоведение
- Религиоведение
- Научпоп
- Психология, личное
- Математика
- Психотерапия
- Социология
- Воспитание детей, педагогика
- Языкознание
- Беременность, ожидание детей
- Транспорт, военная техника
- Детская психология
- Науки: разное
- Педагогика
- Зарубежная психология
- Иностранные языки
- Филология
- Радиотехника
- Деловая литература
- Физика
- Альтернативная медицина
- Химия
- Государство и право
- Обществознание
- Образовательная литература
- Учебники
- Зоология
- Архитектура
- Науки о космосе
- Ботаника
- Астрология
- Ветеринария
- История Европы
- География
- Зарубежная публицистика
- О животных
- Шпаргалки
- Разная литература
- Зарубежная литература о культуре и искусстве
- Пословицы, поговорки
- Боевые искусства
- Прочее
- Периодические издания
- Фанфик
- Военное
- Цитаты из афоризмов
- Гиды, путеводители
- Литература 19 века
- Зарубежная образовательная литература
- Военная история
- Кино
- Современная литература
- Военная техника, оружие
- Культура и искусство
- Музыка, музыканты
- Газеты и журналы
- Современная зарубежная литература
- Визуальные искусства
- Отраслевые издания
- Шахматы
- Недвижимость
- Великолепные истории
- Музыка, танцы
- Авто и ПДД
- Изобразительное искусство, фотография
- Истории из жизни
- Готические новеллы
- Начинающие авторы
- Спецслужбы
- Подростковая литература
- Зарубежная прикладная литература
- Религия и духовность
- Старинная литература
- Справочная литература
- Компьютеры и Интернет
- Блог
Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт
Шрифт:
Интервал:
Закладка:
���.�3.8. ������� � "��������" ����, ������� ���������� ����� ��������
��� ��� � ��� ���� � ���� ��� �������� � ������� Rtf, �� ��� ������� ������ � � �����������".doc"! �� ��� ��� �� ���������� � ��� ����� ����� �� ��, � ��� ���������� ������ ���� ������".rtf".
���������, � ��� �����, ���� ��������� ��� ��������� ��� �������� �� ���� �� ������������� ���������? ��������� �������� �������� �������� ��� "Docl.doc" (��, ��� "Doc2.doc", "Doc3.doc"�� � ���� ���). �� ��� �� ����������? ���� �� F3 � Explorere � ���, �������� �� � �����, ��� ��������� ������ ��� ������ ���������� ������-���� ����� ��� � ����� ��� ���������� Word �� ���������[3].
�������������, ��� ����������� ���������� ����� ���������������� ��������� ��� ������� ��� ����� � ����� ���������� (����� ���������� ����� ������, ������� � ��� ��������� � ������ "FileName" ������ ���� � ��� ������ ��������������) ���������� ���������� ��������� ��������� � ����� �� ��������� (��� � �����, ��� ��� ��������� ��� �������� ������� �����-������ ��������) � � ������ �� ���������. ������ � ��������.
�� ��� �� ��� ���� � ����� ����������? ��� ���� ����, ����� ��� �������������� ����� ����������� ��� ����� ������ � � ������� � � ����������� Rtf! � ���������-�� �����-������ �������� �������� ���������� ��� ��������� ���������. �������� ��� ���� ������, � ������� ��� "ActiveDocument", ������ ����� (���.�3.9) � �����, ��� ����� ��������� ����������� ������� ���� �������� "Name".
���.�3.9. � ��� ����� ����� ������ ����������� �������.
������, ��� � ���� ��, ��� ��� ����. ��������. ������������ ����������������� ��������� ��������� �������:
Sub experience2()
MsgBox ActiveDocument.Name
End Sub
��� �������� ��� ������� ���� ��������� � ��������� ������� "ActiveDocument.Name". ����� ���� �� �������� "Debug.PrintActiveDocument.Name", ��� ���������� �� �������� ���� ������� � ����������� ���� ������� (���������� �� ���� ��������� VBA "���"-"���� �������"). �� ������������ ���� ��������� ���-�� ���������. ����, �������� F5� �������� ���� � ����������: "������1.doc".
�� ��� ���� ����� ���� ������ ���, ��� ����������! ��� �� ��� ��������? ��������, ����� ����� ������ ��������� ������ ������� � ".doc". �� ���?
������������� ��������. ������ F1 � ��������� VBA, � ����������� ���� ������ ������ "�������", � ��� � "���������� ���������",�� � ��� ��� ������� ������� ���������������� �� ������, � �� ����� ��� � ������� "�����" ���� ���������� ���� ������ �� ���� ������, �������� � ���������� ������� VBA.
������� � ������ ������ ����� "������". �� ������ �������� ���������� ������� VBA ������� ��, ��� ��� ���� � ������� "������� ����� �������" (���� ��� ����� �������� �� ����� ��������� � ����������� ������ ��� ���, �� ���� ����� ����� ������ ��� ������� ������ ��������, �� ���� ������� ����� �������). �������� ������� �� ������� "Left" (���.�3.10).
���.�3.10. ������� �� ������� Left.
����������� � ������� "Left" �������� ������ ��� ��������, ������� ��� �����������. �� ��� ������� �������� ���������� �������� �� ���� ������ � ��� ��� ������? �� ���, ��� ������� � ������ ���������� ���� � ������� "�������������� ��������"�� ����� ������� "Len". ������ ������ "��. �����", ������� �� ������ ������� "������� Len" � ������ ����������� ����������[4].
������� ������� � ����������� ������ � ���������� ����� ������ � �������, ����� �������� �������, ������� ���������� ������ ��� ��������� ������� ��������:
imyadoc = Left(ActiveDocument.Name, Len(ActiveDocument.Name) � 4)
����� ���������. �������� ��� ���� ������:
Sub experience3()
imyadoc = Left(ActiveDocument.Name, Len(ActiveDocument.Name) � 4)
MsgBox imyadoc End Sub
� �������� ���. � ���� ��������� � ��� ��������� ��� ����������. ��� ���, ��� ��� ����������.
��������� ������������������������� ������ ��������� ����� ��������� ��������� ��� ���������� � �� ����� ������, ���� ����� ����� �� �������������. ���� ��� ���� ������ ������ ������ ��� ���������, �������������� �� ���������� ������ Word,�� � Word 6.0 � Word 95 ���� ����������� ������� ��� ��������� ����� ���������, � ���������, � VBA �� ����������. ������ ��� ����� ���� ������������ � VBA, ��� ��� ������� ��� Word 6.0 � Word 95 ����� ����������� � � ����� ����� ������� Office. ��� �������� � Office 97/2000/�� �������� � ���������, ��������� � ���������� ������� Office, ��� ������� ������������� �������������� ��� ���������� � VBA � ������� ���������� � ���� ������ ����� WordBasic, �� ������� �������� ������������ ��� Word 6.0 � Word 95.
� Word 6.0 � Word 95 ������� ������� "FileNameInfo$(��������, ��������)", � ������� ������� ����� ���� �������� ��� ��������� ��� ����������, ���� � ��������� ��� ����� � ���� � ��������� ������ � ������. ��� ����, ����� �� ���� ���� ��� ���������, ��� ���������� � ����, �������� ��������� ������ ���� ����� 4. (��� ��� �������� ������� � ������� �� WordBasic ��� Microsoft

