Язык WordBasic - практический подход


Оператор ToolsProtectDocument - часть 2


 
Оператор EditFindHighlight
 
Когда этот оператор следует за EditFind или EditReplace, в которых параметр .Format установлен в 1, то задает, что текст, который вы хотите найти выделен яркостью. Word ищет любой выделенный текст, даже если в одном документе для выделения были использованы различные цвета. В Word 6.0, EditFindHighlight недоступна и генерирует ошибку.
Пример.
Находятся все вхождения в документ выделенного текста, убирается выделение, а сам текст делается полужирным.
EditFindClearFormatting
EditReplaceClearFormatting
EditFindHighlight
EditReplaceFont .Bold = 1
EditReplaceNotHighlight
EditReplace .Find = "текст", .Replace = "текст1", .Format = 1, .ReplaceAll
EditFindNotHighlight. Задает, что текст, который вы хотите найти или заменить, не выделен. Когда этот оператор следует за EditFind или EditReplace, в которых параметр .Format установлен в 1, то задает, что текст, который вы хотите найти не выделен яркостью. В Word 6.0, EditFindNotHighlight недоступна и генерирует ошибку.
EditReplaceNotHighlight. Когда этот оператор следует за EditReplace, в которой параметр .Format установлен в 1, то задает, что текст, который вы хотите найти не выделен яркостью.
 
Работа с отступами
 
При вставках текста часто бывает полезно добавить или убрать отступ у абзаца или строки. Это делается с помощью следующих простых операторов:
indent – делает отступ или добавляет отступ до следующей позиции табуляции;
unindent
– убирает отступ или уменьшает его до предыдущей позиции табуляции;
HangingIndent – создаёт висячий отступ либо увеличивает существующий висячий отступ выделенного абзаца до следующей позиции табуляции первого абзаца в выделенном блоке текста.
UnHang – уменьшает висячий отступ выделенного абзаца или уменьшает его до предыдущей позиции табуляции первого абзаца в выделенном блоке текста.
Для своего текстового справочника по фирмам я использую следующую макрокоманду:
Sub MAIN
Indent
Insert "lch=" + Date$()



Начало  Назад  Вперед