Option 2 - Convert the field codes to text in the original document (Public)

PHOTO EMBED

Wed Aug 11 2021 00:04:26 GMT+0000 (Coordinated Universal Time)

Saved by @cnewnham #vba

Sub fieldcodetotext_OriginalDocument() 'Option 2 - Convert the field codes to text in the original document
Dim MyString As String, FieldShowSetting As Boolean
For Each aField In ActiveDocument.Fields
aField.Select
MyString = MyString & vbCr & Selection.Fields(1).Code.Text ' Does not keeps the formating delination in place - i.e. no "}"
Next aField
Documents.Add
ActiveDocument.Content.InsertAfter MyString
End Sub
content_copyCOPY