Word VBA Макросы. Как пройтись по всем полям (объект "Field") в тексте документа?

[Посетитель]

Как пройтись по всем полям (объект "Field") в тексте документа?

[Администратор]

Sub Макрос()

    Dim Поле As Field
   
    For Each Поле In ActiveDocument.Range.Fields
    Next Поле

End Sub

[Посетитель]

спасибо