Ecrire une macro word qui lance le correcteur d'orthographe

**max2245** · 08/01/2006, 00h51

Bonsoir,

j'aimerais créer une macro qui lance le correcteur
d'orthographe et de grammaire en français

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 If Options.CheckGrammarWithSpelling = True Then
        ActiveDocument.CheckGrammar
    Else
        ActiveDocument.CheckSpelling
    End If

J'ai ca dans mon programme sauf qu'il me lance le correctuer en anglais!

**jmfmarques** · 08/01/2006, 08h28

Lances ton renegistrement de macro
puis lances ton/tes correcteur(s)
Arrêtes ton enregistrement

TA MACRO EST ECRITE : ouvres-la et modifies-la comme tu l'entends ou copie la partie qui t'intéresse pour l'insécrer ailleurs.

**max2245** · 08/01/2006, 15h10

Oui je d'accord avec toi, mais quand je lance
le correcteur d'orthographe il me lance la coreection
en anglais.

Peux tu me dire où il faut que j'aille sous word pour qu'il me lance la
correction en français par défaut?

**zazaraignée** · 08/01/2006, 15h49

Salut

Outils > Langues > Langues...

Et vérifie si la bonne langue est sélectionnée.

C'est la macro qui ne contient pas le bon paramètre. Quand tu enregistres la macro, la barre titre de la boîte de dialogue Grammaire et orthographe devrait afficher la langue choisie pour le document.

Chez moi le code contient ces linges (suis québécoise)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Languages(wdFrenchCanadian).SpellingDictionaryType = wdSpelling
Languages(wdFrenchCanadian).DefaultWritingStyle = "Vérification rapide"
ActiveDocument.ActiveWritingStyle(wdFrenchCanadian) = _
        "Vérification rapide"

**max2245** · 08/01/2006, 16h15

Et verification rapide tu le définis comme un string?

Il faudrait m'envoyer le programme qui marche en entier pour que je le
teste.

Merci!

**AlainTech** · 08/01/2006, 16h19

Hola...

Il faudrait que...

Tu penses vraiment qu'on est à ton service?

As-tu essayé, comme on te l'a conseillé, de lancer l'enregistreur de macro et de changer la langue?

Faudrait un peu essayer de comprendre ce que tu fais et ne pas attendre qu'on fasse tout pour toi!

**max2245** · 08/01/2006, 16h24

Je suis quand même pas neuneu; j'ai un souci même
quand je choisi de choisir le français il me
remet l'anglais automatiquement....

Faut pas comprendre c'est word!

**AlainTech** · 08/01/2006, 16h27

N'y a-t-il pas un bouton ou une case à cocher pour dire "Par défaut"???

Faut bien chercher avant de dire "Faut pas comprendre"!

**max2245** · 08/01/2006, 16h33

Si tu pouvais me dire où on peut trouver ca sur word, cela m'aiderait.

J'ai cherché partout et niet!
JE clique sur dico en français et il me remet en anglais,
à n'y rien comprendre.

A mon avis faut certainement cocher uen option qui mette
le français par défaut mais je ne vois pas où c'est!

**AlainTech** · 08/01/2006, 16h36

Quand tu cliques sur "Dico en français", comme tu dis, il y a un bouton, en bas à gauche (sur 2003) ou à droite (sur 97), où il est écrit "Par défaut".

**max2245** · 08/01/2006, 16h36

Ne vous tracasser pas, cela n'a pas beaucoup d'importance,
je testerai le corecteur d'orthographe sur un autre ordi et je suis
sur que je n'aurai pas de soucis.

**AlainTech** · 08/01/2006, 16h40

Comme tu veux, c'est une manière de ne pas résoudre ses problèmes que de les déplacer...

**max2245** · 08/01/2006, 16h43

Bizarre, sur un document vierge sur lequel j'ecris
n'importe quoi cela me choisit el français par defaut.

Et quand je vais dans mon fichier synthese et que je lance
une deux macro successive une sous word qui lance une macro excel
il m'affiche apres le corecteur do'rthographe en anglais et
je ne peux plus le modifier!

............;

**AlainTech** · 08/01/2006, 16h48

Voici ce que me donne l'enregistreur de macro (sur 2003) quand je change la langue par défaut:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  ActiveDocument.AttachedTemplate.LanguageID = wdFrench
  ActiveDocument.AttachedTemplate.NoProofing = False
  Selection.LanguageID = wdFrench
  Selection.NoProofing = False
  Application.CheckLanguage = True

Peut-être, dans ton cas, faut-il décocher "Détecter automatiquement la langue"...

**jmfmarques** · 08/01/2006, 17h01

Et voilà ce que j'ai écrit il a plus de dix ans, alors que mes collègues utilisaient 3 langues (anglais, français et espagnol).

Cette macro, que j'ai retrouvée dans mes vieux tiroirs, est écrite en word Basic : à toi de la transposer en VB (c'est facile, quand même !!).

Elle permet de changer de correcteur, à condition d'avoir les 3 lexiques à bord, bien évidemment. Il te faudra bien sur ajouter cette macro dans ta barre Word et il sera plus élégant (mais tu sais surement faire celà, c'est le B.A. BA) de lui affecter une icone.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Dim MaListe$(5)
MaListe$(1) = "                 FRANCAIS"
MaListe$(2) = "                 ESPAGNOL"
MaListe$(3) = "                 ANGLAIS"
Maliste$(4) = " "
Maliste$(5) = "DEMARRER LA VERIFICATION"
Begin Dialog BoiteDlgUtilisateur 350, 160, "Choix / correcteur orthographique"
  Text 54, 2, 280, 30, "Choisissez la langue à corriger - Langue actuelle : " + UCase$(Langue$())
  ListBox 34, 26, 280, 84, MaListe$(), .MaListe
  OKButton 64, 120, 80, 21
  CancelButton 160, 120, 80, 21
End Dialog
Dim dlg As BoiteDlgUtilisateur
If Dialog(dlg) = 0 Then
  vfn$ = ""
Else
  err = 0 : vfn = dlg.Maliste : vfn$ = Maliste$(vfn)
  If vfn$ = "DEMARRER LA VERIFICATION" Then
    OutilsOrthographe
  Else
    If vfn$ = "                 FRANCAIS" Then mt$ = "Français"
    If vfn$ = "                 ESPAGNOL" Then mt$ = "Español"
    If vfn$ = "                 ANGLAIS" Then mt$ = "English (UK)"
  EndIf
  OutilsLangue .Langue = mt$, .Défaut
End If

**max2245** · 08/01/2006, 18h53

Bon j'ai testé maintenant ça marche il me le met en français!

Tu vas où pour supprimer le fait qu'il te détecte la langue automatiquement?

Word et moi cela fait deux!
C'est pas moi qui ai conçu le logiciel donc forcément!

**jmfmarques** · 08/01/2006, 18h58

Ben ! Chez moi : outils ==> langue ==> langue par défaut !!!

Mais on te l'a déjà dit et redit .

**max2245** · 08/01/2006, 19h05

Ah oui ok j'ai vu; j'ai du su faire par le passé,
mais comme j'utilise la version 2003, on n'a plus
ses repères surtout que je n'utilise jamais word!

Sous Unix j'ai utilisé Latex, c'est un peu spécial
mais une fois que l'on a l'habitude, ya pas mieux
au niveau du rendu ca c'est sur!

Merci pour votre aide!
Je ne suis pas franchement un adepte des produits microsoft,
surtout que cela change tous les ans pour pousser les utilisateurs à acheter la dernière version.

Bonne soirée!

Ecrire une macro word qui lance le correcteur d'orthographe

VBA Word

Vue hybride

Discussions similaires

Partager

Partager