Юрий интересуется:

Юрий, вот примеры макросов для ваших целей, подсказанные Александром Витером .

Макрос для одного слова, в котором находится курсор ввода

Sub inversWord()
'Инвертирование полужирного начертания слова
Dim oChar As Range
Selection.Words(1).Select
For Each oChar In Selection.Characters
  oChar.Font.Bold = Not oChar.Font.Bold
Next
Selection.Collapse wdCollapseEnd
End Sub

Макрос для документа в целом (обрабатывает все такие слова)

Sub InvertBold()
'Инвертирование полужирного начертания слов во всем документе
  Dim oChar As Range, iStart&, bFound As Boolean
  bFound = True
  Do While bFound
    bFound = False
    With ActiveDocument.Range(iStart, ActiveDocument.Range.End).Find
      .Text = "*"
      .Font.Bold = True
      .MatchWildcards = True
      .Execute
      If .Found Then
        For Each oChar In .Parent.Words(1).Characters
          oChar.Font.Bold = Not oChar.Font.Bold
        Next
        iStart = .Parent.Words(1).End
        bFound = .Found
      End If
    End With
  Loop
End Sub

]]> ]]>