Supression de ligne en boucle (Word)

Supression de ligne en boucle (Word) - VB/VBA/VBS - Programmation

Marsh Posté le 13-03-2006 à 01:04:29    

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 :
  1. Selection.Find.ClearFormatting
  2.     With Selection.Find
  3.         .Text = "XXXXXXX"
  4.         .Replacement.Text = "XXXXXXX"
  5.         .Forward = True
  6.         .Wrap = wdFindAsk
  7.         .Format = False
  8.         .MatchCase = True
  9.         .MatchWholeWord = False
  10.         .MatchWildcards = False
  11.         .MatchSoundsLike = False
  12.         .MatchAllWordForms = False
  13.     End With
  14.     Selection.Find.Execute
  15.     Selection.EndKey Unit:=wdLine, Extend:=wdExtend
  16.     Selection.Delete Unit:=wdCharacter, Count:=1


 
 
Merci!!!
 

Reply

Marsh Posté le 13-03-2006 à 01:04:29   

Reply

Marsh Posté le 13-03-2006 à 02:08:11    

Ca y est j'ai fini par trouver...
 
 

Code :
  1. With Selection.Find
  2.       .ClearFormatting
  3.       .Forward = True
  4.       .Wrap = wdFindContinue
  5.       .Text = "XXXXXXX"
  6.       .Execute
  7.       Do While .Found = True
  8.         Selection.EndKey Unit:=wdLine, Extend:=wdExtend
  9.         Selection.Delete Unit:=wdCharacter, Count:=1
  10.          .Execute
  11.       Loop
  12.      
  13.      
  14.      
  15.      
  16.    End With


 
 :D

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed