Word VBA教程:Merge方法

应用于 Subdocuments对象的 Merge方法。

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

expression.Merge(FirstSubdocument, LastSubdocument)

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

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

LastSubdocument  Variant 类型,可选。要合并的子文档范围中的最后一篇子文档。

 

应用于 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 类型。

UseFormattingFrom  WdUseFormattingFrom,可选。

WdUseFormattingFrom 可以是下列 WdUseFormattingFrom 常量之一:
wdFormattingFromPrompt 默认值
wdFormattingFromCurrent
wdFormattingFromSelected

AddToRecentFiles  可选,Boolean 类型。

 

应用于 Cells对象的 Merge方法。

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

expression.Merge

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

 

VBA示例

当应用于 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号