salut
je vous remerci pour les efforts que vous faites avec les jeunne etudiants ou programmeurs et je vous en filicite
je suis un jeune marocain etudiant en systeme d'information et j'ai un probléme à resoudre
ma question est la suivante :
comment fdaire pour utiliser le correcteur d'orthographe de winword sur visual basic en utilisant l'AciveX "rishbox"
et merci
-------------------------------
Réponse au message :
-------------------------------
'Déclare tes variables:
Dim appWord As Word.Application
Dim NomFic As String
Dim Feuille As Word.Document
'Création d'un nom de fichier pour sauvegarde, que tu places ici par exemple dans le même dossier que ta Bdd:
NomFic = Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "\Bdd.mdb")) & "\Meticilenomdetondocument" & ".doc"
'Création du doccument à partir d'un modèle(dans lequel tu auras placé des signets (Menu Insertion de Word)):
FileCopy Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "\BasDonLab.mdb")) & "modèle.dot", NomFic
'Création d'une session automation word:
Set appWord = New Word.Application
Set Feuille = appWord.Documents.Open(NomFic)
'Désactive le correcteur d'orthographe:
appWord.ActiveDocument.ShowSpellingErrors = False
'Fait la correspondance entre le signet et la valeur que tu y places:
appWord.Selection.Goto wdGoToBookmark, Name:="meticilenomdusignet"
appWord.Selection.TypeText ("meticilenomduchampoularéférencerecordset")
'Bien sûr, fait cette manip pour chaque signet!
'et enfin éventuellement rend ton document visible pour correction
appWord.Visible = True
'place ce code dans une fonction ou un évenement formulaire.
mailto: