Sub contexte()
'
' contexte Macro
' Macro créée le 05/04/2006 par JuLy
'
a$ = InputBox$("Entrez une phrase", "Contexte", "Ceci est le programme contexte")
b$ = InputBox$("Entrez un mot", "Contexte", "est")
k = InStr(a$, b$)
gch$ = Left$(a$, k - 1)
lg = Len(b$)
drt$ = Mid$(a$, k + lg)
MsgBox ("Le contexte gauche est : " + gch$ + Chr$(10) + "Le contexte droit est : " + drt$)

End Sub







Ce programme sert à récupèrer dans une boîte de dialogue le contexte gauche et droit d'un mot dans une phrase donnée.
On crée 2 boîtes de dialogue où l'utilisateur rentre la phrase qu'il veut dans la première, et dans la deuxième un mot de cette phrase dont il veut étudier le contexte gauche et droit..
les contextes gauche et droit du mot sont étudiés séparemment, puis les résultats sont réunis dans une dermière boite de dialogue (MsgBox).