Microsoft Word est un programme de traitement de texte utilisé pour créer et formater des documents. Visual Basic pour Applications (VBA) est couramment utilisé pour automatiser des tâches répétitives entre les applications Microsoft Office comme Word, Excel et Access. En quelques étapes, vous pouvez écrire un petit sous pour lire un document Word dans VBA.
Ouvrez Microsoft Excel 2007. Cliquez sur le "Développeur" onglet et sélectionnez "Visual Basic." Type "Sous readWordDocuemnt ()" et appuyez sur "Entrer" pour créer un nouveau sous.
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
Tapez la commande suivante pour créer un nouveau classeur Excel et ouvrez le document Word à lire:
Workbooks.Add
Set wordApplication = CreateObject ("Word.Application")
Set WordDocument = wordApplication.Documents.Open ("C: Texte dans Word.doc")
Tapez ce qui suit à la boucle à travers les paragraphes du document Word et les ajouter au nouveau classeur Excel:
rXLRow = 2
Avec WordDocument
Pour pCount = 1 Pour .Paragraphs.Count
Set Prange = .Range (Démarrer:. = Les paragraphes (pCount) .Range.Start, _
Fin:. = Les paragraphes (pCount) .Range.End)
pText = pRange.Text
ActiveSheet.Range ("UNE" & rXLRow) .Formula = pText
rXLRow rXLRow = + 1
pCount Suivant
.Fermer
Terminer par
Tapez la commande suivante pour enregistrer le nouveau classeur, fermez Word et les variables claires:
wordApplication.Quit
Set WordDocument = Nothin:
Réglez wordApplication = Nothing
ActiveWorkbook.Saved = True
Exécutez la sous.
