自动建立文档添加一个 3 行 4 列的空表格.doc

VFP控制WORD中表格 寻甸老李 编程实战：如何自动建立文档，并在文档开头添加一个 3 行 4 列的空表格Table 对象Tables 集合对象 Table 对象代表一个单独的表格。Tables 集合对象由 Table 对象组成的集合，这些对象代表选定内容、范围或文档中的表格。 Table 对象是 Tables 集合的一个成员。Tables 集合包含了指定的选定内容、范围或文档中的所有表格。 可使用 Tables 属性返回 Tables 集合。可使用 Tables(index) 返回一个 Table 对象，其中 index 为索引号。索引号代表选定内容、范围或文档中表格的位置。下例将活动文档中的第一个表格转换为文本。 ActiveDocument.Tables(1).ConvertToText expression.Add(Range, NumRows, NumColumns) 返回一个 Table 对象，该对象代表添加至文档中的空白新表格。expression??必需。该表达式返回一个 Tables 对象。 Range??Range 对象，必需。指定表格显示的区域。如果该区域未折叠，表格将替换该区域。 NumRows??型，必需。要在表格中包括的行数。 NumColumns??型，必需。要在表格中包括的列数。 在活动文档的开头添加一个 3 行 4 列的空表格。 yRange = MyWord.ActiveDocument.Range(0, 0) MyWord.ActiveDocument.Tables.Add(MyRange, 3, 4) 表格常用的几个属性： （1）PreferredWidthType 属性返回或设置指定单元格、列或表格的宽度的首选度量单位。设置 Microsoft Word 以窗口宽度的百分比来表示宽度，然后将文档的第一个表格的宽度设置为窗口宽度的 50%。 With ActiveDocument.Tables(1) ??? .PreferredWidthType = 2 ??? .PreferredWidth = 50 EndWith （2）AllowAutoFit属性 是否可以自动重新调整表格中的单元格的大小以适应内容。设置活动文档的第一张表格可自动调整大小以适应内容。 ActiveDocument.Tables(1).AllowAutoFit = .T. （3）AllowPageBreaks属性 是否允许对指定表格进行跨页断行。设置活动文档的第二个表格跨页断行。ActiveDocument.Tables(2).AllowPageBreaks = .T. 3、Border 对象Borders 集合对象Border代表一个对象的边框。Borders 集合对象由 Border 对象所组成的集合，该集合代表对象的边框。Border 对象是 Borders 集合中的元素。用 Borders 属性可返回 Borders 集合。 用 Borders(index) 可返回单个 Border 对象，其中 index 用来标识边框。索引序号可以是下列之一：边框框边框框LineStyle属性 返回或设置指定对象的边框线型。线设置活动文档的第一张表格。 ActiveDocument.Tables(1). Borders(-1). LineStyle =1 （2）LineWidth属性 返回或设置对象边框的线宽。设置活动文档的第一张表格。 ActiveDocument.Tables(1). Borders(-1). LineWidth =2 （3）Color属性 该属性返回或设置指定的 Border对象的 24 位颜色。该属性值是RGB 函数返回的值设置活动文档的第一张表格。 ActiveDocument.Tables(1).Borders(-1).Color =RGB(255,0,0) （4）Enable 属性 返回或设置指定对象的边框格式。如果指定对象的全部或部分边框应用了边框格式，则返回值为属性应用于指定对象的所有边框。如果该属性值为，则将线型设置为默认线型，将线条宽度设置为默认线条宽度。可以通过 DefaultBorderLineWidth 及 DefaultBorderLineStyle 属性来设置默认线型和默认线条宽度。 下例所示，将 Enable 属性的值设置为 F.，就可以删除对象中的所有边框。 ActiveDocument.Tables(1).Borders.Enable = .F. （5）DefaultBorderLineWidth 属性 返回或设置边框的默认线条宽度。DefaultBorderLineStyle 属性