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