Subdocuments.Merge (Word)

Merges the specified subdocuments of a master document into a single subdocument.

Syntax : expression.Merge (FirstSubdocument, LastSubdocument)

If ActiveDocument.Subdocuments.Count >= 2 Then 
 Set aDoc = ActiveDocument 
 aDoc.Subdocuments.Merge _ 
 FirstSubdocument:=aDoc.Subdocuments(1), _ 
 LastSubdocument:=aDoc.Subdocuments(2) 
End If

Arguments

The following arguments are optional

FirstSubdocument (String) - The path and file name of the original document you want to merge revisions with.

LastSubdocument (String) - The last subdocument in a range of subdocuments to be merged.