Etant peu doué dans le domaine, je cherche une âme charitable pour me filer un coup de main...
Je m'explique... Je recois des fichiers word avec pas mal de lignes à supprimer. J'ai déja écrit la partie qui permet de définir ces lignes, qui insere le texte "XXXXXXX" devant toutes les lignes à supprimer. Il me reste à insérer une boucle qui va supprimer toutes les lignes.
En gros, il faudrait une boucle autour de cette partie, qui cherche et supprime la ligne ou l'occurence est trouvée :
Code :
- Selection.Find.ClearFormatting
- With Selection.Find
- .Text = "XXXXXXX"
- .Replacement.Text = "XXXXXXX"
- .Forward = True
- .Wrap = wdFindAsk
- .Format = False
- .MatchCase = True
- .MatchWholeWord = False
- .MatchWildcards = False
- .MatchSoundsLike = False
- .MatchAllWordForms = False
- End With
- Selection.Find.Execute
- Selection.EndKey Unit:=wdLine, Extend:=wdExtend
- Selection.Delete Unit:=wdCharacter, Count:=1
|
Merci!!!
