- Любовные романы
- Фантастика и фэнтези
- Ненаучная фантастика
- Ироническое фэнтези
- Научная Фантастика
- Фэнтези
- Ужасы и Мистика
- Боевая фантастика
- Альтернативная история
- Космическая фантастика
- Попаданцы
- Юмористическая фантастика
- Героическая фантастика
- Детективная фантастика
- Социально-психологическая
- Боевое фэнтези
- Русское фэнтези
- Киберпанк
- Романтическая фантастика
- Городская фантастика
- Технофэнтези
- Мистика
- Разная фантастика
- Иностранное фэнтези
- Историческое фэнтези
- LitRPG
- Эпическая фантастика
- Зарубежная фантастика
- Городское фентези
- Космоопера
- Разное фэнтези
- Книги магов
- Любовное фэнтези
- Постапокалипсис
- Бизнес
- Историческая фантастика
- Социально-философская фантастика
- Сказочная фантастика
- Стимпанк
- Романтическое фэнтези
- Ироническая фантастика
- Детективы и Триллеры
- Проза
- Юмор
- Феерия
- Новелла
- Русская классическая проза
- Современная проза
- Повести
- Контркультура
- Русская современная проза
- Историческая проза
- Проза
- Классическая проза
- Советская классическая проза
- О войне
- Зарубежная современная проза
- Рассказы
- Зарубежная классика
- Очерки
- Антисоветская литература
- Магический реализм
- Разное
- Сентиментальная проза
- Афоризмы
- Эссе
- Эпистолярная проза
- Семейный роман/Семейная сага
- Поэзия, Драматургия
- Приключения
- Детская литература
- Загадки
- Книга-игра
- Детская проза
- Детские приключения
- Сказка
- Прочая детская литература
- Детская фантастика
- Детские стихи
- Детская образовательная литература
- Детские остросюжетные
- Учебная литература
- Зарубежные детские книги
- Детский фольклор
- Буквари
- Книги для подростков
- Школьные учебники
- Внеклассное чтение
- Книги для дошкольников
- Детская познавательная и развивающая литература
- Детские детективы
- Домоводство, Дом и семья
- Юмор
- Документальные книги
- Бизнес
- Работа с клиентами
- Тайм-менеджмент
- Кадровый менеджмент
- Экономика
- Менеджмент и кадры
- Управление, подбор персонала
- О бизнесе популярно
- Интернет-бизнес
- Личные финансы
- Делопроизводство, офис
- Маркетинг, PR, реклама
- Поиск работы
- Бизнес
- Банковское дело
- Малый бизнес
- Ценные бумаги и инвестиции
- Краткое содержание
- Бухучет и аудит
- Ораторское искусство / риторика
- Корпоративная культура, бизнес
- Финансы
- Государственное и муниципальное управление
- Менеджмент
- Зарубежная деловая литература
- Продажи
- Переговоры
- Личная эффективность
- Торговля
- Научные и научно-популярные книги
- Биофизика
- География
- Экология
- Биохимия
- Рефераты
- Культурология
- Техническая литература
- История
- Психология
- Медицина
- Прочая научная литература
- Юриспруденция
- Биология
- Политика
- Литературоведение
- Религиоведение
- Научпоп
- Психология, личное
- Математика
- Психотерапия
- Социология
- Воспитание детей, педагогика
- Языкознание
- Беременность, ожидание детей
- Транспорт, военная техника
- Детская психология
- Науки: разное
- Педагогика
- Зарубежная психология
- Иностранные языки
- Филология
- Радиотехника
- Деловая литература
- Физика
- Альтернативная медицина
- Химия
- Государство и право
- Обществознание
- Образовательная литература
- Учебники
- Зоология
- Архитектура
- Науки о космосе
- Ботаника
- Астрология
- Ветеринария
- История Европы
- География
- Зарубежная публицистика
- О животных
- Шпаргалки
- Разная литература
- Зарубежная литература о культуре и искусстве
- Пословицы, поговорки
- Боевые искусства
- Прочее
- Периодические издания
- Фанфик
- Военное
- Цитаты из афоризмов
- Гиды, путеводители
- Литература 19 века
- Зарубежная образовательная литература
- Военная история
- Кино
- Современная литература
- Военная техника, оружие
- Культура и искусство
- Музыка, музыканты
- Газеты и журналы
- Современная зарубежная литература
- Визуальные искусства
- Отраслевые издания
- Шахматы
- Недвижимость
- Великолепные истории
- Музыка, танцы
- Авто и ПДД
- Изобразительное искусство, фотография
- Истории из жизни
- Готические новеллы
- Начинающие авторы
- Спецслужбы
- Подростковая литература
- Зарубежная прикладная литература
- Религия и духовность
- Старинная литература
- Справочная литература
- Компьютеры и Интернет
- Блог
Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт
Шрифт:
Интервал:
Закладка:
�������� ������ �������� VBA ����������� �� ������� �������� ������������, ������� ��������� ���������� ������. ������� ��� ������� ������� ������ � ������� ���������������� ����������� ���� "������"-"�����" ��� ����������� ���������� � ������ ��� ��������� ����� ����������� ����, ������� � ��� ���� ������ ��� ������� ������ ��. ���� ������ ����� ������ ����������, ������� �� ���� �������� � ������ ������ �� �������������, �� �� ������ ������� ����������� ����, ������� �������� ���������� � ������ ������� � ���������, ����� ����� �������������� ��������, � �������� ������ �������� �� ������ �� ��������� � ����� ������������� �������. � ����� �� ���������� ���� �������� �������������� ����� ������������ �������� �� ����� ����, � � ����� �������� �������� �������� �� ����� �� ��������.
���� �� ��� ���������� ������ ���� ��������� ������������, �� ��� �������� ����������� ���� "������"-"�����" ����� ����������, � ��� ��� ������� � ����� �������.
������ ������� ������� �������, ����������� � ������ ������� ��� ��� ������, ������������� ������� � ����� ���������� ������� ��������� � ��� ���������� �������� ������� ������� � ��������� ������ �������� ���� �� �������� ������, ��� ��������� ������� ��� �����������.
���� ��� ������ ����������� ���� ���������� ������ ��� ������ �� ����� ������ ������� � ��������� ������ �� ���� ��������, �� ����� ���������� ��� ��������� ����������� ����, � � ������ ������� ��� ��������, ������� ���� ���������� � ����. ������������� ��������� ����� �������������� ��� ����� ����������� ������.
��������� ����� ���������� ����, ��� "����"-"��������� ��������" ��� "����"-"������" ���������� ��������� ������, � ������� ��� ������ ������� � ��� ����� ����� ������������ ��� ��������� ��������� ���� ���������� ����, ��� ����������� �� ����, ���� �� �������� ��� ��� ��� ��������� ����������� ���� ���������.
* * *
���� ������.
Selection.Find.ClearFormatting
Selection.Find.ParagraphFormat.Alignment = wdAlignParagraphLeft
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.ParagraphFormat.Alignment = wdAlignParagraphJustify
With Selection.Find
� .Text = ""
� .Replacement.Text = ""
� .Forward = True
� .Wrap = wdFindContinue
� .Format = True
� .MatchCase = False
� .MatchWholeWord = False
� .MatchWildcards = False
� .MatchSoundsLike = False
� .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
��������� ��������, ��� ������ ������� �� �������� ������� ������ Word ��� ��������� ����� ������������ ������� �� ������ ���� �� ������������ �� ������. � ��� ����� ���� ��� �������, ����� ������� ������� �� ����� VBA. �� ���� ���������, ������� "Selection.Find.ClearFormatting" �������� �������� ���������� �������������� � ���� ������ � ���������� ������� ������ "����� ��������������", � ����� "Selection.Find.ParagraphFormat.Alignment = wdAlign ParagraphLeft" � "Selection.Find.Replacement.ParagraphFormat.Alignment = wdAlignParagraphJustify"�� ��������� ���������� ����, ��� ���� ������ � ������������ "Left" (�� ���� �� ������ ����) � ����, �� ��� ���� �������� � ������������ "Justify" (�� ������). �������� ���� ���������� � ������ �������� � ����������� ����� �������� ����, �������� � �������: "Selection"�� ���������, "Find.Replacement"�� ����� � ��������, "ParagraphFormat"�� ������ ������, "Alignment"�� ������������, "AlignParagraphJustify"�� "��������������������". ��� �, ����. �������� "With" ��� ��� ������ � � ��������� �� ������������ ���� ��������� ��������� ���� ������ �� ���� "����� � ��������".
����� ����������, ��� ��� ��������� ������� "Selection.Find" (�� ���� ������ � ���������� ����� ������ ��� �� ���� ������) ������������� ���������� ���� "����� � ��������": ".MatchWholeWord"�� "������ ����� �����", ".MatchCase"�� "��������� �������".".Text"�� �����, ��������, ���� ������� ���������� �����, �".Replacement.Text"�� ����� ��, �� ��� ��������. � ����� ������ �������� ���� �� �����, � ��������������, ������� ��� ������� �����.
������� ���������� ���� "Selection.Find" � ������ ������� ��������, ����� ���������, ��� � �� ���������� ����� �������� � ���� ��������� "With". ��������-�� ���. ���� ���� ���������� ����������� ���� ������� ������� �������: "Sub experiencel()" (��� ����� "Sub" ����� ���� �����, ����� ����, ����� ��� �� ��������� � �����-���� �������� VBA). ������ ���� � ����� ������� ���� �������� VBA �������: "End Sub". � ������� ������ "����������" � "��������" ��������� �� ����� ��������� � ����� ������ ������� ���� "With Selection.Find". � ����� ���������� ��� �������, ����������� � ��������� � ������� ������ ���� "����� � ��������" � ���� "With Selection.Find", ����� ����� "Selection.Find":
Sub experiencel()
With Selection.Find
� .ClearFormatting
� .ParagraphFormat.Alignment = wdAlignParagraphLeft
� .Replacement.ClearFormatting
� .Replacement.ParagraphFormat.Alignment = wdAlignParagraphJustify
� .Text = ""
� .Replacement.Text = ""
� .Forward = True.Wrap = wdFindContinue
� .Format = True.MatchCase = False
� .MatchWholeWord = False
� .MatchWildcards = False
� .MatchSoundsLike = False
� .MatchAllWordForms = False
� .Execute Replace:=wdReplaceAll
End With
End Sub
��������� ��������� � ����. ������� ��� ���� �������� �� ������ ������ � �������� �������� F5 ����� ������ �� ���������� (������ ������ ������ ������ ������ ������������ �������). ��� ���������! ������ ��������� ���, ��� ����������. ������, ���� � ��� ��������� ����� ��������� �����.
�������� ��� ��������� ����������

