Um dos primeiros passos para a aprendizagem de programação de computadores é aprender a ler a partir de um arquivo e adicionar o conteúdo para outro , como um documento do Word. VBA é uma linguagem de programação que pode ser usado em aplicativos do Microsoft Office para automatizar processos, tais como a cópia de dados entre os arquivos . No VBA , você pode usar objetos do Office para abrir documentos do Word ou outros aplicativos do Office , permitindo que você acesse programas externos e ainda manipular dados. Coisas que você precisa
Microsoft Office
Mostrar Mais instruções
1

Abra o Microsoft Office Word , clique na guia "Desenvolvedor" na fita e clique em " Visual Basic " para abrir a janela do editor de VBA. Clique no menu "Inserir" e clique em " Módulo " para inserir um novo módulo de código . Criar um novo procedimento sub:

copyFileContents Private Sub ( )
2

Adicione o seguinte código para criar os objetos de aplicação do Word e outras variáveis ​​:

Dim wrdApp Como Word.Application

wrdDoc Dim Word.Document

Dim i , r As Integer Dim

lCntr As Integer
3

Adicione código para abrir o arquivo de texto e copiar todo o seu conteúdo para uma matriz de cadeia :

Dim MyString (10) as String

Open " C \\ txt . " para a entrada como # 1

Do While Not EOF (1)

Input # 1, MyString ( lCntr )

lCntr = lCntr + 1

loop < br >

Fechar # 1
4

Copiar e colar o seguinte código para adicionar o conteúdo da matriz para o documento atual palavra:

For i = 0 To lCntr - 1 < br >

Selection.TypeParagraph

Selection.TypeText Texto: = MyString ( i)

MyString (i - 0) = ""

Next i

5

Adicione o seguinte código para adicionar alguns dados para o documento atual palavra:

Selection.TypeParagraph

Selection.TypeText Texto: = " Esta informação está na Palavra " < br >

Selection.Expand wdLine
6

Digite o seguinte código para abrir o arquivo de texto e adicione o texto adicionado na etapa anterior:

MyFile = "C: \\ < ,. nome do arquivo > txt "

fn = FreeFile ()

Abrir MyFile Para Output Como fn

Escrever # fn , Selection.Text

Fechar # fn
7

Adicione o seguinte código para liberar os objetos do Word a partir da memória e terminar o procedimento sub:

wrdApp.Quit

Set wrdDoc = Nothing

Set wrdApp = Nothing

End Sub
8

Pressione " F5" para executar o código VBA.