Автоматическая расстановка тегов форматирования в Microsoft Word

В данном руководстве рассматривается методика создания макроса, который позволит автоматически расставлять теги в тексте в соответствии с его форматированием в редакторе Microsoft Word 2003. Т.е. если текст выделен жирным шрифтом, то этот фрагмент будет автоматически «одет» в теги {b}{/b} (скобки будут квадратными). Программа работает для выделения шрифта жирным и курсивом, а также для ^{надстрочных} и _{подстрочных} символов.Создание макросаОткройте форму создания макросов: Сервис → Макрос → Макросы (или Alt + F8). В появившемся окне в поле «Имя» введите: MarkUpB и нажмите на кнопку «Создать». Откроется редактор кода Visual Basic, в который нужно вставить следующий текст:

Call FndNRplClrFrmttng
Selection.Find.Font.Bold = True
Call FndNRpl("", "[*b]^&[/b*]", 1, wdFindContinue, 1, 0, 0, 0, 0, wdReplaceAll)
End Sub
Sub FndNRplClrFrmttng()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
End Sub
Sub FndNRpl(FndTxt, RplTxt, Frwrd, Wrp, Frmt, Cs, WW, AWF, Wldcrds, Exct)
With Selection.Find
.Text = FndTxt
.Replacement.Text = RplTxt
.Forward = Frwrd
.Wrap = Wrp
.Format = Frmt
.MatchCase = Cs
.MatchWholeWord = WW
.MatchAllWordForms = AWF
.MatchWildcards = Wldcrds
End With
Selection.Find.Execute Replace:=Exct
End Sub

Sub MarkUpI()
Call FndNRplaClrFrmttng
Selection.Find.Font.Italic = True
Call FndNRpla("", "[*i]^&[/i*]", 1, wdFindContinue, 1, 0, 0, 0, 0, wdReplaceAll)
End Sub
Sub FndNRplaClrFrmttng()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
End Sub
Sub FndNRpla(FndTxt, RplTxt, Frwrd, Wrp, Frmt, Cs, WW, AWF, Wldcrds, Exct)
With Selection.Find
.Text = FndTxt
.Replacement.Text = RplTxt
.Forward = Frwrd
.Wrap = Wrp
.Format = Frmt
.MatchCase = Cs
.MatchWholeWord = WW
.MatchAllWordForms = AWF
.MatchWildcards = Wldcrds
End With
Selection.Find.Execute Replace:=Exct
End Sub

Sub MarkUpSub()
Call FndNRplacClrFrmttng
Selection.Find.Font.Subscript = True
Call FndNRplac("", "[*sub]^&[/sub*]", 1, wdFindContinue, 1, 0, 0, 0, 0, wdReplaceAll)
End Sub
Sub FndNRplacClrFrmttng()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
End Sub
Sub FndNRplac(FndTxt, RplTxt, Frwrd, Wrp, Frmt, Cs, WW, AWF, Wldcrds, Exct)
With Selection.Find
.Text = FndTxt
.Replacement.Text = RplTxt
.Forward = Frwrd
.Wrap = Wrp
.Format = Frmt
.MatchCase = Cs
.MatchWholeWord = WW
.MatchAllWordForms = AWF
.MatchWildcards = Wldcrds
End With
Selection.Find.Execute Replace:=Exct
End Sub

Sub MarkUpSup()
Call FndNRplaceClrFrmttng
Selection.Find.Font.Superscript = True
Call FndNRplace("", "[*sup]^&[/sup*]", 1, wdFindContinue, 1, 0, 0, 0, 0, wdReplaceAll)
End Sub
Sub FndNRplaceClrFrmttng()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
End Sub
Sub FndNRplace(FndTxt, RplTxt, Frwrd, Wrp, Frmt, Cs, WW, AWF, Wldcrds, Exct)
With Selection.Find
.Text = FndTxt
.Replacement.Text = RplTxt
.Forward = Frwrd
.Wrap = Wrp
.Format = Frmt
.MatchCase = Cs
.MatchWholeWord = WW
.MatchAllWordForms = AWF
.MatchWildcards = Wldcrds
End With
Selection.Find.Execute Replace:=Exct

и обязательно удалить символы *, сохранить его и закрыть окно редактора. Если все сделано правильно, то в форме создания макросов должны присутствовать:

FndNRplacClrFrmttng
FndNRplaceClrFrmttng
FndNRplaClrFrmttng
FndNRplClrFrmttng
MarkUpB
MarkUpI
MarkUpSub
MarkUpSup

Запуск и использованиеMarkUpB отвечает за расстановку тегов для текста, выделенного жирным шрифтом, MarkUpI – для текста, выделенного курсивом, MarkUpSub – для подстрочных символов и MarkUpSup – для надстрочных символов.
Эти команды можно запускать из меню создания макросов, выбором соответствующей строчки и нажатием кнопки «Выполнить». Также можно задать клавиатурную комбинацию для запуска – выбрать: Сервис → Настройка и нажать кнопку «Клавиатура». В появившемся окне «Настройка клавиатуры» выбрать категорию «Макросы», а рядом – имя команды. В строке «Новое сочетание клавиш» указать нужное вам сочетание, после чего нажать кнопку «Назначить».
Макрос расставляет теги по всему документу сразу и его следует запускать после того, как внесена вся необходимая разметка.Надеюсь, что данное руководство оказалось для Вас полезным, успехов!