将一个表格单元格拆分为多个。
expression.Split(NumRows, NumColumns)
expression 必需。该表达式返回一个 Cell 对象。
NumRows Variant 类型,可选。单元格或单元格组拆分成的行数。
NumColumns Variant 类型,可选。单元格或单元格组拆分成的列数。
拆分一个区域中的表格单元格。
expression.Split(NumRows, NumColumns, MergeBeforeSplit)
expression 必需。该表达式返回一个 Cells 对象。
NumRows Variant 类型,可选。单元格或单元格组拆分成的行数。
NumColumns Variant 类型,可选。单元格或单元格组拆分成的列数。
MergeBeforeSplit Variant 类型,可选。如果为 True,则在拆分单元格前将其合并。
将一篇原有的子文档拆分为两篇子文档,在主控文档视图或大纲视图中这两篇文档处于同一级别。在指定区域的开始部分进行此操作。如果活动文档既不在主控文档视图中,又不在大纲视图中,或区域不处于子文档某段的开始部分,就会出错。
expression.Split(Range)
expression 必需。该表达式返回一个 Subdocument 对象。
Range Range 对象,必需。在拆分子文档时,该区域成为独立的子文档。
在表格中紧靠指定行的上面插入一空段落,并且返回一个 Table 对象,此对象包含指定行及其下一行。
expression.Split(BeforeRow)
expression 必需。该表达式返回一个 Table 对象。
BeforeRow Variant 类型,必需。将要拆分的表格的前一行。可以为 Row 对象或行号。
本示例将第一张表格的第一个单元格拆分为两个单元格。
ActiveDocument.Tables(1).Cell(1, 1).Split NumColumns:=2
本示例首先将选定单元格合并为一个,再将其拆分为同一行上的三个单元格。
If Selection.Information(wdWithInTable) = True Then
Selection.Cells.Split NumRows:=1, NumColumns:=3, _
MergeBeforeSplit:= True
End If
本示例将一篇原有子文档的选定部分拆分为一篇独立的子文档。
Selection.Range.Subdocuments(1).Split Range:=Selection.Range
本示例在活动文档中创建一张 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