Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Word OLE kick-start...
Message
 
To
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:
00044119
Views:
31
>>>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 ???

Try without it, in the sample replace it by lsLanguage = "English". You can find more info in the file \msOffice\winword\Wrdbasic.hlp
Analystik Team
1430 Belanger
Montreal (Quebec)
Canada
(514) 278-2727
analyste@analystik.ca
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform