Het instellen van een verwijzing naar een Word-Object met behulp van Excel VBA

Weten hoe om te verwijzen naar een woord object u bespaart tijd bij het programmeren in Visual Basic for Applications (VBA). Microsoft Word is een tekstverwerkingsprogramma opgenomen in de Microsoft Office-suite. VBA is een programmeertaal die gebruikelijk zijn in Microsoft Office-programma's voor het automatiseren van routinetaken. U wilt verwijzen naar een Word-object voor het schrijven van VBA-code om te lezen van een Word-document. In een paar stappen kunt u sommige subroutines om te lezen van een Word-document.

• Microsoft Excel 2007 open en klik op het tabblad 'Developer' en selecteer van 'Visual Basic'.

  Klik op het menu "Extra" en selecteer "Referenties …". Schakel het selectievakje "Microsoft Word 12.0 Object Library" en selecteer "OK."

• Typ het volgende als u wilt een nieuwe subroutine maken:

  Sub wordReference()

  Druk op "Enter".

• Typ het volgende als u verwijst naar een Word-object:

  Dim wordDoc As Word.Document

  Set wordApplication = CreateObject("Word.Application")

  Set wordDoc = wordApplication.Documents.Open("C:\WordDoc.doc")

  U kunt bewerken "C:\WordDoc.doc" en geef een pad op naar het Word-document dat u wilt verwijzen.

• Typ het volgende als u wilt aanroepen van de subroutine "readWord":

  Oproep readWord(wordDoc)

• Typ het volgende om te maken van de "readWord" subroutine en een berichtvenster weer met de tekst uit het Word-document lezen:

  Private Sub readWord (wrdDoc As Object)

  Dim pRange als Word.Range

  Dim pCnt As Long

   With wrdDoc For pCnt = 1 To .Paragraphs.Count Set pRange = .Range(Start:=.Paragraphs(pCnt).Range.Start, _ End:=.Paragraphs(pCnt).Range.End) MsgBox (pRange.Text) Next pCnt .Close End With 

  End Sub

• Druk op "F5" aan de "wordReference" subroutine uitgevoerd.