Microsoft Office Forums - View Single Post - [Solved] Cross References lost after mail merge

macropod · 02-19-2024, 05:30 AM

For example (easier to code than explain):

Code:

Sub Demo()
' Sourced from: https://www.msofficeforums.com/mail-merge/52094-cross-references-lost-after-mail-merge.html
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument
  .Fields.Update
  .MailMerge.MainDocumentType = wdNotAMergeDocument
  For i = .Fields.Count To 1 Step -1
    With .Fields(i)
      Select Case .Type
        Case wdFieldMergeField, wdFieldMergeBarcode, wdFieldMergeRec, wdFieldMergeSeq: .Unlink
      End Select
    End With
  Next i
End With
Application.ScreenUpdating = True
With Application.Dialogs(wdDialogFileSaveAs)
  .Format = wdFormatXMLDocument
  .Show
End With
End Sub

Note: You'll need to save the mailmerge main document in the .docm format after adding the macro.

For PC macro installation & usage instructions, see: Installing Macros
For Mac macro installation & usage instructions, see: Word:mac - Install a Macro