Macro sous Word
Résolu/Fermé
A voir également:
- Macro sous Word
- Espace insécable word - Guide
- Macro word - Guide
- Supprimer une page word - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Organigramme word - Guide
2 réponses
m@rina
Messages postés
21652
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
23 février 2025
11 403
11 oct. 2018 à 02:50
11 oct. 2018 à 02:50
Bonjour,
Essaie plutôt ça :
Les enregistrements de macro, c'est pas terrible. C'est pratique pour aider.
Cela étant, en principe, une macro enregistre correctement le format pour un RR ainsi que l'utilisation des caractères génériques.
m@rina
Essaie plutôt ça :
Sub RR()
Dim mondoc
Set mondoc = ActiveDocument.Content
mondoc.Find.ClearFormatting
mondoc.Find.Replacement.ClearFormatting
mondoc.Find.Replacement.Font.Bold = True
With mondoc.Find
.Text = "M*."
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
End Sub
Les enregistrements de macro, c'est pas terrible. C'est pratique pour aider.
Cela étant, en principe, une macro enregistre correctement le format pour un RR ainsi que l'utilisation des caractères génériques.
m@rina