Question

全部显示

应用于 Subdocuments 对象的 Merge 方法。

将主文档中选定的子文档合并为单独的子文档。

expression.Merge(FirstSubdocument,LastSubdocument)

expression 必需。该表达式返回以上一个对象。

FirstSubdocument Variant 类型，可选。要合并的原文档的路径和文件名。

LastSubdocumentVariant 类型，可选。要合并的子文档范围中的最后一篇子文档。

应用于 Cell 对象的 Merge 方法。

将选定的单元格与另一个单元格合并。合并结果是一个单独的单元格。

expression.Merge(MergeTo)

expression 必需。该表达式返回以上一个对象。

MergeTo必需，Cell 对象。要合并的单元格。

应用于 Document 对象的 Merge 方法。

将文档中用修订标记标识的修改合并到另一篇文档。

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

expression 必需。该表达式返回以上一个对象。

Name必需，String 类型。

MergeTarget可选。WdMergeTarget。

WdMergeTarget 可以是下列 WdMergeTarget 常量之一：

wdMergeTargetCurrent默认值

wdMergeTargetSelected

wdMergeTargetNew

DetectFormatChanges可选，Boolean 类型。

UseFormattingFromWdUseFormattingFrom，可选。

WdUseFormattingFrom 可以是下列 WdUseFormattingFrom 常量之一：

wdFormattingFromPrompt默认值

wdFormattingFromCurrent

wdFormattingFromSelected

AddToRecentFiles可选，Boolean 类型。

应用于 Cells 对象的 Merge 方法。

将选定的单元格与另一个单元格合并。合并结果是单独的单元格。

expression.Merge

expression 必需。该表达式返回以上一个对象。

示例

当应用于 Cell 对象时。

本示例将活动文档的表 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

当应用于 Document 对象时。

本示例将在 Sales2.doc（活动文档）中所做的修改合并到 Sales1.doc。

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

当应用于 Cells 对象时。

本示例将所选内容第一行的单元格合并为一个单元格，然后为该行设置底纹。

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

当应用于 Subdocuments 对象时。

本示例将活动文档的第一和第二篇子文档合并为一篇子文档。

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