Programové naplnění wordových tabulek vlastnostmi dokumentu

Následující příklad vytvoří systém Microsoft Office wordovou tabulku v horní části dokumentu a naplní ji vlastnostmi hostitelského dokumentu.

Platí pro: Informace v tomto tématu platí pro projekty na úrovni dokumentu a projekty doplňků VSTO pro Word. Další informace naleznete v tématu Funkce dostupné aplikace Office lication a typu projektu.

Naplnění tabulek v přizpůsobení na úrovni dokumentu

Vytvoření tabulky a jeho naplnění vlastnostmi dokumentu

1. Nastavte oblast na začátek dokumentu.

   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. Vložte název tabulky a vložte značky odstavců.

   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. Přidejte tabulku do dokumentu v rozsahu.

   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. Naformátujte tabulku a použijte styl.

   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. Vložte vlastnosti dokumentu do buněk.

   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
   

   Následující příklad ukazuje celý postup. Pokud chcete tento kód použít, spusťte ho ThisDocument z třídy v projektu.

   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
   

---

Naplnění tabulek v doplňku VSTO

Vytvoření tabulky a jeho naplnění vlastnostmi dokumentu

1. Nastavte oblast na začátek dokumentu.

   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. Vložte název tabulky a vložte značky odstavců.

   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. Přidejte tabulku do dokumentu v rozsahu.

   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. Naformátujte tabulku a použijte styl.

   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. Vložte vlastnosti dokumentu do buněk.

   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
   

   Následující příklad ukazuje celý postup. Pokud chcete tento kód použít, spusťte ho ThisAddIn z třídy v projektu.

   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
   

---

Související obsah

• Postupy: Vytváření wordových tabulek prostřednictvím kódu programu
• Postupy: Přidávání textu a formátování do buněk v tabulkách Wordu prostřednictvím kódu programu
• Postupy: Přidávání řádků a sloupců do tabulek Wordu prostřednictvím kódu programu
• Volitelné parametry v řešeních Office