Comment changer la couleur de surbrillance en jaune pour le texte qui sera saisi dans Word 2007 ?

Question

Dans une macro VBA dans MS Word 2007, je souhaite changer la couleur de surbrillance du texte en jaune pour le texte qui sera tapé ensuite à la position du curseur.

Si je veux changer la couleur du texte actuellement sélectionné, je peux le faire avecSelection.Range.HighlightColorIndex = wdYellow

Mais cela ne semble fonctionner que si le texte existe déjà et est sélectionné.Puis-je également définir la couleur de surbrillance sur jaune pour le texte qui sera inséré à la position du curseur ?

(E.g.Si je clique sur le bouton "Bold Font", tout le texte futur sera audacieux, mais cela ne semble pas fonctionner avec la fonction de surbrillance, ou y a-t-il un moyen de le faire?)

Answer 1

tout le texte futur sera en gras

Non, ce ne sera pas le cas.En cliquant bold vous marquez le point actuel du texte en gras, et si vous continuez à taper à partir de ce point, le texte sera en gras parce qu'il est tapé à partir d'un endroit en gras, et non parce que le bouton est enfoncé.Si vous cliquez bold, déplacez le curseur vers un autre endroit et tapez, il ne sera pas en gras.

La bonne méthode consiste à insérer le texte et à appliquer une mise en forme à sa plage.

Dim r As Range
Set r = Selection.Range

r.Collapse wdCollapseStart
r.InsertAfter "Text to insert"
r.HighlightColorIndex = wdYellow