全部显示
应用于 Subdocuments 对象的 Merge 方法。
将主文档中选定的子文档合并为单独的子文档。
expression.Merge(FirstSubdocument, LastSubdocument)
expression 必需。该表达式返回以上一个对象。
FirstSubdocument Variant 类型，可选。要合并的原文档的路径和文件名。
LastSubdocument Variant 类型，可选。要合并的子文档范围中的最后一篇子文档。
将选定的单元格与另一个单元格合并。合并结果是一个单独的单元格。
expression.Merge(MergeTo)
expression 必需。该表达式返回以上一个对象。
MergeTo 必需，Cell 对象。要合并的单元格。
将文档中用修订标记标识的修改合并到另一篇文档。
expression.Merge(Name, MergeTarget, DetectFormatChanges, UseFormattingFrom, AddToRecentFiles)
expression 必需。该表达式返回以上一个对象。
Name 必需，String 类型。
MergeTarget 可选。WdMergeTarget。
| WdMergeTarget 可以是下列 WdMergeTarget 常量之一： |
| wdMergeTargetCurrent 默认值 |
| wdMergeTargetSelected |
| wdMergeTargetNew |
DetectFormatChanges 可选，Boolean 类型。
UseFormattingFrom WdUseFormattingFrom，可选。
| WdUseFormattingFrom 可以是下列 WdUseFormattingFrom 常量之一： |
| wdFormattingFromPrompt 默认值 |
| wdFormattingFromCurrent |
| wdFormattingFromSelected |
AddToRecentFiles 可选，Boolean 类型。
将选定的单元格与另一个单元格合并。合并结果是单独的单元格。
expression.Merge
expression 必需。该表达式返回以上一个对象。
本示例将活动文档的表 1 的前两个单元格合并，然后删除表格的边框。
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本示例将在 Sales2.doc（活动文档）中所做的修改合并到 Sales1.doc。
If InStr(1, ActiveDocument.Name, "sales2.doc", 1) Then _
ActiveDocument.Merge FileName:="C:\Docs\Sales1.doc"本示例将所选内容第一行的单元格合并为一个单元格，然后为该行设置底纹。
If Selection.Information(wdWithInTable) = True Then
Set myrow = Selection.Rows(1)
myrow.Cells.Merge
myrow.Shading.Texture = wdTexture10Percent
End If本示例将活动文档的第一和第二篇子文档合并为一篇子文档。
If ActiveDocument.Subdocuments.Count >= 2 Then
Set aDoc = ActiveDocument
aDoc.Subdocuments.Merge _
FirstSubdocument:=aDoc.Subdocuments(1), _
LastSubdocument:=aDoc.Subdocuments(2)
End If