Recherche:

Bonjour,

j'ai finalement saisi mon erreur dans l'ajout. J'aurais plutôt dû écrire:


For Each pAra In ActiveDocument.Paragraphs
If Not Mid(pAra.Range.Text, 1, 5) = "=NEW=" Then

Tout...

Bonjour Olivier,

j'ai réussi à faire fonctionner la macro (ma première avec Word). La macro semble prometteuse (super rapide) sauf que je voudrais aussi conserver toutes les lignes qui commencent...

Bonjour à tous,

j'ai un document word de plusieurs centaines de pages et j'aimerais savoir s'il est possible d'extraire que certaines lignes du document. Je fournis un exemple abrégé du document...