Primeiros passos usando o Visual Basic for Applications ( VBA ) no Microsoft Word não é tão complicado como você pode pensar. VBA é uma linguagem de programação de computadores usados ​​em aplicativos do Microsoft Office para automatizar tarefas rotineiras. A maneira mais rápida de começar é através da utilização de macros. A macro VBA permite colocar Palavra no piloto automático , permitindo-lhe executar um conjunto de comandos com um clique ou uma tecla. Você pode gravar uma macro e editar a macro depois de ter sido criado para adicionar mais comandos , conforme necessário. Instruções
1

Inicie o Microsoft Word , clique na guia "Desenvolvedor" e clique em " Gravar Macro . " Digite " CreateTable " abaixo " Nome da macro " e clique no botão "OK" .
2

Clique no menu "Inserir" e clique no ícone "Tabela" . Arraste o mouse sobre as praças e clique no quadrado com o rótulo " Tabela 3x3 " para inserir uma nova tabela. Clique no ícone "Stop Recording" no painel de macros para parar a gravação da macro.
3

Clique na guia " Desenvolvedor " e clique em "Macros" para lançar a janela de diálogo Macros. Clique na macro " CreateTable " criado nas etapas anteriores e clique em "Editar " para abrir a janela do VB Editor. O seguinte código VBA foi gerado automaticamente para que você possa criar a tabela:

ActiveDocument.Tables.Add Faixa: = Selection.Range , NumRows : = 3, NumColumns : = _

3 , DefaultTableBehavior : = wdWord9TableBehavior , AutoFitBehavior : . = _

wdAutoFitFixed

Com Selection.Tables (1)

Se Estilo <> " Tabela Grid" Então

. style = " Tabela Grid"

End If

. ApplyStyleHeadingRows = True

. ApplyStyleLastRow = False

. ApplyStyleFirstColumn = True
. . .

ApplyStyleLastColumn =
Falso

ApplyStyleRowBands =
verdadeira

ApplyStyleColumnBands = False

End With

Selection.TypeText Texto: = " Nome "

Selection.MoveRight Unit : = wdCell

Selection.TypeText Texto: =" Sobrenome "

Selection.MoveRight Unit : = wdCell

Seleção . TypeText Texto: = " Grade"
4

Adicione o seguinte código VBA para preencher a tabela com os dados :

com Selection.Tables (1)

. celular (2, 1). Range.Text = " John "

. célula ( 2, 2) . Range.Text = " Smith "

. célula ( 2, 3) . Gama . Text = "B"

. celular (3, 1). Range.Text = " Oscar "

. celular (3, 2). Range.Text = " Ramos " < br >

. celular (3, 3). Range.Text = " a + "

End With
5

Pressione " F5" para executar a macro . Isto irá criar uma nova tabela com três colunas e três linhas , e vai preencher as células com dados.