Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Bold = True
With Selection.Find
.Text = s
.Replacement.Text = s
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Le_prodige
:bounce:
Le_prodige
brubru99 a écrit a écrit :
Essaye ça.
Fait avec enregistrer macro :ange: Sub Macro()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Bold = True
With Selection.Find
.Text = "lemotsélectionné"
.Replacement.Text = "lemotsélectionné"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
ce prog marche et c un grand pas ! merci :jap: Mais cque jvoudrais c'est que le mot nous soit demandé par une fenetre.
brubru99
Essaye ça.
Fait avec enregistrer macro :ange: Sub Macro()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Bold = True
With Selection.Find
.Text = "lemotsélectionné"
.Replacement.Text = "lemotsélectionné"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Le_prodige
:bounce:
Le_prodige
Je pense pas que je puisse le faire par enregistrement ! il faudrait que jecrive le code directement !
mais voula le problem !:cry: comment mettre un popup qui nous demande une valeur(ou un mot)et qui puisse mettre en gras toutes ces valeurs (ou mots) dans un doc word !?? :jap:
tegu
Dans ce genre de cas, commence par réfléchir à la méthode que tu utiliserais simplement via l'interface Word.
Ensuite tu démarres une nouvelle macro et tu effectues toutes les opérations nécessaires pour arriver au résultat.
Il ne te reste qu'à arrêter l'enregistrement et aller modifier la macro pour voir toutes les instructions qui te seront utiles pour programmer toi-même ta macro VBA.
En l'occurence je pense qu'il te faudra passer par l'outil de recherche.
a+
nb: désolé, j'ai pas trop le temps d'être + précis pour le moment
Le_prodige
yop a écrit a écrit :
VBA Word ?
VBA Excel ?
VBA Access ?
vba word
yop
VBA Word ?
VBA Excel ?
VBA Access ?
Le_prodige
:bounce:
Le_prodige
jcommmence a cerné quelques truc en vba mais je suis encore faible
:( mé jvoudrais crée une macro sous word qui prend en parametre un mot et met en gras toutes les occurences de ce mot dans un texte
jespere que g été clair !! :??: thxx !! :jap:
[jfdsdjhfuetppo]--Message édité par Le_prodige--[/jfdsdjhfuetppo]
