如何:以编程方式创建 Word 表
Tables 集合是 Microsoft.Office.Interop.Word.Document、Microsoft.Office.Tools.Word.Document、Selection 和 Range 类的成员,这意味着您可以在其中任何上下文中创建一个表。可以使用 Tables 集合的 Add 方法在指定的范围添加表。
**适用于:**本主题中的信息适用于 Word 2013 和 Word 2010 的文档级项目和应用程序级项目。有关更多信息,请参见按 Office 应用程序和项目类型提供的功能。
在文档级自定义项中创建表
向文档中添加简单的表
使用 Add 方法在文档开头添加一个由三行四列组成的表。
若要使用下面的代码示例,请从项目内的 ThisDocument 类中运行此示例。
Dim tableLocation As Word.Range = Me.Range(Start:=0, End:=0) Me.Tables.Add(Range:=tableLocation, NumRows:=3, NumColumns:=4)
object start = 0; object end = 0; Word.Range tableLocation = this.Range(ref start, ref end); this.Tables.Add(tableLocation, 3, 4);
创建表时,该表会自动添加到 Microsoft.Office.Tools.Word.Document 宿主项的 Tables 集合中。然后,您可以使用 Item 属性按表的项编号引用该表,如以下代码所示。
通过项编号引用表
使用 Item 属性并提供要引用的表的项编号。
若要使用下面的代码示例,请从项目内的 ThisDocument 类中运行此示例。
Dim newTable As Word.Table = Me.Tables.Item(1)
Word.Table newTable = this.Tables[1];
每个 Table 对象还有一个 Range 属性,通过该属性可以设置格式设置特性。
对表应用样式
使用 Style 属性对表应用 Word 内置样式之一。
若要使用下面的代码示例,请从项目内的 ThisDocument 类中运行此示例。
Me.Tables.Item(1).Range.Font.Size = 8 Me.Tables.Item(1).Style = "Table Grid 8"
this.Tables[1].Range.Font.Size = 8; this.Tables[1].set_Style("Table Grid 8");
在应用程序级外接程序中创建表
向文档中添加简单的表
使用 Add 方法在文档开头添加一个由三行四列组成的表。
下面的代码示例向活动文档中添加表。若要使用此示例,请从项目内的 ThisAddIn 类中运行此示例。
Dim tableLocation As Word.Range = Me.Application.ActiveDocument.Range(Start:=0, End:=0) Me.Application.ActiveDocument.Tables.Add(Range:=tableLocation, NumRows:=3, NumColumns:=4)
Word.Range tableLocation = this.Application.ActiveDocument.Range(0, 0); this.Application.ActiveDocument.Tables.Add( tableLocation, 3, 4);
创建表时,该表会自动添加到 Microsoft.Office.Interop.Word.Document 的 Tables 集合中。然后,您可以使用 Item 属性按表的项编号引用该表,如以下代码所示。
通过项编号引用表
使用 Item 属性并提供要引用的表的项编号。
下面的代码示例使用活动文档。若要使用此示例,请从项目内的 ThisAddIn 类中运行此示例。
Dim newTable As Word.Table = Me.Application.ActiveDocument.Tables.Item(1)
Word.Table newTable = this.Application.ActiveDocument.Tables[1];
每个 Table 对象还有一个 Range 属性,通过该属性可以设置格式设置特性。
对表应用样式
使用 Style 属性对表应用 Word 内置样式之一。
下面的代码示例使用活动文档。若要使用此示例,请从项目内的 ThisAddIn 类中运行此示例。
Me.Application.ActiveDocument.Tables.Item(1).Range.Font.Size = 8 Me.Application.ActiveDocument.Tables.Item(1).Style = "Table Grid 8"
this.Application.ActiveDocument.Tables[1].Range.Font.Size = 8; this.Application.ActiveDocument.Tables[1].set_Style("Table Grid 8");
请参见
任务
如何:以编程方式向 Word 表中的单元格添加文本和格式设置