Discussion :

[zied.ellouze]

Bonjour;
J'utilise le vérificateur d'orthographe de word avec ce code la

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
Public Function VerifOrthographe(TxtVérif As String) As String
'Cette fonction ouvre un projet (invisible) Microsoft Word
'et utilise le vérificateur d'othographe.
'Les corrections sont récupérées.
'Variables
Dim ObjMSWord As Object
Dim TxtProv As String
'Y a-t'il du texte à vérifier ?
If TxtVérif = "" Then
MsgBox "Rien à vérifier !", vbExclamation
Exit Function
End If
'Pointeur "sablier"
Screen.MousePointer = 11
'Définition de l'objet Word et appel de l'outil de vérification de l'orthographe
Set ObjMSWord = CreateObject("Word.Basic")
With ObjMSWord
.FileNew
.Insert TxtVérif
.ToolsSpelling ObjMSWord.EditSelectAll
.SetDocumentVar "TexteAVerifier", ObjMSWord.Selection
End With
'Récupération du texte (corrigé) après vérification
TxtProv = ObjMSWord.GetDocumentVar("TexteAVerifier")
TxtProv = Left(TxtProv, Len(TxtProv) - 1)
If TxtProv = "" Then
'Opération annulée par l'utilisateur
VerifOrthographe = TxtVérif
Else
VerifOrthographe = TxtProv
End If
'Fermeture du document provisoire et de Word
ObjMSWord.FileCloseAll 2
ObjMSWord.AppClose
Set ObjMSWord = Nothing
'Pointeur standard
Screen.MousePointer = 0
'Message en cas de bon déroulement de l'opération
If TxtProv = "" Then
MsgBox "Vérification ignorée !", vbExclamation
Else
MsgBox "Vérification terminée !", vbInformation
End If
End Function

tout va bien avec windows XP
mais lorsque j'ai migré mon système vers windows7
quand j'appelle le vérificateur il existe un problème que le vérificateur n'est pas en premier plan donc mon programme se bloque
j'ai cherché partout pour trouver une solution pour obliger le vérificateur d’être en premier plan mais sans résultat
est ce que quelqu'un peut m'aider et merci d'avance

[Overcrash]

Bonjour,

Un code indenté est préférable ...