语法一：expression.Split(NumRows, NumColumns) 将一个表格单元格拆分为多个。
expression 必需。该表达式返回一个 Cell 对象。
NumRows 数值型，可选。单元格或单元格组拆分成的行数。 NumColumns 数值型，可选。单元格或单元格组拆分成的列数。
下例将表格的第一个单元格拆分为2行2列。
MyWord.Documents(1).Tables(1).Cell(1,1).Split(2,2) 语法二：expression.Split(NumRows, NumColumns,
MergeBeforeSplit)
拆分一个区域中的表格单元格。
expression 必需。该表达式返回一个 Cells 对象。
NumRows 数值型，可选。单元格或单元格组拆分成的行数。 NumColumns 数值型，可选。单元格或单元格组拆分成的列数。 MergeBeforeSplit 逻辑型，可选。如果为 .T.，则在拆分单元
格前将其合并。
下例将所选区域内的每个单元都拆分为2行2列。 MyWord.Selection.Cells.Split(2,2,.F.)
下例将所选区域内的所有单元格先合并后，再拆分为2行2列。 MyWord.Selection.Cells.Split(2,2,.T.) 语法三：expression.Split(BeforeRow)
在表格中紧靠指定行的上面插入一空段落，并且返回一个 Table 对象，此对象包含指定行及其下一行。即将表格拆分为两个表格。
expression 必需。该表达式返回一个 Table 对象。
BeforeRow 数值型，必需。将要拆分的表格的前一行。可以为
Row 对象或行号。
下例将表格第3行（包括本行）以下拆分为一个新表格。 MyWord.documents(1).Tables(1).Split(3) 或者写为：
MyRow= MyWord.documents(1).Tables(1).Rows(3) MyWord.documents(1).Tables(1).Split(MyRow)
31
六、Shape 对象和Shapes 集合对象
Shape 对象代表一个图形层对象，例如自选图形、任意多边形、OLE 对象、ActiveX 控件、图片等。
Shapes 集合对象是由 Shape 对象组成的集合，这些对象代表文档中或者文档页眉和页脚中的所有图形。
如果需要处理文档图形的一个子集（例如只处理文档中的自选图形或仅处理选定的图形），就必须创建一个 ShapeRange 集合，以用该集合包含需要处理的图形。
注意：有三种对象可代表图形：Shapes 集合代表了文档中的所有图形；ShapeRange 集合代表了文档全部图形的一个指定子集（例如，ShapeRange 对象可以代表文档中的第一个和第四个图形，也可代表文档中所有选定的图形）；Shape 对象代表文档中的单个图形。如果需要对几个图形（或选定部分中的多个图形）同时进行操作，可以使用 ShapeRange 集合。
用 Shapes 属性可返回 Shapes 集合。下例选定活动文档中的所有图形。
MyWord.ActiveDocument.Shapes.SelectAll
用 Shapes(index) 可返回单独的 Shape 对象，其中 index 为该对象的名称或索引序号。下例水平翻转活动文档中的第一个图形。
MyWord.ActiveDocument.Shapes(1).Flip(0) 1、常用方法 （1）AddLine 方法
语法：expression.AddLine(BeginX, BeginY, EndX, EndY) 在文档中添加一条直线。返回一个代表该直线的 Shape 对象，并将其添加到 Shapes 集合。
expression 必需。该表达式返回一个Shapes 集合对象。 BeginX 数值型，必需。直线起点相对于锁定标记的水平位置，以磅为单位。
BeginY 数值型，必需。直线起点相对于锁定标记的垂直位置，以磅为单位。
32
EndX 数值型，必需。直线终点相对于锁定标记的水平位置，以磅为单位。
EndY 数值型，必需。直线终点相对于锁定标记的垂直位置，以磅为单位。
下例在活动文档中添加一条直线。
MyWord.ActiveDocument.Shapes.AddLine(80,80,500,80) （2）AddTextbox 方法
语法：expression.AddTextbox(Orientation, Left, Top, Width, Height) 在文档中添加一个文本框。返回一个代表该文本框的 Shape 对象，并将其添加到 Shapes 集合。
expression 必需。该表达式返回一个Shapes 集合对象。 Orientation 数值型，必需。指定文本的方向，共有6种类型。 Left 数值型，必需。文本框左侧边缘的位置，以磅为单位。 Top 数值型，必需。文本框上部边缘的位置，以磅为单位。 Width 数值型，必需。文本框的宽度，以磅为单位。 Height 数值型，必需。文本框的高度，以磅为单位。 下例在活动文档添加一个水平方向的文本框。
MyWord.ActiveDocument.Shapes.AddTextBox(1,80,80,250,80) （3）AddTextEffect 方法
语法：expression.AddTextEffect(PresetTextEffect, Text, FontName, FontSize, FontBold, FontItalic, Left, Top)
在文档上添加一个“艺术字”图形。返回一个 Shape 对象，该对象代表“艺术字”，并将其添加至 Shapes 集合。
expression 必需。该表达式返回一个 Shapes 对象。
PresetTextEffect 数值型，必需。编号从0到29共30种预设的文本效果，对应于“?艺术字?库”对话框中所列的格式（按从上到下、从左到右的顺序排列）。
Text 字符型，必需。“艺术字”中的文字。
FontName 字符型，必需。“艺术字”中所用字体的名称。 FontSize 数值型，必需。“艺术字”中所用字体的大小（以磅为单位）。
33
FontBold 逻辑型，必需。如果为 .T.，则对“艺术字”字体应用加粗格式。
FontItalic 逻辑型，必需。如果为.T.，则对“艺术字”字体应用倾斜格式。
Left 数值型，必需。“艺术字”图形左边缘相对于锁定标记的位置，以磅为单位。
Top 数值型，必需。“艺术字”图形上边缘相对于锁定标记的位置，以磅为单位。
下例在活动文档中添加包含文字“This is a test”的“艺术字”。 MyWord.ActiveDocument.Shapes. AddTextEffect(1,”This is a test”,”楷体_GB2312”,60,.F.,.F.,80,80)
（4）AddPicture 方法 语
法
：
expression.AddPicture(FileName,
LinkToFile,
SaveWithDocument, Left, Top, Width, Height)
在文档中添加一幅图片。返回一个 Shape 对象，该对象代表图片，并将其添加至 Shapes 集合。
expression 必需。该表达式返回一个 Shapes 对象。 FileName 字符型，必需。图片的路径和文件名。
LinkToFile 逻辑型，可选。如果为.T.，则将图片链接到创建该对象的文件；如果为 .F.，则将图片作为该文件的独立副本。默认值是 .F.。
SaveWithDocument 逻辑型，可选。如果为.T.，则将链接的图片与文档一起保存。默认值是 .F.。
Left 数值型，可选。新图片的左边缘相对于锁定区域的位置，以磅为单位。
Top 数值型，可选。新图片的上边缘相对于锁定区域的位置，以磅为单位。
Width 数值型，可选。图片的宽度，以磅为单位。 Height 数值型，可选。图片的高度，以磅为单位。 下例为活动文档添加一幅图片。
MyWord.ActiveDocument.Shapes. AddPicture(?123.JPG?)
34
2、常用属性 （1）Type 属性
该属性返回图形的类型。数值型，只读。对于Shape共有24种类型，常用的有以下几种：
9－直线 11－图片（链接式） 13－图片（嵌入式） 15－艺术字 17－文本框
35