Information générale
Catégorie:
Codage, syntaxe et commandes
>>Hello,
>>
>>Is there anybody who can help met kick-start with Word-Ole, because I need to fill the company name in a Word order document. Can I use the word fields, or is there a better way???
>>
>>Please help, any word ole example is appreciated...
>>TIA
>>Greetings,
>>Jean-Pierre
>
>Here word ole that use to open a file. I hope it can help you.
>
>MyOLe = CREATEOBJECT("Word.Basic")
>
>lsLanguage = MyOLe.appInfo(16) && Test if Word is french or english
>DO CASE
> CASE lsLanguage = "Français"
> lsFileOpen = "MyOLe.FichierOuvrir"
> lsAppMinimize = "MyOLe.FenAppRéduction"
> lsAppActivate = "MyOLe.AppActiver"
>
> CASE lsLanguage = "English"
> lsFileOpen = "MyOLe.FileOpen"
> lsAppMinimize = "MyOLe.AppMinimize"
> lsAppActivate = "MyOLe.AppActivate"
>
> OTHERWISE
>
> RETURN
>ENDCASE
>
>MyFile = "c:\temp\temp.doc"
>MyFile = ["] + MyFile + ["]
>
>&lsFileOpen. (MyFile, 0) && Modele, nouvModel
>
>bMyMinimize = IIF (&lsAppMinimize.() = 0, .F., .T.)
>IF bMyMinimize
> &AppMinimize. && Fera un restore
>ENDIF
>&lsAppActivate. ("",1) && le 1 indique le moment, 1 -> now
Thanks Michel for your example, but when I try MyOLe.appInfo(16) I get an error:
OLE error 0x80020006 Unknown name... What am I doing wrong ???
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement