Word VBA教程:Split方法

应用于 Cell对象的 Split方法。

将一个表格单元格拆分为多个。

expression.Split(NumRows, NumColumns)

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

NumRows  Variant 类型,可选。单元格或单元格组拆分成的行数。

NumColumns  Variant 类型,可选。单元格或单元格组拆分成的列数。

应用于 Cells对象的 Split方法。

拆分一个区域中的表格单元格。

expression.Split(NumRows, NumColumns, MergeBeforeSplit)

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

NumRows  Variant 类型,可选。单元格或单元格组拆分成的行数。

NumColumns  Variant 类型,可选。单元格或单元格组拆分成的列数。

MergeBeforeSplit  Variant 类型,可选。如果为 True,则在拆分单元格前将其合并。

应用于 Subdocument对象的 Split方法。

将一篇原有的子文档拆分为两篇子文档,在主控文档视图或大纲视图中这两篇文档处于同一级别。在指定区域的开始部分进行此操作。如果活动文档既不在主控文档视图中,又不在大纲视图中,或区域不处于子文档某段的开始部分,就会出错。

expression.Split(Range)

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

Range  Range对象,必需。在拆分子文档时,该区域成为独立的子文档。

应用于 Table对象的 Split方法。

在表格中紧靠指定行的上面插入一空段落,并且返回一个 Table对象,此对象包含指定行及其下一行。

expression.Split(BeforeRow)

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

BeforeRow  Variant 类型,必需。将要拆分的表格的前一行。可以为 Row对象或行号。

VBA示例

当应用于 Cell对象时。

本示例将第一张表格的第一个单元格拆分为两个单元格。


ActiveDocument.Tables(1).Cell(1, 1).Split NumColumns:=2

当应用于 Cells对象时。

本示例首先将选定单元格合并为一个,再将其拆分为同一行上的三个单元格。


If Selection.Information(wdWithInTable) = True Then
    Selection.Cells.Split NumRows:=1, NumColumns:=3, _
        MergeBeforeSplit:= True
End If

当应用于 Subdocument对象时。

本示例将一篇原有子文档的选定部分拆分为一篇独立的子文档。


Selection.Range.Subdocuments(1).Split Range:=Selection.Range

当应用于 Table对象时。

本示例在活动文档中创建一张 5x5 的表格,并且在第三行之前进行拆分。然后为结果表格(新的 3x5 表格)的单元格添加底纹。


Set newDoc = Documents.Add
Set myTable = ActiveDocument.Tables.Add(Range:=Selection.Range, _
    NumColumns:=5, NumRows:=5)
myTable.Split(BeforeRow:=myTable.Rows(3)).Shading _
    .Texture = wdTexture10Percent

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号