Numéro d'article: 243844 - Dernière mise à jour: mercredi 28 mai 2008 - Version: 8.1

Comment automatiser Word à partir de Visual Basic ou Visual Basic pour Applications pour la vérification orthographique

Affichage côte à côteCliquez ici si vous souhaitez afficher en côte à côte l?article anglais et sa traduction automatique en français
Traduction automatiqueATTENTION : Cet article est issu du système de traduction automatique
Voir les produits auxquels s'applique cet article
A noterCet article s'applique à un système d'exploitation différent de celui que vous utilisez. Le contenu de l'article qui ne vous concerne peut-être pas est désactivé.

Sommaire

Agrandir tout | Réduire tout

Résumé

Logiciel écrit dans fonctionner avec Microsoft Office peut tirer parti de la fonctionnalités de Microsoft Word pour ajouter la correction orthographique à leur propre application de correction orthographique.

Modèle d'automatisation de Word contient une fonction CheckSpelling qui vous permet de vérifier l'orthographe d'un document hébergé dans Word. En utilisant Automation Word, les développeurs peuvent créer dynamiquement un nouveau document, ajouter du texte qu'il souhaite vérifier et puis demander à Word vérifie l'orthographe. Cet article explique comment automatiser Word pour fournir cette fonctionnalité.
Retour au début

Plus d'informations

Vous pouvez utiliser cet exemple de code à partir de Microsoft Visual Basic ou de Microsoft Visual Basic pour applications sans modification. Toutefois, l'exemple suppose que vous utilisez un client Visual Basic pour créer un nouveau projet.
Retour au début

Création d'un client vérification orthographique

  1. Démarrez Visual Basic et créez un nouveau projet EXE standard . Form1 est créé par défaut.
  2. Ajoutez un contrôle TextBox et un bouton de commande à Form1.
  3. Dans la fenêtre de code pour Form1, ajoutez le code suivant : 
    Option Explicit

Private Declare Function CoAllowSetForegroundWindow Lib "ole32.dll" (ByVal pUnk As Object, ByVal lpvReserved As Long) As Long

Private Sub Command1_Click()
    Dim oWord As Object
    Dim oTmpDoc As Object
    Dim lOrigTop As Long
    
    ' Create a Word document object
    Set oWord = CreateObject("Word.Application")
    
    CoAllowSetForegroundWindow oWord, 0

    Set oTmpDoc = oWord.Documents.Add
    ' Position Word off screen to avoid having document visible
    lOrigTop = oWord.Top
    oWord.WindowState = 0
    oWord.Top = -3000
    
    oWord.Visible = True
    oWord.Activate
    
    ' Copy the contents of the text box to the clipboard
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
    Clipboard.Clear
    Clipboard.SetText Text1.SelText
    
    ' Assign the text to the document and check spelling
    
    With oTmpDoc
        .Content.Paste
        .Activate
        .CheckSpelling
        
        ' After the user has made changes, use the clipboard to
        ' transfer the contents back to the text box
        .Content.Copy
        Text1.Text = Clipboard.GetText(vbCFText)
        ' Close the document and exit Word
        .Saved = True
        .Close
    End With
    Set oTmpDoc = Nothing
    
    oWord.Visible = False
    
    oWord.Top = lOrigTop
    oWord.Quit
    Set oWord = Nothing
End Sub
  4. Compilez et exécutez le programme. Appuyez sur le bouton de commande Command1 pour exécuter la vérification orthographique. Boîte de dialogue de Word l'orthographe à cocher s'affiche pour vérifier l'orthographe des mots « faute », « textt », « recevoir et « resultes ». Après avoir corrigé les mots mal orthographiés, le texte est renvoyé à la zone de texte.
Retour au début
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Office Word 2007
  • Microsoft Office Word 2003
  • Microsoft Word 2002 Standard Edition
  • Microsoft Word 2000 Standard Edition
  • Microsoft Word 97 Standard Edition
  • Microsoft Visual Basic 4.0 Édition professionnelle
  • Microsoft Visual Basic 5.0 Édition professionnelle
  • Microsoft Visual Basic 6.0 Édition professionnelle
  • Microsoft Visual Basic 4.0 Édition Entreprise
  • Microsoft Visual Basic 5.0 Édition Entreprise
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
Retour au début
Mots-clés : 
kbmt kbautomation kbhowto KB243844 KbMtfr
Retour au début
Traduction automatiqueTraduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 243844  (http://support.microsoft.com/kb/243844/en-us/ )
Retour au début
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.