Se você já começou a usar o Visual Basic for Applications ( VBA ) para Excel, você já viu como VBA pode transformar uma boa planilha em um grande. Macros gravados podem automatizar tarefas , mas o verdadeiro poder do VBA está no Editor do Visual Basic , onde você pode escrever procedimentos que ampliam as capacidades do Excel. Você também pode usar o VBA para Excel chegar do lado de fora , em um outro aplicativo do Office como o Word. Uma vez que ambos os aplicativos usam a linguagem de programação VBA, você pode escrever código no Excel para iniciar o Word e inserir texto em um documento. Execute o código de amostra e , em seguida, usar suas habilidades de VBA para modificar o código até que ele se adapte às suas necessidades. Instruções
1

Inicie o Word e abra um novo documento. Salve o documento com um novo nome , como " C: . \\ Testdoc.doc " Anote o nome que você escolheu , como você vai usá-lo em seu código VBA. Feche o documento e sair do Word .
2

Abra o Excel .
3

Inicie o Editor do Visual Basic. Botão direito do mouse na aba " Sheet1" na parte inferior da tela. Selecione "View Code ".
4

Adicione a biblioteca de objetos que contém objetos, propriedades e métodos para Word. Selecione "Ferramentas ", seguido de "Referências" no menu. Role a lista até encontrar "Microsoft Word xx.x Object Library " ( xx.x significa a versão ; . , Por exemplo , se você estiver usando o Office 2007 , procure a 12,0 Microsoft Word Object Library ) Marque a caixa de seleção , e clique em "OK".
5

Insira um módulo para realizar o seu código, selecionando "Inserir ", seguido de "Module" no menu.
6

Começar uma OnFilterComboChange . Digite o seguinte no novo módulo :

Sub Word_Text ()

Pressione " Enter". Excel gera automaticamente uma declaração de " End Sub " .
7

Declare variáveis. Digite o seguinte código entre o "Sub" e "End Sub " declarações :

Dim wdApp As Object , wdDoc As Object Dim

WordFile As String , enterstring As String
8

Defina o valor da variável " WordFile ", especificando o documento de teste que você criou no Word. Se mais tarde você quiser usar um documento diferente do Word, altere o nome do arquivo nesta linha de código. Digite o seguinte :

WordFile = "c : \\ Testdoc.doc "
9

Defina o valor da variável " enterstring " para o texto que você deseja adicionar no topo da documento do Word. Digite o seguinte :

enterstring = " . Adicione este texto para o arquivo"
10

Adicione uma rotina de tratamento de erros para verificar se o Word já está em execução . Se não , abra uma nova instância do Word. Digite o seguinte :

On Error Resume Next

Set wdApp = GetObject ( " Word.Application " )

Se wdApp Nothing Is Então

Set wdApp = CreateObject (" Word.Application " )

End If

On Error GoTo 0
11

Adicione código para abrir o documento do Word. Digite o seguinte :

Set wdDoc = GetObject ( WordFile )
12

Adicione código para fazer o aplicativo Word visível, e , em seguida, mover o ponto de inserção para o início do documento. Digite o seguinte: .

Com wdApp

Visible = True

Unidade Selection.HomeKey : . = WdStory , Extend : = wdMove

End With

13

Adicione código para escrever o texto de exemplo em " enterstring " para o documento do Word seguido por um retorno de carro. Digite o seguinte: . .

Com wdDoc.Content

InsertAfter enterstring

InsertParagraphAfter

Acabar com
14

Adicionar código para esvaziar as variáveis ​​de objeto , a fim de liberar a memória usada pelo aplicativo . Digite o seguinte: .

Set wdDoc = Nothing

Definir wdApp = Nothing

Deixe a declaração no lugar "Sub End"
15

Execute o código. Selecione "Run" , seguido de " Run Sub /UserForm " a partir do menu.
16

Ver o documento do Word exemplo que você criou na etapa 1. Na parte superior do documento , você deve ver uma leitura de linha, em "Adicionar este texto para o arquivo . "