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


Оператор 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
 



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