Gewusst wie: Auffüllen von Word-Tabellen mit Dokumenteigenschaften

Artikel
08/10/2011

Im folgenden Beispiel wird eine Tabelle in Microsoft Office Word erstellt und am Anfang des Dokuments eingefügt. Anschließend wird die Tabelle mit den Eigenschaften des Dokuments aufgefüllt, in das sie eingefügt wird.

Betrifft: Die Informationen in diesem Thema betreffen Projekte auf Dokument- und auf Anwendungsebene für Word 2007 und Word 2010. Weitere Informationen finden Sie unter Verfügbare Funktionen nach Office-Anwendung und Projekttyp.

Auffüllen von Tabellen in einer Anpassung auf Dokumentebene

So erstellen Sie eine Tabelle und füllen diese mit Dokumenteigenschaften auf

Legen Sie den Bereich auf den Anfang des Dokuments fest.

Dim rng As Word.Range = Me.Range(Start:=0, End:=0)

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

Fügen Sie einen Titel für die Tabelle sowie Absatzmarken ein.

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

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

Fügen Sie dem Dokument im erstellten Bereich die Tabelle hinzu.

rng.Tables.Add(Range:=Me.Paragraphs.Item(2).Range, NumRows:=3, NumColumns:=2)

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

Formatieren Sie die Tabelle, und weisen Sie ihr ein Format zu.

With Me.Tables.Item(1)
    .Range.Font.Size = 12
    .Columns.DistributeWidth()
    .Style = "Table Professional"
End With

Word.Table tbl = this.Tables[1];
tbl.Range.Font.Size = 12; 
tbl.Columns.DistributeWidth(); 

object styleName = "Table Professional";
tbl.set_Style(ref styleName);

Fügen Sie die Dokumenteigenschaften in die Zellen ein.

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

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

Im folgenden Beispiel wird die gesamte Prozedur gezeigt. Wenn Sie diesen Code verwenden möchten, führen Sie ihn von der ThisDocument-Klasse im Projekt aus.

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

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

Auffüllen von Tabellen in einem Add-In auf Anwendungsebene