Como definir uma referência a um objeto do Word usando o Excel VBA

Definir uma referência para um objeto do Word usando VBA.

Sabendo como fazer referência a um objeto do Word você pode economizar tempo durante a programação em Visual Basic for Applications (VBA). Microsoft Word é um aplicativo de processamento de texto incluído no pacote Microsoft Office. VBA é uma linguagem de programação utilizada em programas do Microsoft Office para automatizar tarefas de rotina. Você precisa fazer referência a um objeto do Word antes de escrever código VBA para ler um documento do Word. Em poucos passos, você pode escrever algumas sub-rotinas para ler um documento do Word.

Abra o Microsoft Excel 2007 e clique no "Desenvolvedor" guia, em seguida, selecione "Visual básico."
Clique no "Ferramentas" menu e selecione "Referências...". Marque a caixa ao lado "Microsoft Word 12.0 Object Library" e selecione "ESTÁ BEM."
Digite o seguinte para criar uma nova sub-rotina:
Sub WordReference ()
pressione "Entrar."
Digite o seguinte para fazer referência a um objeto do Word:
WordDoc Dim Como Word.Document
Definir wordApplication = CreateObject ("Word.Application")
Definir WordDoc = wordApplication.Documents.Open ("C: WordDoc.Doc")
Você pode editar "C: WordDoc.Doc" e digite um caminho para o documento do Word que você deseja referenciar.
Digite o seguinte para chamar o "ReadWord" sub-rotina:
Chamada ReadWord (WordDoc)
Digite o seguinte para criar o "ReadWord" sub-rotina e exibir uma caixa de mensagem com o texto lido a partir do documento do Word:

Private Sub ReadWord (wrdDoc As Object)
Dim Prange Como Word.Range
Dim Pcnt As Long
```
com wrdDocPara Pcnt = 1 To .Paragraphs.Count
Definir Prange = .Range (Iniciar:. = §§ (Pcnt) .Range.Start, _
End:. = §§ (Pcnt) .Range.End)
MsgBox (pRange.Text)
Próximo Pcnt
.Fechar
End With
```
End Sub
pressione "F5" para executar o "WordReference" sub-rotina.

De esta maneira? Compartilhar em redes sociais: