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