在VFP中调用WORD的基本方法
目 录
一、建立WORD应用程序对象，新建、打开、保存WORD文档.... 5 1、建立对象 .............................................................................................. 5 2、显示WORD窗口 ................................................................................ 5 3、新建一个WORD文档 ........................................................................ 5 （1）Count属性 ........................................................................................ 5 （2）Name属性 ........................................................................................ 5 4、打开一个已存在的WORD文档 ........................................................ 5 5、激活文档，使文档成为当前激动文档 .............................................. 6 6、保存文档 .............................................................................................. 6 7、页面设置 .............................................................................................. 6 （1）Orientation属性 ............................................................................... 6 （2）TopMargin属性 ............................................................................... 6 （3）BottomMargin属性 .......................................................................... 6 （4）LeftMargin属性 ............................................................................... 6 （5）RightMargin属性 ............................................................................. 7 （6）PageWidth属性 ................................................................................ 7 （7）PageHeight属性 ............................................................................... 7 8、打印文档 .............................................................................................. 7 9、关闭文档 .............................................................................................. 7 10、退出WORD ....................................................................................... 8 二、Font对象 ............................................................................................ 8 1、Name 属性 ........................................................................................... 8 2、Size属性 ............................................................................................... 8 3、Bold属性 .............................................................................................. 8 4、Italic属性 ............................................................................................. 8 5、Color属性 ............................................................................................ 8 6、Underline属性 ..................................................................................... 8
1
7、UnderlineColor属性 ............................................................................ 8 8、Subscript属性 ...................................................................................... 9 9、Superscript属性 ................................................................................... 9 10、Spacing属性....................................................................................... 9 11、Scaling属性 ........................................................................................ 9 三、Paragraph和Paragraphs集合对象 ................................................... 9 1、添加段落 .............................................................................................. 9 （1） Add方法....................................................................................... 10 （2）InsertParagraph方法 ................................................................. 10 （3）InsertParagraphAfter 方法 ...................................................... 10 （4）InsertParagraphBefore 方法 .................................................... 11 （5）TypeParagraph 方法 .................................................................... 11 2、设置段落格式 .................................................................................... 11 （1）FirstLineIndent属性 ................................................................. 11 （2）LeftIndent属性 ........................................................................... 11 （3）RightIndent属性 ......................................................................... 11 （4）Alignment属性 ............................................................................. 11 （5）LineSpacing属性 ........................................................................... 12 （6）HangingPunctuation属性 ........................................................... 12 四、Range 和 Selection 对象 ............................................................... 12 （1）Range对象 ..................................................................................... 12 （2）Selection 对象 ............................................................................... 13 （3）常用属性 ........................................................................................ 13 ①Start属性 .............................................................................................. 13 ②End属性 ............................................................................................... 14 ③Text属性 .............................................................................................. 14 ④Type属性.............................................................................................. 14 ⑤Information 属性 ................................................................................. 15 （4）常用方法 ........................................................................................ 18 ①Copy 方法 ............................................................................................ 18 ②Cut 方法 ............................................................................................... 18
2
③Paste 方法 ............................................................................................ 18 ④Collapse 方法 ...................................................................................... 18 ⑤InsertBefore 方法 ................................................................................ 19 ⑥InsertAfter方法 .................................................................................... 19 ⑦TypeText方法 ...................................................................................... 19 ⑧Delete 方法 .......................................................................................... 20 ⑨移动插入点的方法 .............................................................................. 20 ㈠Move 方法 ........................................................................................... 20 ㈡MoveDown 方法 ................................................................................. 20 ㈢MoveEnd 方法 ..................................................................................... 21 ㈣MoveEndUntil 方法 ............................................................................ 21 ㈤MoveLeft 方法 .................................................................................... 22 ㈥MoveRight方法 ................................................................................... 22 ㈦MoveStart 方法 .................................................................................... 23 ㈧MoveStartUntil 方法 ........................................................................... 23 ㈨MoveUp 方法 ...................................................................................... 24 五、表格处理 .......................................................................................... 25 1、Table 对象和Tables 集合对象 ........................................................ 25 2、添加表格 ............................................................................................ 25 （1）PreferredWidthType 属性 .............................................................. 25 （2）AllowAutoFit属性 ......................................................................... 26 （3）AllowPageBreaks属性 .................................................................. 26 3、Border 对象和Borders 集合对象 ................................................... 26 （1）LineStyle属性 ................................................................................ 26 （2）LineWidth属性 .............................................................................. 27 （3）Color属性 ...................................................................................... 27 （4）Enable 属性 ................................................................................... 27 （5）DefaultBorderLineWidth 属性 ...................................................... 27 （6）DefaultBorderLineStyle 属性 ........................................................ 27 （7）DefaultBorderColor 属性 .............................................................. 27 4、Cell 对象和Cells 集合对象 ............................................................ 28
3
5、Row 对象和Rows 集合对象 ........................................................... 28 （1）Height 属性.................................................................................... 28 （2）Delete 方法 .................................................................................... 28 （3）SetHeight 方法 .............................................................................. 28 6、Column 对象和Columns 集合对象 ................................................ 29 （1）Width 属性 ..................................................................................... 29 （2）Delete 方法 .................................................................................... 29 （3）SetWidth 方法 ............................................................................... 29 7、合并与拆分单元格 ............................................................................ 30 （1）合并单元格 .................................................................................... 30 （2）拆分单元格 .................................................................................... 30 六、Shape 对象和Shapes 集合对象 .................................................... 32 1、常用方法 ............................................................................................ 32 （1）AddLine 方法 ................................................................................ 32 （2）AddTextbox 方法 .......................................................................... 33 （3）AddTextEffect 方法 ....................................................................... 33 （4）AddPicture 方法 ............................................................................ 34
4
因WORD具有很强的文字排版和表格处理能力，在开发VFP应用程序过程中如果能巧妙地使用WORD，将极大地增强VFP的输出功能，设计出更加美观的文档和表格版面。下面本人结合实际开发经验介绍一下在VFP中调用和控制WORD的基本方法，所举实例都在Visual FoxPro 6.0（简体中文版）中调试通过。
一、建立WORD应用程序对象，新建、打开、保存WORD文档 1、建立对象
在VFP中调用WORD首先必须先建立一个WORD应用程序对象：
MyWord=CreateObject('Word.Application')
MyWord是一个自定义的对象变量，代表WORD应用程序。 2、显示WORD窗口 MyWord.Visible=.T.
如果将MyWord.Visible的值设为.F.，则关闭WORD窗口，但WORD程序仍在后台运行，仍可以对其进行控制。
3、新建一个WORD文档 MyWord.Documents.Add
Documents是由Word 当前打开的所有Document对象所组成的集合。Document代表一个WORD文档对象。
Documents集合对象的两个常用属性： （1）Count属性
统计Documents集合对象中Document对象数量，即当前打开文档的数量。
（2）Name属性
Document对象的文件名称。
下例显示Documents集合对象中文档总数和每个文档的名称。 ? MyWord.Documents.Count
For Each MyDoc IN MyWord.Documents ? MyDoc.Name Next MyDoc
4、打开一个已存在的WORD文档
5
MyWord.Documents.Open ('e:\\abcef.doc') 文件名称要包含完整的路径。
5、激活文档，使文档成为当前激动文档 MyWord.Documents(index).Activate index是文档的名称或索引序号。
新建的文档或刚打开的文档默认为当前活动文档。可用ActiveDocument 属性返回一个 Document 对象，该对象代表活动文档。
6、保存文档
MyWord.Documents(index).Save index是文档的名称或索引序号。如： （1）MyWord.Documents(1).Save 保存文档集合中第一个文档。
（2）MyWord.Documents('abcef.doc').Save 保存文档集合中名为abcef.doc的文档。 （3）MyWord. ActiveDocument.Save 保存当前活动的文档。 （4）MyWord.Documents.Save 保存所有文档。 7、页面设置
PageSetup对象代表页面设置说明，它包含了文档的所有页面设置属性（左边距、下边距、纸张大小等）。常用的有以下几个属性：
（1）Orientation属性
返回或设置页面方向，数值型：0－纵向 1－横向。 （2）TopMargin属性
返回或设置页面上部边缘与正文文本上部边界之间的距离（以磅为单位）。数值型。
（3）BottomMargin属性
返回或设置页面底边与正文文本边界之间的距离（以磅为单位）。数值型。
（4）LeftMargin属性
6
返回或设置页面左边缘与正文左边界之间的距离（以磅为单位）。数值型。
（5）RightMargin属性
返回或设置正文右边界与页面右边距之间的距离（以磅为单位）。数值型。
（6）PageWidth属性
返回或设置页面宽度（以磅为单位）。数值型。 （7）PageHeight属性
返回或设置页面高度（以磅为单位）。数值型。 注：1英寸＝2.54厘米 1英寸＝72磅
下例进行页面设置，页面横向、顶部边距2.54厘米、底部边距2.54厘米、左边距3.17厘米、右边距3.17厘米、页面宽度与高度分别为21和29.7厘米（即A4纸）。
With MyWord.ActiveDocument.PageSetup .Orientation = 1
.TopMargin =2.54/2.54*72 .BottomMargin =2.54/2.54*72 .LeftMargin =3.17/2.54*72 .RightMargin =3.17/2.54*72 .PageWidth =21/2.54*72 .PageHeight =29.7/2.54*72 EndWith 8、打印文档
MyWord.ActiveDocument.PrintOut 9、关闭文档
（1）MyWord.Documents.Close(WdSaveOptions)
关闭所有文档。WdSaveOptions是可选参数：其值为0时，表示关闭文档时，不保存自上次保存以来所做的修改；其值为-1时，表示关闭文档时，保存自上次保存以来所做的修改。如果省略该参数（下同），可写为：MyWord.Documents.Close，关闭文档时，将保存自上次保存以来所做的修改。
7
（2）MyWord. ActiveDocument. Close(WdSaveOptions) 关闭当前活动的文档。
（3）MyWord.Documents(1). Close(WdSaveOptions) 关闭文档集合中第一个文档。
（4）MyWord.Documents('abcef.doc'). Close(WdSaveOptions) 关闭文档集合中名为abcef.doc的文档。 10、退出WORD MyWord.Quit 二、Font对象
该对象包含了各种字体属性（字体名称、字体大小、颜色等）。常用的属性有以下几种：
1、Name 属性
返回或设置字体名称，字符型。如：\宋体\、\黑体\、\仿宋_GB2312\、\华文仿宋\等。
2、Size属性
返回或设置字体大小（以磅值表示），数值型。一号字是26磅，二号字是22磅，三号字是16磅，四号字是14磅，五号字是10磅。
3、Bold属性
如果该属性值为.T.，则将字体或范围的格式设置为加粗格式。逻辑型。
4、Italic属性
如果为.T.，则设置字体或区域的格式为倾斜。逻辑型。 5、Color属性
该属性返回或设置指定的 Border 或 Font 对象的 24 位颜色。该属性值是RGB 函数返回的值。如：RGB(255,0,0)为红色。
6、Underline属性
该属性返回或设置应用于字体或区域的下划线的类型。数值型。0-无下划线，1-下划线为单线，3-下划线为双线。
7、UnderlineColor属性
8
该属性返回或设置指定 Font 对象的下划线的 24 位颜色。该属性值是RGB 函数返回的值。
8、Subscript属性
如果该属性值为.T.，则将字体格式设为下标。 9、Superscript属性
如果该属性值为.T.，则将字体格式设为上标。 10、Spacing属性
返回或设置字符的间距。以磅为单位，数值型。 11、Scaling属性
返回或设置用于字体的缩放比例。本属性以当前字体大小的百分比水平拉长或压缩文字（缩放范围从 1 到 600）。数值型。
下列示例设置所选区域的字体属性： With MyWord.Selection.Font .Name=\仿宋_GB2312\ .Size=22 .Bold=.T. .Italic=.T. .Color= RGB(0,0,0) .Underline=3
.UnderlineColor= RGB(255,0,0) EndWith
三、Paragraph和Paragraphs集合对象
Paragraph代表选定内容、范围或文档内的一个段落。Paragraphs 集合包含了所选内容、范围或文档中的所有段落。Paragraph 对象为 Paragraphs集合的一个成员。可用
Paragraphs(index) 返回一个 Paragraph 对象，其中 index 为索引号。下例将活动文档的第一段右对齐。
MyWord.ActiveDocument.Paragraphs(1).Alignment = 2 1、添加段落
可用 Add、InsertParagraph、InsertParagraphAfter 或 InsertParagraphBefore 方法在文档中添加一个空段落。
9
（1） Add方法
语法：expression.Add(Range)
expression 必需。该表达式返回一个 Paragraphs 对象。 Range Variant 类型，可选。要在其前添加新段落的范围，新的段落不替换该范围。如果不指定 Range，则将新段落添加至所选内容或范围之后，或者添加至文档最后，具体情况取决于 expression 的设置。
下例在所选内容之后添加一个段落。 MyWord.Selection.Paragraphs.Add
下例在所选内容中第一段之前添加一个段落标记。 Range1=MyWord.Selection.Paragraphs(1).Range MyWord.Selection.Paragraphs.Add(Range1) 下例在活动文档第二段之前添加一个段落标记。 Range1=MyWord.ActiveDocument.Paragraphs(2).Range MyWord.ActiveDocument.Paragraphs.Add(Range1) 下例在活动文档的末尾添加一个新的段落标记。
MyWord.ActiveDocument.Paragraphs.Add
（2）InsertParagraph方法
用新段落替换指定区域或选定部分。应用本方法后，该区域或选定内容将更改为新段落。
语法：expression.InsertParagraph
expression 必需。该表达式返回一个 Range 或 Selection 对
象。
说明：如果在使用本方法之前先使用 Collapse 方法，可以不覆盖该区域或所选内容。用 InsertParagraphAfter 方法可在 Range 或 Selection 对象后插入一个新段落。
下例在活动文档开始处插入一个新段落。 MyWord.ActiveDocument.Range(0,0).InsertParagraph （3）InsertParagraphAfter 方法
在区域或所选内容之后插入段落标记。在应用本方法之后，该区域或所选内容将扩展至包括新段落。
10
语法：expression.InsertParagraphAfter
expression 必需。该表达式返回一个 Range 或 Selection 对
象。
下例在当前段落之后插入一个新段落。 MyWord.Selection.InsertParagraphAfter （4）InsertParagraphBefore 方法
在指定的所选内容或区域前插入一个新段落。在应用本方法之后，该区域或所选内容将扩展至包括新段落。
语法：expression.InsertParagraphBefore
expression 必需。返回 Range 或 Selection 对象的表达式。
下例在活动文档开始处插入一个新段落。
MyWord.ActiveDocument.Range(0,0).InsertParagraphBefore （5）TypeParagraph 方法
插入一个新的空段落。如果所选内容没有折叠为一个插入点，则新段将覆盖所选内容。用 InsertParagraphAfter 或
InsertParagraphBefore 方法可插入一个新段而不删除所选内容。
语法：expression.TypeParagraph
expression 必需。该表达式返回一个 Selection 对象。
2、设置段落格式
设置段落格式的常用属性： （1）FirstLineIndent属性
返回或设置首行缩进或悬挂缩进的大小（以磅值表示）。用正数设置首行缩进的尺寸，用负数设置悬挂缩进的尺寸。数值型。
（2）LeftIndent属性
返回或设置一个值，该值代表指定段落、表格行或 HTML 分段的左缩进（以磅为单位）。数值型。
（3）RightIndent属性
返回或设置指定段落的右缩进量（以磅为单位）。数值型。 （4）Alignment属性
返回或设置一个指定段落的对齐方式。其值：0-左对齐 1-居中对齐 2-右对齐 3-两端对齐。
11
（5）LineSpacing属性
返回或设置指定段落的行距（以磅为单位）。数值型。 （6）HangingPunctuation属性
如果该属性值为.T.，则指定段落中的标点将可以溢出边界。 使用 Format 属性可返回一个或多个段落的 ParagraphFormat 对象。ParagraphFormat 属性返回所选内容、区域、样式、Find 对象或 Replacement 对象的 ParagraphFormat 对象。
下例将活动文档中的首段设置为右对齐。
MyWord.ActiveDocument.Paragraphs(1).Alignment =2
下例活动文档所有内容的有关范围设置段落格式：行距12磅，首行缩进20磅。
With MyWord.ActiveDocument.Content.ParagraphFormat
.LineSpacing=12 .FirstLineIndent=20 EndWith
四、Range 和 Selection 对象 （1）Range对象
该对象代表文档中的一个连续范围。每一个 Range 对象由一起始和一终止字符位置定义。和文档中书签的使用方法类似，使用 Range 对象识别文档的指定部分。但和书签不同，Range 对象只在定义该对象的过程正在运行时才存在。
Range 对象和所选内容相互独立。也就是说，可定义和复制一个范围而不需改变所选内容。还可在文档中定义多个范围，但每一个窗格中只能有一个所选内容。
可用 Range 方法返回一个 Range 对象，该对象由指定起始和终止字符位置定义。下例返回代表活动文档前 10 个字符的 Range 对象。
myRange = MyWord.ActiveDocument.Range(0, 10)
可用 Range 属性返回一个 Range 对象，该对象由其他对象的起点和终点定义。Range 对象可用于多种对象（例如，Paragraph、
12
Bookmark 和 Cell）。下例返回对应于活动文档第一段的 Range 对象。
aRange = MyWord.ActiveDocument.Paragraphs(1).Range 下例返回对应于活动文档第二至第四段的 Range 对象。 Range1= MyWord.ActiveDocument.Paragraphs(2).Range Range2= MyWord.ActiveDocument.Paragraphs(4).Range aRange = MyWord. ActiveDocument.Range(Range1.Start, Range2.End)
（2）Selection 对象
该对象代表窗口或窗格中的当前所选内容。所选内容代表文档中被选定（或突出显示的）的区域，若文档中没有所选内容，则代表插入点。每个文档窗格只能有一个活动的 Selection 对象，并且整个应用程序中只能有一个活动的 Selection 对象。
用 Selection 属性可返回 Selection 对象。如果没有使用 Selection 属性的对象识别符，Word 将返回活动文档窗口的活动窗格中的所选内容。下列示例从活动文档复制当前所选内容。
MyWord. Selection.Copy
下列示例剪切 Documents 集合中第三个文档的所选内容。访问文档的当前所选内容时，文档无需处于活动状态。
MyWord. Documents(3).ActiveWindow.Selection.Cut
用 Word 处理文档时，通常先选定文字，然后对所选内容进行操作，例如设置文字格式或键入文字。Select 方法可激活一个对象。例如，下列指令选定活动文档中的第一个单词。
MyWord. ActiveDocument.Words(1).Select （3）常用属性 ①Start属性
该属性返回或设置所选内容、区域或书签起始字符的位置。数值型。如果将本属性的值设置为大于 End 属性的值，则将 End 属性的值设为与 Start 属性的值相同。起始字符位置是指距文档该部分开头最近的字符位置。
13
本属性返回起始字符相对于文档该部分开头的位置。文字部分的起始字符位置为 0。通过设置本属性可以更改所选内容、区域或书签的大小。
下例返回活动文档第二段的起始字符位置和第四段的结束字符位置。这些字符位置用于创建区域 myRange。
Pos1 = MyWord. ActiveDocument.Paragraphs(2).Range.Start Pos2 = MyWord.ActiveDocument.Paragraphs(4).Range.End myRange = MyWord.ActiveDocument.Range(Pos1, Pos2) 下例通过起始和结束字符位置判断所选内容的长度。 SelLength = MyWord.Selection.End - MyWord.Selection.Start 下例将 myRange 起始字符的位置向右移动一个字符（使该区域缩小一个字符）。
myRange = MyWord.Selection.Range
myRange.SetRange (myRange.Start + 1, myRange.End) ②End属性
返回或设置所选内容、区域或书签中结束字符的位置。数值型。如果本属性设置的值小于 Start 属性的值，则 Start 属性将被设成同一值（即 Start 与 End 属性值相等）。
下例将 myRange 的结束位置移动一个字符。
myRange = MyWord.ActiveDocument.Paragraphs(1).Range myRange.End = myRange.End - 1 ③Text属性
返回或设置指定区域或所选内容中的文本。字符型。Text 属性返回选定部分或区域的无格式纯文本。设置该属性，可替换该区域或所选内容的文本。
示例用“Dear”替换活动文档的第一个词。 MyWord. ActiveDocument.Words(1).Text = \④Type属性
该属性返回Selection 对象选择的类型，返回值（只读）如下： 0－无Selection 对象 1－IP类型 2－普通文本 3－图文框 4－表格列 5－表格行
14
6－块状区域 7－线形 8－图形集合 下例将所选内容复制到新文档中。 If MyWord.Selection.Type = 2 MyWord.Selection.Copy
MyWord.Documents.Add.Content.Paste EndIf
⑤Information 属性
返回有关指定的所选内容或区域的信息。只读。 语法：expression.Information(Type)
expression 必需。该表达式返回一个Range 或Selection对象。 Type 数值型，必需。消息类型。以下是消息类型： 1－返回页码，在该页中包含指定的所选内容或区域的活动结尾。如果设置一个起始页码或进行其他手动调整，则返回经调整的页码（与 3 不同）。
2－返回节号，在该节中包含了指定的所选内容或区域的活动结尾。
3－返回页码，在该页中包含指定的所选内容或区域的活动结尾。从文档开头计数。忽略任何对页码的手动调整（与 1 不同）。
4－返回与所选内容或区域相关联的文档的页数。
5-返回指定的所选内容或区域的水平位置。该位置是所选内容或区域的左边缘与页面的左边缘之间的距离，以磅为单位（20 缇 = 1 磅）。如果所选内容或区域不可见，则该参数返回 - 1。
6－返回所选内容或区域的垂直位置，即所选内容的上边缘与页面的上边缘之间的距离，以磅为单位（20 缇 = 1 磅）。如果所选内容未显示在文档窗口中，则该参数返回 - 1。
7 返回指定的所选内容或区域相对于周围最近的正文边界左边缘的水平位置，以磅为单位（20 缇 = 1 磅，72 磅 = 1 英寸）。如果所选内容或区域未处于屏幕区域中，则该参数返回 - 1。
8－返回所选内容或区域相对于周围最近的正文边界的上边缘的垂直位置，以磅为单位（20 缇 = 1 磅，72 磅 = 1 英寸）。该参数
15
可用于在文本框或表格中确定插入点的位置。如果所选内容未在屏幕中显示，则该参数返回 - 1。
9－返回指定的所选内容或区域中第一个字符的列位置。如果所选内容或区域是折叠的，则返回紧靠所选内容或区域右侧的字符列编号（该编号与状态栏中“列”前面的字符列数相同）。
10－返回指定的所选内容或区域中第一个字符的行位置。如果所选内容或区域是折叠的，则返回紧靠所选内容或区域右侧的字符行编号（该编号与状态栏中“行”前面的字符行数相同）。
11－如果所选内容或区域是一个完整的图文框或文本框，则该参数返回 .T.。
12－如果所选内容位于表格中，则该参数返回 .T.。 13－返回所选内容或区域起点所在表格的行号。
14－返回表格行号，在该表格行中包含指定的所选内容或区域的结尾。
15－返回指定的所选内容或区域中表格的最大行数。 16－返回所选内容或区域起点所在表格的列号。
17－返回表格列号，在该表格列中包含指定的所选内容或区域的结尾。
18－返回所选内容或区域中任何行的最大表格列数。 19－返回由 Percentage 属性设置的当前的放大百分比。 20－返回一个值，该值表明当前的选定模式，如下表所示。
值 0（零） 1 2
常规选定
扩展选择(“EXT” 出现在状态栏上) 列选择（“列”出现在状态栏上)
选定模式
21－如果大写字母锁定模式有效，则该参数返回 .T.。 22－如果数字键盘锁有效，则该参数返回.T.。
23－如果改写模式有效，则该参数返回 .T.。可用 Overtype 属性改变改写模式的状态。
24－如果修订功能有效，则该参数返回.T.。
16
25－如果指定的所选内容或区域位于普通视图的脚注或尾注窗格中，或页面视图的脚注或尾注区内，则本参数返回 .T.。
26－如果指定的所选内容或区域位于备注窗格，则该参数返回 .T.。
28－如果指定的所选内容或区域位于页眉或页脚窗格中，或者位于页面视图的页眉或页脚中，则该参数返回 .T.。
31 如果指定的所选内容或区域位于表格的行结尾标记处，则该参数返回 .T.。
32－返回一个值，该值表明所选内容相对于脚注、尾注或备注引用的位置，如下表所示。
值 - 1
说明
所选内容或区域包含，但不限于脚注、尾注或备注引用中。
0（零） 所选内容或区域不在脚注、尾注或备注引用之前。 1 2 3
所选内容或区域位于脚注引用之前。 所选内容或区域位于尾注引用之前。 所选内容或区域位于备注引用之前。
33－返回一个值，该值表明包含了指定的所选内容或区域的页眉或页脚的类型，如下表所示。
值 - 1 0（零） 1 2 3 4 5
页眉或页脚的类型
无（所选内容或区域不在页眉或页脚中） 偶数页页眉
奇数页页眉（或在不区分奇数和偶数页时的页眉） 偶数页页脚
奇数页页脚（或在不区分奇数和偶数页时的页脚） 第一个页眉 第一个页脚
34－如果所选内容或区域位于主控文档（即至少包含一个子文档的文档）中，则该参数返回 .T.。
17
35－如果指定的所选内容或区域位于页面视图的脚注区内，或者位于普通视图的脚注窗格中，则该参数返回 .T.。
36－如果指定的所选内容或区域位于页面视图的尾注区内，或者位于普通视图的尾注窗格中，则该参数返回 .T.。
37－如果所选内容或区域位于主控文档（即至少包含一个子文档的文档）中，则该参数返回 .T.。
38－有关该常量的详细内容，请参阅 Microsoft Office Macintosh 版的语言参考帮助。
（4）常用方法 ①Copy 方法
将指定对象拷贝到剪贴板。 语法：expression.Copy
expression 必需。该表达式返回以上一个 Range 或Selection
对象。
②Cut 方法
将指定对象从文档中移到剪贴板上。 语法：expression.Cut
expression 必需。该表达式返回一个 Field、FormField、Frame、
MailMergeField、PageNumber、Range 或 Selection 对象。
如果expression 返回 Range 或 Selection 对象，则将该对象中的内容剪切到剪贴板上，但是折叠的对象还保留在文档中。
③Paste 方法
将剪贴板上的内容插入指定的区域或选定区域。如果不需要替换区域或选定区域的内容，可在用本方法之前先用 Collapse 方法。
语法：expression.Paste
expression 必需。该表达式返回一个 Range 或 Selection 对
象。
如果本方法用于区域对象，则将扩展该区域，使其包含剪贴板中的内容。如果本方法用于选定对象，则不会扩展所选内容，而是将所选内容置于已粘贴的剪贴板内容之后。
④Collapse 方法
18
将某一区域或所选内容折叠到起始位置或结束位置。折叠之后起始位置和结束位置相同。
语法：expression.Collapse(Direction)
expression 必需。该表达式返回一个 Range 或 Selection 对
象。
Direction参数可选，数值型，指折叠某区域或所选内容的方向。 1－折叠到首部，0－折叠到尾部。默认值为1。
如果用 1 折叠一个代表完整段落的区域，则该区域将定位于段落结束标记之后（即下段开头）。但是，在该区域折叠后，可以用 MoveEnd 方法将区域回移一个字符。
下例将所选内容折叠为选定部分的开头。 MyWord.Selection.Collapse =1 ⑤InsertBefore 方法
在指定的选定内容或区域前插入指定文字。在插入文字之后扩展选定内容或区域，以包含新文字。如果选定内容或区域是书签，则书签也会扩展，以包含新文字。
语法：expression.InsertBefore(Text)
expression 必需。该表达式返回一个 Range 或 Selection 对
象。
Text 字符型，必需。要插入的文字。 ⑥InsertAfter方法
将指定文本插入某一区域或选定内容的后面。应用本方法可以扩展原区域或选定内容，使其包含新文本。
语法：expression InsertAfter(Text)
expression 必需。该表达式返回一个 Range 或 Selection 对
象。
Text 字符型，必需。要插入的文字。 ⑦TypeText方法
插入指定的文本。如果 ReplaceSelection 属性为.T.，则用指定文本替换所选内容。如果 ReplaceSelection 为假，则在所选内容之前插入指定的文本。
19
语法：expression.TypeText(Text)
expression 必需。该表达式返回一个 Selection 对象。
Text 字符型，必需。要插入的文字。 ⑧Delete 方法
语法：expression.Delete
expression 必需。该表达式返回一个 Range 或 Selection 对
象。
下例选择并删除活动文档中的内容。 MyWord.ActiveDocument.Content.Select MyWord.Selection.Delete ⑨移动插入点的方法 ㈠Move 方法
语法：expression.Move(Unit, Count)
将指定区域或所选内容折叠到开始或结束位置，然后将折叠的对象移动指定数量的单位。本方法返回的数值表明对象实际移动的单位数。如果移动失败，则本方法返回 0。
expression 必需。该表达式返回一个Selection 或 Range对象。 Unit 数值型，可选。折叠的区域或所选内容移动距离的度量单位：1－字符，4－段落，5－行，9－列，10－表格行，12－单元格，15－表格。默认值为1。
Count 数值型，可选。指定的区域或所选内容移动的单位数。如果 Count 是一个正数，则对象折叠到结束位置，并在文档中向前移动指定的单位数；如果 Count 是一个负数，则对象折叠到开始位置，并向后移动指定的单位数。默认值是 1。在使用 Move 方法之前也可以使用 Collapse 方法控制折叠的方向。如果区域或所选内容位于一个单位的中间，或者不能折叠，则将区域或所选内容向前或向后移动整个的单位。
下例将所选区域折叠到下一段的段首，即将插入点移至下一段的段首。
MyWord.Selection.Move(4,1) ㈡MoveDown 方法
20
语法：expression.MoveDown(Unit, Count, Extend) 将所选内容向下移动，并返回移动距离的单位数。 expression 必需。该表达式返回一个 Selection 对象。 Unit 数值型，可选。所选内容移动距离的度量单位： 4－段落，5－行。默认值是 5。
Count 数值型，可选。所选内容移动距离的单位数。默认值为 1。 Extend 数值型，可选。可为 0 或 1。如果是 0，则所选内容折叠到结束位置，并向下移动。如果是 1，则所选内容向下扩展。默认值为 0。
下例将所选区域扩展2行。 MyWord.Selection.MoveDown(5,2,1) ㈢MoveEnd 方法
语法：expression.MoveEnd(Unit, Count)
移动区域或所选内容的结束字符位置。本方法如果返回一个整数，表示区域或所选内容所移动的单元数；如果返回 0，则移动失败。
expression 必需。该表达式返回一个 Range 或 Selection 对象。 Unit 数值型，可选。所选内容移动距离的度量单位： 1－字符，4－段落，9－列，10－表格行，12－单元格。默认值为1。
如果表达式的返回值是 Selection 对象，也可以使用 5。 Count 数值型，可选。指移动的单元数。如果为正数，则结束字符在文档中向后移动；如果为负数，则结束字符向前移动。如果结束位置已移至起始位置，则折叠该区域并移动首末两个字符的位置。
下例将所选区域的结束位置后移一个字符。 MyWord.Selection.MoveEnd(1,1) ㈣MoveEndUntil 方法
语法：expression.MoveEndUntil(Cset, Count)
移动指定区域或所选内容的结束位置，直到在文档中找到任何指定的字符。如果在文档中是向前移动，则扩展该区域或所选内容。
本方法将区域或所选内容的结束位置的移动字符数以数值型返回。如果 Count 大于 0，则本方法返回移动字符数加 1 的值。如果
21
Count 小于 0，则本方法返回移动字符数减 1 的值。如果没有找到 Cset 字符，则不改变区域或所选内容，并且本方法返回 0。如果结束位置向后移动并超过原来的开始位置，则将开始位置设置为新的结束位置。
expression 必需。该表达式返回一个 Range 或 Selection 对象。
Cset 字符型，必需。一个或多个字符。该参数区分大小写。 Count 数值型，可选。指定区域或所选内容移动的最大字符数。如果 Count 是正数，则区域或所选内容在文档中向前移动。如果 Count 是负数，则区域或所选内容向后移动。默认向前移动。
下例将所选区域扩展到直到 S 字符出现。 MyWord.Selection.MoveEndUntil('S') ㈤MoveLeft 方法
语法：expression.MoveLeft(Unit, Count, Extend) 将所选内容向左移动，并返回移动距离的单位数。 expression 必需。该表达式返回一个 Selection 对象。 Unit 数值型，可选。所选内容移动距离的度量单位： 1－字符 12－单元格。默认值为 1。
Count 数值型，可选。所选内容移动距离的单位数。默认值是 1。 Extend 数值型，可选。可以是 0 或 1。如果是 0，则所选内容折叠到起始位置，并向左移动。如果是 1，则所选内容向左扩展。默认值是 0。
下例将所选内容折叠到起始位置，并向左移动1个字符。 MyWord.Selection.MoveLeft ㈥MoveRight方法
语法：expression.MoveRight(Unit, Count, Extend) 将所选内容向右移动，并返回移动距离的单位数。
expression 必需。该表达式返回一个 Selection 对象。
Unit 数值型，可选。所选内容移动距离的度量单位：
1－字符 12－单元格。默认值为 1。
Count 数值型，可选。所选内容移动距离的单位数。默认值是 1。
22
Extend 数值型，可选。可以是 0 或 1。如果是 0，则所选内
容折叠到结束位置，并向右移动。如果是 1，则所选内容向右扩展。默认值是 0。
下例将所选内容折叠到结束位置，并向右移动1个字符。 MyWord.Selection.MoveRight ㈦MoveStart 方法
语法：expression.MoveStart(Unit, Count)
移动指定区域或所选内容的开始位置。本方法返回一个整数，该整数表明开始位置、该区域或所选内容实际移动的单位数，如果移动不成功，则本方法返回 0。
expression 必需。该表达式返回一个 Range 或 Selection 对象。 Unit 数值型，可选。所选内容移动距离的度量单位：
1－字符，4－段落， 9－列，10－表格行，12－单元格，15－表格。默认值是 1。
如果 expression 返回 Selection 对象，则也可以使用 5。 Count 数值型，可选。区域或所选内容移动的最大单位数。如果 Count 是正数，则区域或所选内容的开始位置在文档中向前移动。如果 Count 是负数，则区域或所选内容向后移动。默认值为 1。如果开始位置是向前移至结束位置之后，则折叠区域或所选内容，并且开始位置和结束位置移至同一位置。
下例将所选内容的开始位置向前移动一个字符（即所选内容减少一个字符）。注意：一个空格也看作是一个字符。
MyWord.Selection.MoveStart(1,1)
下例将所选内容的开始位置移至该行的开头（所选内容扩展到行的开头）。
MyWord.Selection.MoveStart(5,-1) ㈧MoveStartUntil 方法
语法：expression.MoveStartUntil(Cset, Count)
移动指定区域或所选内容的开始位置，直到在文档中找到任何指定的字符。如果在文档中是向后移动，则扩展区域或所选内容。
本方法将指定区域或所选内容开始位置的移动字符数以数值型
23
返回。如果 Count 大于 0，则该方法返回移动的字符数加 1。如果 Count 小于 0，则该方法返回移动的字符数减 1。如果未发现 Cset 字符，则不改变指定区域或所选内容，并返回 0。如果开始位置移动至结束位置后的位置，则折叠指定区域或选定内容，同时移动开始和结束位置。
expression 必需。表达式返回一个Range 或 Selection对象。 Cset 字符型，必需。一个或多个字符。该参数区分大小写。 Count 数值型，可选。指定区域或所选内容移动的最大字符数。如果 Count 是正数，则区域或所选内容在文档中向前移动。如果 Count 是负数，则区域或所选内容向后移动。默认为向前移动。
下例在文档中向后扩展所选内容，直到找到字母“I”。 MyWord.Selection.MoveStartUntil(\
如果在所选内容的第一段有美元字符 ($)，下例将 myRange 移到该字符的前面。
myRange = MyWord.Selection.Paragraphs(1).Range leng = myRange.End - myRange.Start myRange.Collapse(1)
myRange.MoveStartUntil(\myRange.Select ㈨MoveUp 方法
语法：expression.MoveUp(Unit, Count, Extend) 将所选内容向上移动，并返回移动距离的单位数。 expression 必需。该表达式返回一个 Selection 对象。 Unit 数值型，可选。所选内容移动距离的度量单位： 4－段落，5－行。默认值是 5。
Count 数值型，可选。所选内容移动距离的单位数。默认值为 1。 Extend 数值型，可选。可为 0 或 1。如果是 0，则所选内容折叠到结束位置，并向上移动。如果是 1，则所选内容向上扩展。默认值为 0。
下例将所选区域向上扩展2行。 MyWord.Selection.MoveUp(5,2,1)
24
㈩
五、表格处理
1、Table 对象和Tables 集合对象 Table 对象代表一个单独的表格。
Tables 集合对象由 Table 对象组成的集合，这些对象代表选定内容、范围或文档中的表格。
Table 对象是 Tables 集合的一个成员。Tables 集合包含了指定的选定内容、范围或文档中的所有表格。
可使用 Tables 属性返回 Tables 集合。可使用 Tables(index) 返回一个 Table 对象，其中 index 为索引号。索引号代表选定内容、范围或文档中表格的位置。
下例将活动文档中的第一个表格转换为文本。 ActiveDocument.Tables(1).ConvertToText 2、添加表格
语法：expression.Add(Range, NumRows, NumColumns) 返回一个 Table 对象，该对象代表添加至文档中的空白新表格。
expression 必需。该表达式返回一个 Tables 对象。
Range Range 对象，必需。指定表格显示的区域。如果该区域未折叠，表格将替换该区域。
NumRows 数值型，必需。要在表格中包括的行数。 NumColumns 数值型，必需。要在表格中包括的列数。 下例在活动文档的开头添加一个 3 行 4 列的空表格。 MyRange = MyWord.ActiveDocument.Range(0, 0) MyWord.ActiveDocument.Tables.Add(MyRange, 3, 4) 表格常用的几个属性： （1）PreferredWidthType 属性
返回或设置指定单元格、列或表格的宽度的首选度量单位。取值（数值型）如下：
25
1－自动设置 2－以占窗口宽度的百分数表示宽度 3－以磅值表示宽度
下例设置 Microsoft Word 以窗口宽度的百分比来表示宽度，然后将文档的第一个表格的宽度设置为窗口宽度的 50%。
With MyWord.ActiveDocument.Tables(1) .PreferredWidthType = 2 .PreferredWidth = 50 EndWith
（2）AllowAutoFit属性
是否可以自动重新调整表格中的单元格的大小以适应内容。逻辑型。
下例设置活动文档的第一张表格可自动调整大小以适应内容。 MyWord.ActiveDocument.Tables(1).AllowAutoFit = .T. （3）AllowPageBreaks属性
是否允许对指定表格进行跨页断行。
下例设置活动文档的第二个表格可以跨页断行。 MyWord.ActiveDocument.Tables(2).AllowPageBreaks = .T. 3、Border 对象和Borders 集合对象 Border代表一个对象的边框。
Borders 集合对象是由 Border 对象所组成的集合，该集合代表对象的边框。
Border 对象是 Borders 集合中的元素。用 Borders 属性可返回 Borders 集合。
用 Borders(index) 可返回单个 Border 对象，其中 index 用来标识边框。索引序号可以是下列数值（都是负数）之一：
-1－顶部边框 -2－左边框 -3－底部边框 -4－右边框 -5－水平线 -6－垂直线 边框常用的几个属性： （1）LineStyle属性
返回或设置指定对象的边框线型，共有25种线型。以下列出几种常用的线型（数值型）：
26
0－无线 1－单线 7－双线
下例设置活动文档的第一张表格顶部边框线为单线。 MyWord.ActiveDocument.Tables(1). Borders(-1). LineStyle =1
（2）LineWidth属性
返回或设置对象边框的线宽。以磅值为单位，数值型。 下例设置活动文档的第一张表格顶部边框线宽设为2磅。 MyWord.ActiveDocument.Tables(1). Borders(-1). LineWidth =2 （3）Color属性
该属性返回或设置指定的 Border对象的 24 位颜色。该属性值是RGB 函数返回的值。
下例设置活动文档的第一张表格顶部边框线设为红色。 MyWord.ActiveDocument.Tables(1).Borders(-1).Color =RGB(255,0,0)
（4）Enable 属性
返回或设置指定对象的边框格式。如果指定对象的全部或部分边框应用了边框格式，则返回值为 .T.。
该属性应用于指定对象的所有边框。如果该属性值为.T.，则将线型设置为默认线型，将线条宽度设置为默认线条宽度。可以通过 DefaultBorderLineWidth 及 DefaultBorderLineStyle 属性来设置默认线型和默认线条宽度。
下例所示，将 Enable 属性的值设置为 .F.，就可以删除对象中的所有边框。
MyWord.ActiveDocument.Tables(1).Borders.Enable = .F. （5）DefaultBorderLineWidth 属性
返回或设置边框的默认线条宽度。数值型，以磅表示。 （6）DefaultBorderLineStyle 属性
返回或设置默认边框的线型。数值型，编号从0－24 。 0－无 1－单线 7－双线 （7）DefaultBorderColor 属性
该属性返回或设置用于新的 Border 对象的默认 24 位颜色。该
27
属性可以是RGB 函数返回的值。
4、Cell 对象和Cells 集合对象 Cell 对象代表单个表格单元格。
Cells 集合对象是由表格列、表格行、选定内容或区域中的 Cell 对象组成的集合。
Cell 对象是 Cells 集合中的元素。Cells 集合代表指定对象中所有的单元格。用 Cells 属性可返回 Cells 集合。
用 Cell(row, column) 或 Cells(index)可返回 Cell 对象，其中 row 为行号，column 为列号，index 为索引序号。
5、Row 对象和Rows 集合对象 Row 对象代表表格的一行。
Rows 集合对象是由 Row 对象所组成的集合，该集合中的对象代表指定的选定部分、区域或表格中的表格行。Row 对象是 Rows 集合中的一个元素。
用 Rows 属性可返回 Rows 集合。下例在左右边距之间居中活动文档第一张表格的各行，即表格在页面上居中。
MyWord.ActiveDocument.Tables(1).Rows.Alignment = 1
用 Rows(index) 可返回单独的 Row 对象，其中 index 为索引序号。索引序号代表该行在选定部分、区域或表格中的位置。
（1）Height 属性
返回或设置表格中指定的某一行或某几行的高度（以磅为单位）。数值型。下例显示表格第一行的高度为25磅。
MyWord.ActiveDocument.Tables(1).Rows(1).Height=25 （2）Delete 方法
下列示例删除活动文档中第一张表格的首行。 MyWord.ActiveDocument.Tables(1).Rows(1).Delete （3）SetHeight 方法
语法：expression.SetHeight(RowHeight, HeightRule) 设置表格行的高度。
expression 必需。该表达式返回一个Row或Rows对象。 RowHeight 数值型，必需。一行或多行的高度，以磅为单位。
28
HeightRule 数值型，必需。确定指定行的高度的方法，有三种方式可以选择，编号分别为0、1和2。
下列示例设置活动文档的第一个表格的第一行高度为30磅。 MyWord.ActiveDocument.Tables(1).Rows(1). SetHeight(30,0) 6、Column 对象和Columns 集合对象 Column 对象代表单个表格列。
Columns 集合对象是由 Column 对象所组成的集合，该集合中的对象代表表格中的列。Column 对象是 Columns 集合的一个元素。
用 Columns 属性可返回 Columns 集合。下列示例显示活动文档的第一张表格的 Columns 集合中 Column 对象的个数。
? MyWord.ActiveDocument.Tables(1).Columns.Count
使用 Columns(index) 可返回单独的 Column 对象，其中 index 为索引序号。索引序号代表该列在 Columns 集合中的位置（从左至右计算）。
下列示例选定活动文档中的第一个表格的第一列。 MyWord.ActiveDocument.Tables(1).Columns(1).Select （1）Width 属性
返回或设置指定的Column 对象的宽度。
下列示例设置活动文档中的第一个表格的第一列宽度为60磅。 MyWord.ActiveDocument.Tables(1).Columns(1). Width=60 （2）Delete 方法
下列示例删除活动文档中第一张表格的第二列。 MyWord.ActiveDocument.Tables(1). Columns(2).Delete （3）SetWidth 方法
语法：expression.SetWidth(ColumnWidth, RulerStyle) 设置表格列或单元格的宽度。
expression 必需。该表达式返回一个Column或Columns对象。 ColumnWidth 必需，数值型。指定列的宽度，以磅为单位。 RulerStyle 必需，数值型。控制调整单元格宽度的方式： 0－将所有选定的单元格或列的宽度设为指定值。Word 通过必要的左右移动保持所有未选中列的宽度。此常量是该参数的默认值。
29
1－仅将第一列单元格的宽度设为指定值。如果选中多列，Word 通过将按比例调整其它选定列的宽度，来保持表格的右边界或未选中列的位置。如果仅选中一列或一个单元格，Word 通过按比例调整其它列或单元格的宽度，保持表格的右边界。
2－仅将第一列单元格的宽度设为指定值。如果表多于一列，Word 将保持表格的右边界和其他列的位置。
3－仅将第一列单元格的宽度设为指定值。Word 通过调整所有其它列或单元格为相同宽度，保持表格的右边界。
7、合并与拆分单元格 （1）合并单元格
语法一：expression.Merge(MergeTo)
将选定的单元格与另一个单元格合并。合并结果是一个单独的单元格。
expression 必需。该表达式返回一个Cell对象。 MergeTo 必需，Cell 对象。要合并的单元格。
下例将活动文档的表 1 的前两个单元格合并，然后删除表格的边框。
With MyWord.ActiveDocument.Tables(1) .Cell(1,1).Merge(.Cell(1,2)) .Cell(1,1).Borders.Enable=.F. EndWith
语法二：expression.Merge
将选定的单元格合并。合并结果是单独的单元格。 expression 必需。该表达式返回一个Cells对象。
下例判断选择区域是否在表格中，且选择区域中的单元格总数大于1，则合并所选定单元格。
MyCell= MyWord.Selection.Cells.Count
If MyWord.Selection.Information(12) AND MyCell >1 MyWord.Selection.Cells.Merge EndIf
（2）拆分单元格
30
语法一：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