quarta-feira, 4 de julho de 2012

Adicionar e formatar uma tabela em um documento do Word

Para adicionar e formatar uma tabela em um documento de Word, abra um documento conforme mostrado neste post e utilize os seguintes comandos:

Dim docTable As Word.Table
Dim r As Integer = 2 'Número de linhas
Dim c As Integer = 2 'Número de colunas
docTable = docDoc.Tables.Add(docDoc.Bookmarks.Item("\endofdoc").Range, r, c)

With docTable
      .Range.Font.Name =
"Arial"'Nome da fonte
      .Range.Font.Size = 10 'Tamanho da fonte
      .Rows.Alignment = Word.WdRowAlignment.wdAlignRowCenter 'Alinhamento horizontal do texto nas linhas
      .Rows(2).Range.Font.Bold = 1 'Fonte em negrito na linha 2
      .Columns.DistributeWidth() 'Distribui a largura das células de acordo como conteúdo
      .Columns(1).Width = 50 'Especifica o tamanho da coluna 1
      .Cell(1, 1).Merge(docTable.Cell(2, 1)) 'Mesclar a célula (1, 1) com a célula (2, 1)
      .Cell(1, 1).Range.Text = "Texto"'Inserir texto na célula (1, 1)
      .Cell(1, 1).Range.Font.Bold = 1 'Texto da célula (1, 1) em negrito
      .Cell(1, 1).Range.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter 'Alinhamento horizontal do texto na célula (1, 1)
      .Cell(1, 1).VerticalAlignment = Word.WdCellVerticalAlignment.wdCellAlignVerticalCenter 'Alinhamento vertical do texto na célula (1, 1)
      .Cell(1, 1).Borders(Word.WdBorderType.wdBorderTop).Color = Word.WdColor.wdColorBlue 'Altera a cor da borda superior da célula (1, 1)
      .Cell(1, 1).Borders(Word.WdBorderType.wdBorderTop).LineStyle = Word.WdLineStyle.wdLineStyleSingle 'Altera o estilo da linha da borda superior da célula (1, 1)
      .Cell(1, 1).Borders(Word.WdBorderType.wdBorderTop).LineWidth = Word.WdLineWidth.wdLineWidth025pt 'Altera o tamanho da linha da borda superior da célula (1, 1)
      .Borders.InsideLineStyle = Word.WdLineStyle.wdLineStyleSingle 'Estilo das bordas internas da tabela
      .Borders.OutsideLineStyle = Word.WdLineStyle.wdLineStyleSingle 'Estilo das bordas externas da tabela
End With

Estes são os principais comandos. Explore outros.

Simples, não?

Nenhum comentário:

Postar um comentário