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.