Discussion :

[Doom76]

Bonjour,

Je viens a peine de découvrir qu il était possible de faire des macros aussi sous word... Oui, on peut rire. Néanmoins mes connaissances sont assez minimalistes.

Mon problème est le suivant: je souhaiterais extraire seulement les lignes d un texte qui contiennent un certain mot pour ensuite coller ces lignes dans un nouveau document word. J ai des centaines de documents word du coup je compte les fusionner car je suppose que ce sera plus pratique. Je vais donc me retrouver avec un document de milliers de pages. J ai bien trouvé sur le forum cette solution de Heureux Oli (tiens je viens de comprendre le jeu de mot ) mais cela ne semble pas fonctionner pour mon cas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub ExtraireMots()
Dim pAra As Paragraph
Dim i As Integer
 
For Each pAra In ActiveDocument.Paragraphs
    i = Instr( pAra.range.text, "MonCaractère") 'i correspond à la position du caractère dans le paragraphe
 
Next pAra
 
End Sub

Y-aurait-il une bonne ame pour m aider? Un grand merci d avance!

[Heureux-oli]

Salut, ne fusionne pas les documents, on peut les ouvrir par macro un par un et extraire ce que l'on veut.
Quand tu parles de lignes, ce sont réellement des lignes ou des paragraphes ?

[Doom76]

Merci pour ta réponse. J aurais souhaité extraire une ligne mais ne te prends pas la tete, ce post dans une autre partie du forum répond parfaitement a mes attentes: ici

Elle a été postée le lendemain de ma requete, j ai eu de la chance

Merci encore et très bonne journée!