Merge Method

Microsoft Word Visual Basic

Show All

Merge Method

       

Merge method as it applies to the Subdocuments object.

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

expression.Merge(FirstSubdocument, LastSubdocument)

expression   Required. An expression that returns one of the above objects.

FirstSubdocument  Optional Variant. The path and file name of the original document you want to merge revisions with.

LastSubdocument  Optional Variant. The last subdocument in a range of subdocuments to be merged.

 

Merge method as it applies to the Cell object.

Merges the specified table cell with another cell. The result is a single table cell.

expression.Merge(MergeTo)

expression   Required. An expression that returns one of the above objects.

MergeTo  Required Cell object. The cell to be merged with.

 

Merge method as it applies to the Document object.

Merges the changes marked with revision marks from one document to another.

expression.Merge(Name, MergeTarget, DetectFormatChanges, UseFormattingFrom, AddToRecentFiles)

expression   Required. An expression that returns one of the above objects.

Name  Required String.

MergeTarget  Optional WdMergeTarget.

WdMergeTarget can be one of these WdMergeTarget constants.
wdMergeTargetCurrent default
wdMergeTargetSelected
wdMergeTargetNew

DetectFormatChanges  Optional Boolean.

UseFormattingFrom  Optional WdUseFormattingFrom.

WdUseFormattingFrom can be one of these WdUseFormattingFrom constants.
wdFormattingFromPrompt default
wdFormattingFromCurrent
wdFormattingFromSelected

AddToRecentFiles  Optional Boolean.

 

Merge method as it applies to the Cells object.

Merges the specified table cells with one another. The result is a single table cell.

expression.Merge

expression   Required. An expression that returns one of the above objects.

 

Example

As it applies to the Cell object.

This example merges the first two cells in table one in the active document with one another and then removes the table borders.

If ActiveDocument.Tables.Count >= 1 Then
    With ActiveDocument.Tables(1)
        .Cell(Row:=1, Column:=1).Merge _
            MergeTo:=.Cell(Row:=1, Column:=2)
        .Borders.Enable = False
    End With
End If

As it applies to the Document object.

This example merges changes from Sales1.doc into Sales2.doc (the active document).

If InStr(1, ActiveDocument.Name, "sales2.doc", 1) Then _
    ActiveDocument.Merge FileName:="C:\Docs\Sales1.doc"

As it applies to the Cells object.

This example merges the cells in row one of the selection into a single cell and then applies shading to the row.

If Selection.Information(wdWithInTable) = True Then
    Set myrow = Selection.Rows(1)
    myrow.Cells.Merge
    myrow.Shading.Texture = wdTexture10Percent
End If

As it applies to the Subdocuments object.

This example merges the first and second subdocuments in the active document into one subdocument.

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