Lire word

Question

Bonjour , je voudrais savoir comment faire pour lire ligne par ligne un fichier word  a partir
de vba
donc ouvri le fichier 
lire ligne par ligne
et refermer le fichier

michelxld · Answer

bonsoir

cette macro Excel boucle sur toutes les  phrases / lignes d'un document



Sub importLignesDocumentWord()
Dim Fichier As String, Direction As String
Dim wordApp As Word.Application
Dim wordDoc As Word.Document


Direction = ThisWorkbook.Path
Fichier = "monDocument.doc"


Set wordApp = CreateObject("Word.Application")
wordApp.Visible = False
Set wordDoc = wordApp.Documents.Open(Direction & "" & Fichier) 'ouverture documents word
j = j + 1
For i = 1 To wordDoc.Sentences.Count 'boucle sur les phrases/lignes du document
Debug.Print Application.WorksheetFunction.Substitute(wordDoc.Sentences(i).Text, Chr(13), "")
Next i


wordDoc.Close False 'fermeture documents word
wordApp.Quit
Set wordDoc = Nothing
Set wordApp = Nothing
End Sub

bonne soiree
michel

petiflamand · Answer

sa marche pas
je suis en vb5

michelxld · Answer

rebonsoir

il te suffit de l'adapter en VB ....

qu'est ce qui ne marche pas ?

bonne soiree
michel

petiflamand · Answer

je suis novice , donc l'adapter ??

ce qui ne vas pas c'est que je le mes ou ?

j'ai essayer dans un commande click mais sa marche pas

desoler ....
Je sait pas comment je doit la mettre ou  l'appeller

petiflamand · Answer

il conait pas sa

Dim Fichier As String, Direction As String
Dim wordApp As Word.Application
Dim wordDoc As Word.Document

michelxld · Answer

rebonsoir


tu dois prealablement activer la reference Microsoft Word Object xx.x Library ( xx.x d&#233;pend de ta version d'Office)
dans le Menu Projet / References ...


et pour ton essai , tu devras remplacer


Application.WorksheetFunction.Substitute(wordDoc.Sentences(i).Text, Chr(13), "")


par simplement


wordDoc.Sentences(i).Text


bonne soiree
michel

creas999 · Answer

il faut declare
Dim Fichier As String, Direction As String
Dim wordApp As Word.Application
Dim wordDoc As Word.Document

petiflamand · Answer

je vient de parcourir tout le repertoire dans objet et reference il parle pas de word ??
Si quelqu'un sait comment il s'apelle
et creas999 justement il veut pas  faire
Dim Fichier As String, Direction As String
Dim wordApp As Word.Application
Dim wordDoc As Word.Document

cs_loulou69 · Answer

Bonjour

Pour déclarer la référence à Microsoft Word Object xx.x Library  , il faut faire Parcourir et aller sur le dossier : c:\program files\Fichiers communs\microsoft SHared\OfficeXX\ et sélectionner MSO.DLL

cs_loulou69 · Answer

Bonjour

Pour déclarer la référence à Microsoft Word Object xx.x Library  , il faut faire Parcourir et aller sur le dossier : c:\program files\Fichiers communs\microsoft SHared\OfficeXX\ et sélectionner MSO.DLL

petiflamand · Answer

Sa marche pas non plus toujour la meme erreur de dim

cs_loulou69 · Answer

Je ne connais pas VB5 mais en VB6 si on declare sans typer les objets doans ce cas cela fonctionne

Dim WordApp as object
ou Dim AwordAPp

de même pour la variable WordDoc

petiflamand · Answer

j'ai fait le
 Dim WordApp as object
mais il connait toujour pas

Dim WordApp As Word.Application

Quelqu'un pourrait m'aider svp

cs_agh · Answer

Merci pour votre Code Vraiment C interessant
 mais le seul prob c que le VB ne reconnait pas cette lignes

Debug.Print Application.WorksheetFunction.Substitute(wordDoc.Sentences(i).Text, Chr(13), "")

au niveau de Substitute

je croix qu'il faut ajoutter des references
Mais lesquels???????

Merci
C gentil de votre part

michelxld · Answer

bonjour

dans l'exemple d'originie , Word &#233;tait pilot&#233; depuis Excel

tu peux faire un essai en utilisant directement

Debug.Print wordDoc.Sentences(i).Text

bon apres midi
michel

Lire word

15 réponses

Discussions similaires