Оператор EditFindLang
Когда следует за оператором EditFind или EditReplace, в которых аргумент .Format=1, задаёт язык, которым отформатирован текст, который вы хотите найти (оператор Language (меню Сервис) перечисляет имена языков в их английском написании).
EditReplaceLang .Language = "Deutsch"
EditFindPara .LeftIndent = "1 in"
EditReplacePara .LeftIndent = "2 in"
EditReplace .Find = "", .Replace = "", .Format = 1, \
.ReplaceAll, .Wrap = 1
Приведенная ниже макрокоманда заменяет символ табуляции в начале строки принятым в WinWord стандартным отступом.
Sub MAIN
StartOfDocument
EditFind .Find = "^t"
While EditFindFound()
DeleteWord
LineDown
StartOfLine
EditFind
Wend
End Sub
Полезная макрокоманда: убрать по всему документу выделение текста полужирным шрифтом. Аналогично делается макрос, убирающий выделение курсивом или любое другое.
Sub MAIN
StartOfDocument
While AtEndOfDocument() <> - 1
WordRight
SelectCurWord
If Bold() <> 0 Then Bold 0
ShrinkSelection
Wend
End Sub
