Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Word OLE kick-start...
Message
From
11/08/1997 04:34:26
Jean-Pierre Overbeek
New Limit Database Solutions
Amsterdam, Netherlands
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00043859
Message ID:
00043957
Views:
39
>>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 ???
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform