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
Preview:
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