プログラムによって Word テーブルに文書のプロパティを設定する

次の例ではドキュメントの先頭に Microsoft Office Word の表を作成し、ホスト ドキュメントのプロパティのデータをそこに読み込みます。

適用対象: このトピックの情報は、Word のドキュメント レベルのプロジェクトおよび VSTO アドインのプロジェクトに適用されます。 詳細については、「Office アプリケーションおよびプロジェクトの種類別の使用可能な機能」を参照してください。

ドキュメント レベルのカスタマイズで表にデータを読み込む

表を作成し、ドキュメントのプロパティ データをそこに読み込むには

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 の表に行と列を追加する
• Office ソリューションの省略可能なパラメーター