macro bascule pour afficher texte

[michir]

Bonsoir,
je recherche une macro pour afficher de manière alternative "Intervention sur site" ou Intervention à distance" en titre d'une page word. Je sais que le site est dédié à Excel mais s'agissant de macro le VBA est le même
On a proposé le code suivant, mais j'aimerais que l'affichage se fasse à un endroit désigné d'une feuille Word, et pas dans une msgbox:
Merci

Public Var As Boolean
Sub bascule()
If Var = False Then
Var = True
MsgBox "Intervention sur site"
Else
Var = False
MsgBox "Intervention à distance"
End If
End Sub

 

[Modeste]

Re : macro bascule pour afficher texte

Bonsoir

le Forum: Autres applications Microsoft Office était le mieux adapté! (Pascal, s'il passe par ici, déplacera le message au bon endroit, s'il le juge utile)

Pour répondre à ta question, une solution possible: insérer un signet. Place le curseur à l'endroit où le texte doit apparaître, puis onglet "Insertion" > groupe "Liens" > "Signet" (nommer ce signet "Test", par exemple). Le code pourrait être le suivant:

Sub signet()
ThisDocument.Bookmarks("test").Range.Text = _
    IIf(var = False, "Intervention sur site", "Intervention à distance")
End Sub