Comment utiliser VBA pour lire un document Microsoft Word

Instructions

1. Ouvrez Microsoft Excel 2007. Cliquez sur le "Promoteur" onglet et sélectionnez "Visual Basic." Type "Sous readWordDocuemnt ()" et appuyez sur "Entrer" pour créer un nouveau sous.

2. Tapez la commande suivante pour déclarer vos variables:

   Dim wordApplication Comme Word.Application

   Dim WordDocument Comme Word.Document

   Dim pText As String

   Dim Prange Comme Word.Range

   PCount Dim As Long

   Dim rXLRow As Long

3. Tapez la commande suivante pour créer un nouveau classeur Excel et ouvrez le document Word à lire:

   
   
   
   

   Workbooks.Add

   Réglez wordApplication = CreateObject ("Word.Application")

   Réglez WordDocument = wordApplication.Documents.Open ("C: texte dans Word.doc")

4. Tapez la commande suivante pour parcourir les paragraphes dans le document Word et les ajouter à la nouvelle classeur Excel:

   rXLRow = 2

   Avec WordDocument

   Pour pCount = 1 Pour .Paragraphs.Count

   Réglez Prange = .Range (Début:. = Les paragraphes (pCount) .Range.Start, _

   Fin:. = Les paragraphes (pCount) .Range.End)

   pText = pRange.Text

   ActiveSheet.Range ("Un" & rXLRow) .Formula = pText

   
   
   
   

   rXLRow rXLRow = + 1

   PCount Suivant

   .Près

   End With

5. Tapez la commande suivante pour enregistrer le nouveau classeur, fermez Word et les variables clairs:

   wordApplication.Quit

   Réglez WordDocument = Nothin:

   Réglez wordApplication = Nothing

   ActiveWorkbook.Saved = True

6. Exécutez le sous.