Макрос для поиска и замены слов на слова с верхним подчеркиванием

[salvafion]

мне нужно позарез написать макрос чтобы он искал во всем документе жирные слова или буквы и заменял их на обычные буквы но уже с черточкой вверху(автофигурой Линия)...как сделать их обычными я знаю)))...как сделать так что бы черта поставилась на нужное место..нужно это сделать в word... ну и для power point такой не помешает

[salvafion]

вот немного кода
Dim i As Long
For i = 1 To ActiveDocument.Characters.Count
If ActiveDocument.Characters(i).Bold = -1 Then
ActiveDocument.Characters(i).Bold = 0
ActiveDocument.Characters(i).Select
'****
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False
Selection.TypeText Text:="EQ \x \to("
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=")"
Selection.Fields.ToggleShowCodes
Selection.MoveDown Unit:=wdLine, Count:=1
'****
End If
Next i


нужно сделать так чтоб он делал либо все слово с чертой либо не ставил пробелы такие и еще чтоб пропускал заголовки

[viter.alex]

Так тебе просто черту нужно, а не автофигуру. Такое уже было на форуме. Посольку поиск на форуме работает отвратительно, то я переписал код:

Sub LineAboveBoldText()
  'Переходим в начало документа
  Selection.HomeKey wdStory, wdMove
  With Selection.Find 'Запускаем поиск жирного текста
    .Font.Bold = True
    .Text = ""
    While .Execute 'Пока поиск завершается удачно
      If Selection.Paragraphs(1).OutlineLevel = wdOutlineLevelBodyText Then 'Если найденное слово не находится в заголовке
        ActiveDocument.Fields.Add Selection.Range, wdFieldFormula, "\x\to(" & Selection.Text & ")", False 'добавляем поле EQ
        ActiveDocument.Fields(ActiveDocument.Fields.Count).Code.Text = Trim(ActiveDocument.Fields(ActiveDocument.Fields.Count).Code.Text) 'Удаляем лишние пробелы
      End If
    Wend
    .ClearFormatting: .Execute 'Очищаем форматирование для поиска
  End With
End Sub

[salvafion]

а он у меня н кеработаает говорит что ошибка и зависает

[viter.alex]

Почему не работает? Пример документа и текст ошибки выложи.