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

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

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

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

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

1. ドキュメントの先頭に、範囲を設定します。

   • C#
   • VB

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

2. 表のタイトルを挿入し、段落記号を含めます。

   • C#
   • VB

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

3. ドキュメントの範囲に表を追加します。

   • C#
   • VB

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

4. 表の書式を設定し、スタイルを適用します。

   • C#
   • VB

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

5. セルにドキュメントのプロパティを挿入します。

   • C#
   • VB

   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();
   

   次の例は、全手順を示しています。 このコードを使用するには、プロジェクトの ThisDocument クラスから実行します。

   • C#
   • VB

   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();
   }
   

VSTO アドインで表にデータを読み込む

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

1. ドキュメントの先頭に、範囲を設定します。

   • C#
   • VB

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

2. 表のタイトルを挿入し、段落記号を含めます。

   • C#
   • VB

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

3. ドキュメントの範囲に表を追加します。

   • C#
   • VB

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

4. 表の書式を設定し、スタイルを適用します。

   • C#
   • VB

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

5. セルにドキュメントのプロパティを挿入します。

   • C#
   • VB

   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();
   

   次の例は、全手順を示しています。 このコードを使用するには、プロジェクトの ThisAddIn クラスから実行します。

   • C#
   • VB

   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();
   }
   

関連するコンテンツ

• 方法: プログラムによって Word の表を作成する
• 方法: プログラムによって Word の表のセルにテキストと書式設定を追加する
• 方法: プログラムによって Word の表に行と列を追加する
• Office ソリューションの省略可能なパラメーター