Create a new Word document to save the converted field codes (Public)

PHOTO EMBED

Wed Aug 11 2021 00:03:53 GMT+0000 (UTC)

Saved by @Darkleech #vba

Sub fieldcodetotext_CreateNewDocument() 'OPtion 1 - Create a new Word document to save the converted field codes:
Dim MyString As String
ActiveWindow.View.ShowFieldCodes = True
For Each aField In ActiveDocument.Fields
aField.Select
MyString = "{ " & Selection.Fields(1).Code.Text & " }" ' Keeps the formating delination in place }  - i.e. keeps "}"
Selection.Text = MyString
Next aField
ActiveWindow.View.ShowFieldCodes = False
End Sub
content_copyCOPY