Remplir par programmation des tables Word avec des propriétés de document

L'exemple suivant crée un tableau Microsoft Office Word en haut du document et le remplit avec les propriétés du document hôte.

S’applique à : les informations contenues dans cette rubrique s’appliquent aux projets au niveau du document et aux projets de complément VSTO pour Word. Pour plus d’informations, consultez Fonctionnalités disponibles par application Office lication et le type de projet.

Remplir des tables dans une personnalisation au niveau du document

Pour créer un tableau et le remplir avec des propriétés de document

1. Définissez la plage en haut du document.

   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. Insérez un titre pour le tableau et insérez des marques de paragraphe.

   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. Ajoutez le tableau au document au niveau de la plage.

   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. Mettez en forme le tableau et appliquez un style.

   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. Insérez les propriétés de document dans les cellules.

   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
   

   L'exemple suivant montre la procédure complète. Pour utiliser ce code, exécutez-le à partir de la classe ThisDocument de votre projet.

   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
   

---

Remplir des tables dans un complément VSTO

Pour créer un tableau et le remplir avec des propriétés de document

1. Définissez la plage en haut du document.

   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. Insérez un titre pour le tableau et insérez des marques de paragraphe.

   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. Ajoutez le tableau au document au niveau de la plage.

   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. Mettez en forme le tableau et appliquez un style.

   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. Insérez les propriétés de document dans les cellules.

   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
   

   L'exemple suivant montre la procédure complète. Pour utiliser ce code, exécutez-le à partir de la classe ThisAddIn de votre projet.

   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
   

---

Contenu connexe

• Guide pratique pour créer des tables Word par programmation
• Guide pratique pour ajouter par programmation du texte et une mise en forme aux cellules des tableaux Word
• Guide pratique pour ajouter des lignes et des colonnes à des tables Word par programmation
• Paramètres facultatifs dans les solutions Bureau