Preencher programaticamente tabelas do Word com propriedades de documento

Artigo
01/13/2024

O exemplo a seguir cria uma tabela do Microsoft Office Word na parte superior do documento e a preenche com as propriedades do documento host.

Aplica-se a: As informações neste tópico se aplicam a projetos de nível de documento e projetos de suplemento VSTO para Word. Para obter mais informações, consulte Recursos disponíveis por aplicativo e tipo de projeto do Office.

Preencher tabelas em uma personalização em nível de documento

Para criar uma tabela e preenchê-la com propriedades do documento

Defina o intervalo para a parte superior do documento.

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

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

Insira um título para a tabela e inclua marcas de parágrafo.

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

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

Adicione a tabela ao documento no intervalo.

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

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

Formate a tabela e aplique um estilo.

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

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

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

Insira as propriedades do documento nas células.

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

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

O exemplo a seguir mostra o procedimento completo. Para usar esse código, execute-o a ThisDocument partir da classe em seu projeto.

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

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

Preencher tabelas em um suplemento VSTO

Para criar uma tabela e preenchê-la com propriedades do documento

Defina o intervalo para a parte superior do documento.

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

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

Insira um título para a tabela e inclua marcas de parágrafo.

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

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

Adicione a tabela ao documento no intervalo.

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

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

Formate a tabela e aplique um estilo.

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

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

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

Insira as propriedades do documento nas células.

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

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

O exemplo a seguir mostra o procedimento completo. Para usar esse código, execute-o a ThisAddIn partir da classe em seu projeto.

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

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

Compartilhar via

Preencher programaticamente tabelas do Word com propriedades de documento

Preencher tabelas em uma personalização em nível de documento

Para criar uma tabela e preenchê-la com propriedades do documento

Preencher tabelas em um suplemento VSTO

Para criar uma tabela e preenchê-la com propriedades do documento

Comentários

Recursos adicionais

Compartilhar via

Preencher programaticamente tabelas do Word com propriedades de documento

Preencher tabelas em uma personalização em nível de documento

Para criar uma tabela e preenchê-la com propriedades do documento

Preencher tabelas em um suplemento VSTO

Para criar uma tabela e preenchê-la com propriedades do documento

Conteúdo relacionado

Comentários

Recursos adicionais