How to merge multiple header into one word file

[Pramod]

I need code for Merge multiple header into one word file. Help me for the same.


I have mentioned the below code is for merge multiple word file into one.

Sub MergeMultiDocsIntoOne()
  Dim dlgFile As FileDialog
  Dim nTotalFiles As Integer
  Dim nEachSelectedFile As Integer
Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)
 
  With dlgFile
    .AllowMultiSelect = True
    If .Show <> -1 Then
      Exit Sub
    Else
      nTotalFiles = .SelectedItems.Count
    End If
  End With
 
  For nEachSelectedFile = 1 To nTotalFiles
    Selection.InsertFile dlgFile.SelectedItems.Item(nEachSelectedFile)
    If nEachSelectedFile < nTotalFiles Then
      Selection.InsertBreak Type:=wdPageBreak
    Else
      If nEachSelectedFile = nTotalFiles Then
        Exit Sub
      End If
    End If
  Next nEachSelectedFile
End Sub

[macropod]

See the Combine Multiple Word Documents 'Sticky' thread at the top of this forum: https://www.msofficeforums.com/word-...documents.html

[macropod]

Cross-posted at: How to merge multiple header into one word file - Stack Overflow
For cross-posting etiquette, please read: Excelguru Help Site - A message to forum cross posters