Como definir uma referência a um objeto palavra usando 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 wrdDoc

    Para 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:

LiveInternet