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
MyString = MyString & vbCr & Selection.Fields(1).Code.Text ' Does not keeps the formating delination in place - i.e. no "}"
Next aField
ActiveDocument.Content.InsertAfter MyString
End Sub
downloadDownload PNG downloadDownload JPEG downloadDownload SVG

Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!

Click to optimize width for Twitter