以编程方式使用文档属性填充 Word 表

下面的示例在文档的顶部创建 Microsoft Office Word 表格，并使用主机文档的属性填充它。

适用于： 本主题中的信息适用于 Word 的文档级项目和 VSTO 外接程序项目。 有关详细信息，请参阅办公室应用程序和项目类型提供的功能。

在文档级自定义中填充表

创建表格并使用文档属性填充它

1. 将范围设置为文档的顶部。

   C#

   object start = 0, end = 0; 
   Word.Range rng = this.Range(ref start, ref end);
   

   VB

   Dim rng As Word.Range = Me.Range(Start:=0, End:=0)
   

2. 插入表格标题，并包括段落标记。

   C#

   rng.InsertBefore("Document Statistics"); 
   rng.Font.Name = "Verdana"; 
   rng.Font.Size = 16; 
   rng.InsertParagraphAfter(); 
   rng.InsertParagraphAfter(); 
   rng.SetRange(rng.End, rng.End);
   

   VB

   With rng
       .InsertBefore("Document Statistics")
       .Font.Name = "Verdana"
       .Font.Size = 16
       .InsertParagraphAfter()
       .InsertParagraphAfter()
       .SetRange(rng.End, rng.End)
   End With
   

3. 在范围内向文档添加表格。

   C#

   rng.Tables.Add(this.Paragraphs[2].Range, 3, 2, ref missing, ref missing);
   

   VB

   rng.Tables.Add(Range:=Me.Paragraphs.Item(2).Range, NumRows:=3, NumColumns:=2)
   

4. 设置表格格式，并应用样式。

   C#

   Word.Table tbl = this.Tables[1];
   tbl.Range.Font.Size = 12; 
   tbl.Columns.DistributeWidth(); 
   
   object styleName = "Table Professional";
   tbl.set_Style(ref styleName);
   

   VB

   With Me.Tables.Item(1)
       .Range.Font.Size = 12
       .Columns.DistributeWidth()
       .Style = "Table Professional"
   End With
   

5. 将文档属性插入到单元格。

   C#

   tbl.Cell(1, 1).Range.Text = "Document Property";
   tbl.Cell(1, 2).Range.Text = "Value";
   
   tbl.Cell(2, 1).Range.Text = "Subject";
   tbl.Cell(2, 2).Range.Text = ((Office.DocumentProperties)(this.BuiltInDocumentProperties))
       [Word.WdBuiltInProperty.wdPropertySubject].Value.ToString();
   
   tbl.Cell(3, 1).Range.Text = "Author";
   tbl.Cell(3, 2).Range.Text = ((Office.DocumentProperties)(this.BuiltInDocumentProperties))
       [Word.WdBuiltInProperty.wdPropertyAuthor].Value.ToString();
   

   VB

   With Me.Tables.Item(1)
       .Cell(1, 1).Range.Text = "Document Property"
       .Cell(1, 2).Range.Text = "Value"
   
       .Cell(2, 1).Range.Text = "Subject"
       .Cell(2, 2).Range.Text = CType(Me.BuiltInDocumentProperties, Office.DocumentProperties) _
           (Word.WdBuiltInProperty.wdPropertySubject).Value.ToString()
   
       .Cell(3, 1).Range.Text = "Author"
       .Cell(3, 2).Range.Text = CType(Me.BuiltInDocumentProperties, Office.DocumentProperties) _
           (Word.WdBuiltInProperty.wdPropertyAuthor).Value.ToString()
   End With
   

   下面的示例显示完整的过程。 若要使用此代码，请从项目中的 ThisDocument 类运行它。

   C#

   private void CreateDocumentPropertyTable() 
   { 
       object start = 0, end = 0; 
       Word.Range rng = this.Range(ref start, ref end); 
   
       // Insert a title for the table and paragraph marks. 
       rng.InsertBefore("Document Statistics"); 
       rng.Font.Name = "Verdana"; 
       rng.Font.Size = 16; 
       rng.InsertParagraphAfter(); 
       rng.InsertParagraphAfter(); 
       rng.SetRange(rng.End, rng.End); 
   
       // Add the table.
       rng.Tables.Add(this.Paragraphs[2].Range, 3, 2, ref missing, ref missing);
   
       // Format the table and apply a style. 
       Word.Table tbl = this.Tables[1];
       tbl.Range.Font.Size = 12; 
       tbl.Columns.DistributeWidth(); 
   
       object styleName = "Table Professional";
       tbl.set_Style(ref styleName); 
   
       // Insert document properties into cells. 
       tbl.Cell(1, 1).Range.Text = "Document Property";
       tbl.Cell(1, 2).Range.Text = "Value";
   
       tbl.Cell(2, 1).Range.Text = "Subject";
       tbl.Cell(2, 2).Range.Text = ((Office.DocumentProperties)(this.BuiltInDocumentProperties))
           [Word.WdBuiltInProperty.wdPropertySubject].Value.ToString();
   
       tbl.Cell(3, 1).Range.Text = "Author";
       tbl.Cell(3, 2).Range.Text = ((Office.DocumentProperties)(this.BuiltInDocumentProperties))
           [Word.WdBuiltInProperty.wdPropertyAuthor].Value.ToString();
   }
   

   VB

   Private Sub CreateDocumentPropertyTable()
       Dim rng As Word.Range = Me.Range(Start:=0, End:=0)
   
       ' Insert a title for the table and paragraph marks.
       With rng
           .InsertBefore("Document Statistics")
           .Font.Name = "Verdana"
           .Font.Size = 16
           .InsertParagraphAfter()
           .InsertParagraphAfter()
           .SetRange(rng.End, rng.End)
       End With
   
       ' Add the table.
       rng.Tables.Add(Range:=Me.Paragraphs.Item(2).Range, NumRows:=3, NumColumns:=2)
   
       ' Format the table and apply a style.
       With Me.Tables.Item(1)
           .Range.Font.Size = 12
           .Columns.DistributeWidth()
           .Style = "Table Professional"
       End With
   
       ' Insert document properties into cells.
       With Me.Tables.Item(1)
           .Cell(1, 1).Range.Text = "Document Property"
           .Cell(1, 2).Range.Text = "Value"
   
           .Cell(2, 1).Range.Text = "Subject"
           .Cell(2, 2).Range.Text = CType(Me.BuiltInDocumentProperties, Office.DocumentProperties) _
               (Word.WdBuiltInProperty.wdPropertySubject).Value.ToString()
   
           .Cell(3, 1).Range.Text = "Author"
           .Cell(3, 2).Range.Text = CType(Me.BuiltInDocumentProperties, Office.DocumentProperties) _
               (Word.WdBuiltInProperty.wdPropertyAuthor).Value.ToString()
       End With
   End Sub
   

---

在 VSTO 外接程序中填充表

创建表格并使用文档属性填充它

1. 将范围设置为文档的顶部。

   C#

   object start = 0, end = 0;
   Word.Document document = this.Application.ActiveDocument;
   Word.Range rng = document.Range(ref start, ref end);
   

   VB

   Dim rng As Word.Range = Me.Application.ActiveDocument.Range( _
       Start:=0, End:=0)
   

2. 插入表格标题，并包括段落标记。

   C#

   rng.InsertBefore("Document Statistics");
   rng.Font.Name = "Verdana";
   rng.Font.Size = 16;
   rng.InsertParagraphAfter();
   rng.InsertParagraphAfter();
   rng.SetRange(rng.End, rng.End);
   

   VB

   With rng
       .InsertBefore("Document Statistics")
       .Font.Name = "Verdana"
       .Font.Size = 16
       .InsertParagraphAfter()
       .InsertParagraphAfter()
       .SetRange(rng.End, rng.End)
   End With
   

3. 在范围内向文档添加表格。

   C#

   rng.Tables.Add(document.Paragraphs[2].Range, 3, 2, ref missing, ref missing);
   

   VB

   rng.Tables.Add(Range:=Me.Application.ActiveDocument.Paragraphs.Item(2).Range, _
       NumRows:=3, NumColumns:=2)
   

4. 设置表格格式，并应用样式。

   C#

   Word.Table tbl = document.Tables[1];
   tbl.Range.Font.Size = 12;
   tbl.Columns.DistributeWidth();
   
   object styleName = "Table Professional";
   tbl.set_Style(ref styleName);
   

   VB

   With Me.Application.ActiveDocument.Tables.Item(1)
       .Range.Font.Size = 12
       .Columns.DistributeWidth()
       .Style = "Table Professional"
   End With
   

5. 将文档属性插入到单元格。

   C#

   tbl.Cell(1, 1).Range.Text = "Document Property";
   tbl.Cell(1, 2).Range.Text = "Value";
   
   tbl.Cell(2, 1).Range.Text = "Subject";
   tbl.Cell(2, 2).Range.Text = ((Office.DocumentProperties)(document.BuiltInDocumentProperties))
       [Word.WdBuiltInProperty.wdPropertySubject].Value.ToString();
   
   tbl.Cell(3, 1).Range.Text = "Author";
   tbl.Cell(3, 2).Range.Text = ((Office.DocumentProperties)(document.BuiltInDocumentProperties))
       [Word.WdBuiltInProperty.wdPropertyAuthor].Value.ToString();
   

   VB

   With Me.Application.ActiveDocument.Tables.Item(1)
       .Cell(1, 1).Range.Text = "Document Property"
       .Cell(1, 2).Range.Text = "Value"
   
       .Cell(2, 1).Range.Text = "Subject"
       .Cell(2, 2).Range.Text = CType( _
           Me.Application.ActiveDocument.BuiltInDocumentProperties,  _
           Office.DocumentProperties) _
           (Word.WdBuiltInProperty.wdPropertySubject).Value.ToString()
   
       .Cell(3, 1).Range.Text = "Author"
       .Cell(3, 2).Range.Text = CType( _
           Me.Application.ActiveDocument.BuiltInDocumentProperties,  _
           Office.DocumentProperties) _
           (Word.WdBuiltInProperty.wdPropertyAuthor).Value.ToString()
   End With
   

   下面的示例显示完整的过程。 若要使用此代码，请从项目中的 ThisAddIn 类运行它。

   C#

   private void CreateDocumentPropertyTable()
   {
       object start = 0, end = 0;
       Word.Document document = this.Application.ActiveDocument;
       Word.Range rng = document.Range(ref start, ref end);
   
       // Insert a title for the table and paragraph marks. 
       rng.InsertBefore("Document Statistics");
       rng.Font.Name = "Verdana";
       rng.Font.Size = 16;
       rng.InsertParagraphAfter();
       rng.InsertParagraphAfter();
       rng.SetRange(rng.End, rng.End);
   
       // Add the table.
       rng.Tables.Add(document.Paragraphs[2].Range, 3, 2, ref missing, ref missing);
   
       // Format the table and apply a style. 
       Word.Table tbl = document.Tables[1];
       tbl.Range.Font.Size = 12;
       tbl.Columns.DistributeWidth();
   
       object styleName = "Table Professional";
       tbl.set_Style(ref styleName);
   
       // Insert document properties into cells. 
       tbl.Cell(1, 1).Range.Text = "Document Property";
       tbl.Cell(1, 2).Range.Text = "Value";
   
       tbl.Cell(2, 1).Range.Text = "Subject";
       tbl.Cell(2, 2).Range.Text = ((Office.DocumentProperties)(document.BuiltInDocumentProperties))
           [Word.WdBuiltInProperty.wdPropertySubject].Value.ToString();
   
       tbl.Cell(3, 1).Range.Text = "Author";
       tbl.Cell(3, 2).Range.Text = ((Office.DocumentProperties)(document.BuiltInDocumentProperties))
           [Word.WdBuiltInProperty.wdPropertyAuthor].Value.ToString();
   }
   

   VB

   Private Sub CreateDocumentPropertyTable()
       Dim rng As Word.Range = Me.Application.ActiveDocument.Range( _
           Start:=0, End:=0)
   
       ' Insert a title for the table and paragraph marks.
       With rng
           .InsertBefore("Document Statistics")
           .Font.Name = "Verdana"
           .Font.Size = 16
           .InsertParagraphAfter()
           .InsertParagraphAfter()
           .SetRange(rng.End, rng.End)
       End With
   
       ' Add the table.
       rng.Tables.Add(Range:=Me.Application.ActiveDocument.Paragraphs.Item(2).Range, _
           NumRows:=3, NumColumns:=2)
   
       ' Format the table and apply a style.
       With Me.Application.ActiveDocument.Tables.Item(1)
           .Range.Font.Size = 12
           .Columns.DistributeWidth()
           .Style = "Table Professional"
       End With
   
       ' Insert document properties into cells.
       With Me.Application.ActiveDocument.Tables.Item(1)
           .Cell(1, 1).Range.Text = "Document Property"
           .Cell(1, 2).Range.Text = "Value"
   
           .Cell(2, 1).Range.Text = "Subject"
           .Cell(2, 2).Range.Text = CType( _
               Me.Application.ActiveDocument.BuiltInDocumentProperties,  _
               Office.DocumentProperties) _
               (Word.WdBuiltInProperty.wdPropertySubject).Value.ToString()
   
           .Cell(3, 1).Range.Text = "Author"
           .Cell(3, 2).Range.Text = CType( _
               Me.Application.ActiveDocument.BuiltInDocumentProperties,  _
               Office.DocumentProperties) _
               (Word.WdBuiltInProperty.wdPropertyAuthor).Value.ToString()
       End With
   End Sub
   

---

相关内容

• 如何：以编程方式创建 Word 表
• 如何：以编程方式向 Word 表格中的单元格添加文本和格式
• 如何：以编程方式向 Word 表添加行和列
• 办公室解决方案中的可选参数