c) Com as variáveis definidas, vamos agora criar um documento em branco:

'Inicia o Word e abre um novo documento.
oWord = CreateObject("Word.Application")        ‘ Abre o word.
oWord.Visible = True                            ‘ Diz que ele estará visível para o usuário.
oDoc = oWord.Documents.Add                      ‘ Cria um documento em branco.

d) Com o documento novo aberto, vamos criar um parágrafo:

'Insere um parágrafo no início do documento.
oPara1 = oDoc.Content.Paragraphs.Add        ‘ Cria um objeto do tipo parágrafo.
oPara1.Range.Text = "Este é o cabeçalho do documento"   ‘ Define um texto para ele.
oPara1.Range.Font.Bold = True                           ‘ Define que a fonte será em negrito.
oPara1.Format.SpaceAfter = 24    ‘ Define que haverá 24 pontos de espaço entre este e o próximo parágrafo.
oPara1.Range.InsertParagraphAfter()   ‘ Diz para inserir este parágrafo após a posição atual do cursor.

e) Vamos agora inserir dois parágrafos no final do documento (após o primeiro parágrafo criado no passo anterior):

'Insere um parágrafo no final do documento.
'** \endofdoc indica que é no final do documento que iremos inserir o novo parágrafo.
oPara2 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks.Item("\endofdoc").Range)    ‘ Indica o final.
oPara2.Range.Text = "Este texto está no final do documento"                     ‘ Texto.
oPara2.Format.SpaceAfter = 6                ‘ Define o espaçamento.
oPara2.Range.InsertParagraphAfter()         ‘ Insere o parágrafo.

'Insere outro parágrafo.
oPara3 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks.Item("\endofdoc").Range)
oPara3.Range.Text = "Abaixo deste parágrafo iremos inserir uma tabela:"
oPara3.Range.Font.Bold = False
oPara3.Format.SpaceAfter = 24
oPara3.Range.InsertParagraphAfter()