f) Agora iremos inserir uma tabela com 3 linhas e 5 colunas::

'Insere uma tabela e preenche ela com dados.
Dim r As Integer, c As Integer      ‘Duas variáveis de apoio para controlar linhas e colunas.
oTable = oDoc.Tables.Add(oDoc.Bookmarks.Item("\endofdoc").Range, 3, 5)  ‘ Cria a tabela.
oTable.Range.ParagraphFormat.SpaceAfter = 6     ‘ Define o espaçamento.
For r = 1 To 3          ‘ Laço para percorrer todas as linhas.
    For c = 1 To 5      ‘ Laço para percorrer todas as colunas.
            oTable.Cell(r, c).Range.Text = "Linha: " & r & "Coluna: " & c   ‘ Preenche com informações 
sobre linhas e colunas.
            Next
        Next
        oTable.Rows.Item(1).Range.Font.Bold = True          ‘ Define que a primeira célula será em negrito.
        oTable.Rows.Item(1).Range.Font.Italic = True        ‘ Define que a primeira célula será em itálico.

g) Agora vamos inserir um gráfico:

'Insere um gráfico.
oShape = oDoc.Bookmarks.Item("\endofdoc").Range.InlineShapes.AddOLEObject(ClassType:="MSGraph.Chart.8")
oChart = oShape.OLEFormat.Object
oChart.charttype = 4 'xlLine = 4        ‘ Diz que é um gráfico de linhas
oChart.Application.Update()
oChart.Application.Quit()

h) Pronto, finalizamos a edição do arquivo. Vamos agora salvar e fechar o documento:

oDoc.Save       ‘ Salva o documento.
oWord.Quit      ‘ Fecha o word.

i) Fim!

Neste link você encontrará informações completas de como um programa manipula um documento em Word: http://support.microsoft.com/kb/316383/pt-br.

Como você pôde observar, há uma série de componentes e objetos que criam os itens de um documento. Por meio da manipulação dos componentes, você consegue fazer um programa que manipula todo o documento.

Copyright © 2014 AIEC.