[VBA Word]-Parcours du document
blux
Messages postés
27910
Date d'inscription
Statut
Modérateur
Dernière intervention
-
blux Messages postés 27910 Date d'inscription Statut Modérateur Dernière intervention -
blux Messages postés 27910 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
je souhaite parcourir le document courant (en commençant par le début) afin de faire des recherches de lettres particulières (ou de groupes de lettres) pour leur appliquer une mise en forme particulière, mais je ne sais pas par quel bout prendre le problème.
J'ai bien essayé avec les sélections, mais je ne m'en sors pas.
Quelqu'un aurait une idée pour la boucle à faire ?
Merci d'avance
je souhaite parcourir le document courant (en commençant par le début) afin de faire des recherches de lettres particulières (ou de groupes de lettres) pour leur appliquer une mise en forme particulière, mais je ne sais pas par quel bout prendre le problème.
J'ai bien essayé avec les sélections, mais je ne m'en sors pas.
Quelqu'un aurait une idée pour la boucle à faire ?
Merci d'avance
A voir également:
- [VBA Word]-Parcours du document
- Word 2013 - Télécharger - Traitement de texte
- Tableau word - Guide
- Signer un document word - Guide
- Comment supprimer une page dans un document word - Guide
- Word et excel gratuit - Guide
2 réponses
Voici un moyen de procéder :
- Outils > Macro > Nouvelle macro
- tu effectues la modif de texte souhaitée
- tu arrêtes la macro => ça te génère le code
- ensuite tu vas sous Visual Basic (Alt F11) et tu bricoles le code comme tu veux
Voici un exemple qui remplace tous les "ou" en les mettant en gras :
Sub Macro1()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Bold = True
With Selection.Find
.Text = "ou"
.Replacement.Text = "ou"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
- Outils > Macro > Nouvelle macro
- tu effectues la modif de texte souhaitée
- tu arrêtes la macro => ça te génère le code
- ensuite tu vas sous Visual Basic (Alt F11) et tu bricoles le code comme tu veux
Voici un exemple qui remplace tous les "ou" en les mettant en gras :
Sub Macro1()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Bold = True
With Selection.Find
.Text = "ou"
.Replacement.Text = "ou"
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Merci mais ce ne n'est pas exactement ce que je souhaite faire. Le coup de l'enregistreur de macro n'est pas assez complet pour enregistrer mes actions.
Imagine que je veuille souligner les 'ph' en début mot dans un texte, en même temps que je mets en rouge les 'f' en début de mot, ça ne va pas le faire du tout...
Imagine que je veuille souligner les 'ph' en début mot dans un texte, en même temps que je mets en rouge les 'f' en début de mot, ça ne va pas le faire du tout...
