Ouvrez Microsoft Excel 2007 et cliquez sur le "Développeur" puis sélectionnez l'onglet "Visual Basic."
Clique le "Outils" menu et sélectionnez "Références ...". Cochez la case à côté de "Microsoft Word 12.0 Object Library" et sélectionnez "D'ACCORD."
Tapez la commande suivante pour créer un nouveau sous-programme:
Sous Wordreference ()
Appuyez "Entrez."
Tapez la commande suivante pour référencer un objet Word:
WordDoc Dim Comme Word.Document
Réglez wordApplication = CreateObject ("Word.Application")
Réglez WordDoc = wordApplication.Documents.Open ("C: WordDoc.doc")
Vous pouvez modifier "C: WordDoc.doc" et entrez un chemin d'accès au document Word que vous souhaitez référencer.
Tapez la commande suivante pour appeler le "READWORD" sous-programme:
Appelez READWORD (WordDoc)
Tapez la commande suivante pour créer le "READWORD" sous-programme et afficher une boîte de message avec le texte lu à partir du document Word:
Private Sub READWORD (de wrdDoc As Object)
Dim Prange Comme Word.Range
Dim Pcnt As Long
Avec wrdDocPour Pcnt = 1 Pour .Paragraphs.Count
Réglez Prange = .Range (Début:. = Les paragraphes (Pcnt) .Range.Start, _
Fin:. = Les paragraphes (Pcnt) .Range.End)
MsgBox (pRange.Text)
Pcnt Suivant
.Fermer
End With
End Sub
Appuyez "F5" pour exécuter le "Wordreference" sous-programme.