Macro de suppression pour word

Macro de suppression pour word - VB/VBA/VBS - Programmation

Marsh Posté le 08-06-2017 à 14:43:17    

bonjour.
 
savez vous si c'est possible de créer une macro pour le cas de figure ci dessous:
 
Z1234567891 du ererererererere
Z12345678 du ererererererere
Z123456789 du erererererere
 
voila la structure de mon document Word je souhaiterais créer une macro qui supprime tout les éléments a partir de "du" pour chaque ligne.
 
pensez vous que cela est possible?
 
merci d'avance.

Reply

Marsh Posté le 08-06-2017 à 14:43:17   

Reply

Marsh Posté le 09-06-2017 à 10:52:57    

Tu peux faire quelque chose du genre

Code :
  1. Sub retire()
  2. Selection.Find.ClearFormatting
  3. With Selection.Find
  4.     .Text = "du"
  5.     .Replacement.Text = ""
  6.     .Forward = True
  7.  
  8. End With
  9. Selection.Find.Execute
  10. Selection.MoveEnd wdLine, 1
  11. Selection.MoveEnd wdCharacter, -1
  12. Selection.Delete
  14. End Sub

Reply

Marsh Posté le 09-06-2017 à 13:00:38    

merci beaucoup pour le macro il fonctionne j'ai juste rajouté ceci:
 
For nblignes = 1 To 200
Next nblignes
 
pour la répétition.

Reply

Sujets relatifs:

Leave a Replay

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