Форум по VBA, Excel и Word

Sub Макрос()

    Dim fld As Field, i As Long

   
    '1. Скрытие кодов полей, если вдруг юзер их отобразил для каких-то своих целей.
    ActiveWindow.View.ShowFieldCodes = False
   
    For i = ActiveDocument.Fields.Count To 1 Step -1
   
        '2. Присваивание программного имени полю.
        Set fld = ActiveDocument.Fields(i)
       
        ' Если это eq-поле.
        If fld.Type = wdFieldFormula Then
            '3. Выделение поля (с помощью Range не получилось работать).
            fld.Select
            '4. Копирование поля.
            Selection.Copy
            '5. Вставка поля в виде текста.
            Selection.PasteAndFormat (wdFormatPlainText)
        End If
       
    Next i
   
    '5. Сообщение, чтобы юзер понял, что макрос закончил работу.
    MsgBox "Готово.", vbInformation
   
End Sub