Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
765 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro de suppression pour word

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Macro de suppression pour word

n°2301779
kamiorshei​tan
Posté le 08-06-2017 à 14:43:17  profilanswer
 

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.

mood
Publicité
Posté le 08-06-2017 à 14:43:17  profilanswer
 

n°2301819
caps lock
Posté le 09-06-2017 à 10:52:57  profilanswer
 

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
  13. End Sub

n°2301827
kamiorshei​tan
Posté le 09-06-2017 à 13:00:38  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro de suppression pour word

 

Sujets relatifs
envois mail par macro sous excel mise en forme automatique des titres d'un fichier word par un macro v
Macro capture d'écranExport Excel=> TXT avec suppression doublon
Dialogue entre appli VB6 et WordMacro sur toutes les feuilles d'un classeur
Macro Replace entre 2 fichiers excelMacro qui lance application avec Utilisateur et mdp
Plus de sujets relatifs à : Macro de suppression pour word



Copyright © 1997-2016 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR