|
|
|
|
|
|
|
|
|
| Les codes free de FreeDev |
|
|
|
|
Comment verifier que Word 2000 est installe en tant que serveur OLE Automation ?
1 - Word doit être installe sur le poste
2 - La base de registre doit avoir les entrees suivantes :
- HKEY_CLASSES_ROOT\Word.Application\CurVer
{Defaut} = Word.Application.9
- HKEY_CLASSES_ROOT\ Word.Application\ CLSID
{Defaut} = {000209FF-0000-0000-C000-FFFFFF000046}
- HKEY_CLASSES_ROOT\ Word.Application.9\ CLSID
{Defaut} = {000209FF-0000-0000-C000-FFFFFF000046}
- HKEY_LOCAL_MACHINE\ Software\ CLASSES\ Word.Application\ CurVer
{Defaut} = Word.Application.9
- HKEY_LOCAL_MACHINE\ Software\ CLASSES\ Word.Application.9\ CLSID
{Defaut} = {000209FF-0000-0000-C000-FFFFFF000046}
- HKEY_LOCAL_MACHINE\ Software\ CLASSES\ Word.Application\ CLSID
{Defaut} = {000209FF-0000-0000-C000-FFFFFF000046}
- HKEY_LOCAL_MACHINE\ Software\ CLASSES\ CLSID\ {000209FF-0000-0000-C000-FFFFFF000046}\LocalServer32
{Defaut} = "C:\PROGRA~1\ MICROS~5\ OFFICE\ Winword.exe /Automation"
- HKEY_LOCAL_MACHINE\ Software\ CLASSES\ CLSID\ {000209FF-0000-0000-C000-FFFFFF000046}\InprocHandler32
{Defaut} = "Ole32.dll"
- HKEY_LOCAL_MACHINE\ Software\ CLASSES\ CLSID\ {000209FF-0000-0000-C000-FFFFFF000046}\ProgID
{Defaut} = Word.Application.9
Note : il est possible de realiser la verification en VBA (Visual Basic Application) dans Excel par exemple
Sub TestOleWord()
Set Word = CreateObject("Word.Application")
Word.Visible = True
End Sub
3. Il ne faut pas qu un anti-virus soit configure pour interdire le dialogue via OLE Automation. |
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
| |
|
|