Affichage des dernières saisies dans une boite de dialogue

J'utilise Microsoft Word pour Windows version 2.0x avec lequel j'ai créé
des boites de dialogue qui me permettent de saisir des données.
J'aimerais pouvoir récupérer les dernières données saisies pour
les afficher dans ces boites de dialogue.

Il n'existe pas dans la version 2.0x de paramètres permettant de
sauvegarder directement les saisies de boites de dialogue. Il est
nécessaire de passer par une rubrique du WIN.INI dans lequel on stockera
les données.

Il est nécessaire d'utiliser les commandes WordBAsic suivantes :

- GetProfileString$(RUBRIQUE, ENTREE)
- RUBRIQUE : Section dans laquelle sera stockée dans le WIN.INI
- ENTREE : Nom de l'entrée de stockage

- SetProfileString (RUBRIQUE, ENTREE, a$)
- RUBRIQUE : Section dans laquelle sera stockée dans le WIN.INI
- ENTREE : Nom de l'entrée de stockage
- A$ : Valeur a stocké

Ces deux macro-commandes permettent de gérer les variables ENTREE et de
les rechercher dans le WIN.INI dans la RUBRIQUE.
Il sera nécessaire de faire autant de GetProfileString$ et
GetProfileString que de données saisies.
Si une ENTREE n'existe pas, GetProfileString$ aura la valeur chaîne de
caractère vide et SetProfileString la créera.

EXEMPLE :

La macro-commande suivante demande à l'utilisateur son nom et va
l'inscrire dans le WIN.INI dans la partie MIRCOSOFT WORD 2.0. Il le
restitue à l'exécution suivante de la macro-commande.
Elle utilise une boite de dialogue TEXTBOX pour saisir et afficher les
données.

ENVIRONNEMENT :

NOM : Variable qui stocke le nom dans le WIN.INI
RECUP$ : Variable récupérant la valeur de nom dans le WIN.INI
A$ : Variable de saisie de la boite de dialogue


CODE :
------
Sub MAIN
On Error Goto fin
RECUP$ = GetProfileString$("Microsoft Word 2.0", "NOM")
'Recupère la valeur de nom'
Begin Dialog UserDialog 274, 88, "MICROSOFT"
TextBox 56, 29, 160, 18, .textbox1
Text 56, 9, 159, 13, "Entrez votre nom ?"
OKButton 42, 56, 88, 21
CancelButton 145, 57, 88, 21
End Dialog
Dim dlg As Dialog UserDialog
dlg.textbox1 = RECUP$
Dialog dlg
a$ = dlg.textbox1
MsgBox "Votre nom est " + a$
SetProfileString "Microsoft Word 2.0", "nom", a$
'Réinitialise nom avec la nouvelle saisie
fin:
End Sub