Public Sub AutoOpen()

Dim x
Dim Réf$
WordBasic.ViewPage
WordBasic.ViewZoom AutoFit:=1
WordBasic.DisableInput
WordBasic.Beep
'---définit la boite de dialogue avec liste-------------------------------
WordBasic.BeginDialog 584, 170, "Boite dialogue"
    WordBasic.Text 9, 14, 147, 13, "&Variable à insérer:"
    WordBasic.TextBox 165, 13, 160, 18, "variable"
    WordBasic.OKButton 480, 11, 88, 21
    WordBasic.CancelButton 480, 35, 88, 21
   WordBasic.EndDialog
WordBasic.PrintStatusBar "Appuyer sur le touche TAB pour passer au champ suivant.", " Cliquer sur un nom dans la liste"
'---permet d'ouvrir la boite---------------
Dim CP As Object: Set CP = WordBasic.CurValues.UserDialog
x = WordBasic.Dialog.UserDialog(CP)

'---si l'utilisateur clique sur annuler------------------------------------
If x = 0 Then
    WordBasic.MsgBox "Vous avez cliqué sur Annuler ou appuyé sur Esc, la macro est interrompue", "Message", 64
    GoTo exit_
End If
On Error GoTo -1: On Error GoTo exit_
'---insère les résultats dans le document------------------


      If ActiveDocument.Bookmarks.Exists("Var1") = True Then
         ActiveDocument.Bookmarks("Var1").Select
        'on utilise editgoto s'il ne s'agit d'un entête de page
        'WordBasic.WW7_EditGoTo "Var1"
WordBasic.WW2_Insert CP.Variable
End If
  

WordBasic.MsgBox "Vous pouvez maintenant commencer la saisie du document", "Fin de la macro", 64
exit_:
WordBasic.EndOfDocument
End Sub