Para registro, vou postar alguns códigos para que sirva de aprendizado para quem está começando e para consultas aos que já utilizaram e esquecem de vez em quando (como eu...).
Abaixo 3 formas de se referenciar células de uma tabela no Word, lembrando que o uso de tabelas é muito útil principalmente em documentos que devem ser preenchidos como contratos, recibos, etc.
;-)
Option Explicit Sub PreencheCelula() ActiveDocument.Tables(1).Rows(1).Cells(2).Range.Text = "Linha 1, coluna 2" ActiveDocument.Tables(1).Cell(2, 2).Range.Text = "Linha 2, coluna 2" ActiveDocument.Tables(1).Columns(2).Cells(3).Range.Text = "Linha 3, coluna 2" End Sub
Nenhum comentário:
Postar um comentário