Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
No menu bar in Word97
Message
General information
Forum:
Visual FoxPro
Category:
Internet applications
Miscellaneous
Thread ID:
00124885
Message ID:
00128192
Views:
19
>Hi, does anybody have the same problem as me, when Word97 is not open I use createObject but when I present Word, there is no menu bar and no toolbar so the user can't print or save. Any suggestion? (I need to deal with Word English (at least) or French )
>
>
>
>I use this code to get a Word97 object
>
>CASE THIS.WordVersion = C_WORD97VB
> && Word is already open so I use it
> .objName = GETOBJECT(, "Word.Application.8")
>IF .bErrorWord97
> && .bErrorWord97 Flag turn in the Error method when Word is not open
> && Word is not open so I open it
> .objName = CREATEOBJECT("Word.Application.8")
>ENDIF

For those who can be interrest try this little code (Note, if word is open, it will create another instance)

LOCAL loWord
loWord = CREATEOBJECT("Word.Application.8")
WITH loWord
.APPLICATION.WINDOWSTATE = 2
.application.documents.add
.visible = .T.
.APPLICATION.ACTIVATE()
ENDWITH

RETURN

This code put Word in your task bar and you don't have any toolbar and menu bar
but if you change .APPLICATION.WINDOWSTATE = 2 for .APPLICATION.WINDOWSTATE = 0
It will show you every thing...
I hope it can be usefull for someone else..
Analystik Team
1430 Belanger
Montreal (Quebec)
Canada
(514) 278-2727
analyste@analystik.ca
Previous
Reply
Map
View

Click here to load this message in the networking platform