Word tablolarını program aracılığıyla belge özellikleriyle doldurma

Aşağıdaki örnek, belgenin en üstünde bir Microsoft Office Word tablosu oluşturur ve bunu konak belgenin özellikleriyle doldurur.

Şunlar için geçerlidir: Bu konudaki bilgiler, Word için belge düzeyi projeler ve VSTO Eklenti projeleri için geçerlidir. Daha fazla bilgi için bkz. Office uygulaması ve proje türüne göre kullanılabilen özellikler.

Belge düzeyinde özelleştirmede tabloları doldurma

Tablo oluşturmak ve belge özellikleriyle doldurmak için

1. Aralığı belgenin en üstüne ayarlayın.

   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. Tablo için bir başlık ekleyin ve paragraf işaretleri ekleyin.

   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. Tabloyu aralıktaki belgeye ekleyin.

   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. Tabloyu biçimlendirin ve bir stil uygulayın.

   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. Belge özelliklerini hücrelere ekleyin.

   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
   

   Aşağıdaki örnekte tüm yordam gösterilmektedir. Bu kodu kullanmak için projenizdeki sınıfından ThisDocument çalıştırın.

   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 Eklentisindeki tabloları doldurma

Tablo oluşturmak ve belge özellikleriyle doldurmak için

1. Aralığı belgenin en üstüne ayarlayın.

   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. Tablo için bir başlık ekleyin ve paragraf işaretleri ekleyin.

   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. Tabloyu aralıktaki belgeye ekleyin.

   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. Tabloyu biçimlendirin ve bir stil uygulayın.

   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. Belge özelliklerini hücrelere ekleyin.

   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
   

   Aşağıdaki örnekte tüm yordam gösterilmektedir. Bu kodu kullanmak için projenizdeki sınıfından ThisAddIn çalıştırın.

   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
   

---

İlgili içerik

• Nasıl yapılır: Program aracılığıyla Word tabloları oluşturma
• Nasıl yapılır: Word tablolarındaki hücrelere program aracılığıyla metin ve biçimlendirme ekleme
• Nasıl yapılır: Program aracılığıyla Word tablolarına satır ve sütun ekleme
• Office çözümlerinde isteğe bağlı parametreler