Link to home
Start Free TrialLog in
Avatar of dmpuser
dmpuser

asked on

Maximize a word minimized

I must check if a document word, open in this way....

77     Set WordApp = Nothing
78     Set worddocument = Nothing


83  Set WordApp = New Word.Application
86   Set worddocument = WordApp.Documents.Open(percorso & "\" & Forms!reword.Elenco5, , , , , , False)

worddocument.CommandBars("Menu Bar").Controls(6).Controls(7).Enabled = False
worddocument.CommandBars("Menu Bar").Controls(6).Controls(6).Enabled = False
worddocument.CommandBars("Menu Bar").Controls(6).Controls(9).Enabled = False
worddocument.CommandBars("Menu Bar").Controls(6).Controls(10).Enabled = False
worddocument.CommandBars("Menu Bar").Controls(6).Controls(11).Enabled = False
worddocument.CommandBars("Menu Bar").Controls(6).Controls(12).Enabled = False

worddocument.CommandBars("Menu Bar").Controls(6).Controls(8).Enabled = False

worddocument.CommandBars("Menu Bar").Controls(1).Enabled = False
worddocument.CommandBars("standard").Controls(1).Enabled = False
worddocument.CommandBars("standard").Controls(2).Enabled = False
worddocument.CommandBars("standard").Controls(4).Enabled = False
worddocument.CommandBars("standard").Controls(5).Enabled = False
100    WordApp.Visible = True

...is open and minimized in the bar of windows .If yes It must maximized in the full screen !!
Avatar of 0xC0DEB07
0xC0DEB07

WordApp.WindowState = wdWindowStateMaximize

it will work it both cases
ASKER CERTIFIED SOLUTION
Avatar of 0xC0DEB07
0xC0DEB07

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of dmpuser

ASKER

Thanks a lot!!!!!!!!!!!!
You are wellcome
One more thing the WordApp.WidowState thing will work only when its after that line:
Set WordApp = New Word.Application

Have nice day!

Avatar of dmpuser

ASKER

....opsss....I have try to have the word window in the state of midle dimension do you handstand?

So I speak about when you click no "_" or not "x" in the top right of the window but you click the thirth button..

In this case if I click on my Access2000 button  the window is not maximized :-(((
I guess this is what you need:

WordApp.WindowState = wdWindowStateNormal
Avatar of dmpuser

ASKER

Infact I have tryied also this solution but the window is not maximized
Avatar of dmpuser

ASKER

ehi here you are???????
Avatar of dmpuser

ASKER

the window try to open but don't have success
Avatar of dmpuser

ASKER

the same situation I have in pdf document :-((((
>>Infact I have tryied also this solution but the window is not maximized

If you use:
WordApp.WindowState = wdWindowStateMaximize
instead of :
WordApp.WindowState = wdWindowStateNormal

The window will be maximized

>>the same situation I have in pdf document :-((((

I don't know if you can open pdf files with MS Office because I don't use.
As far as I know you cant manipulate Adobe Acrobat with vba.
You may want to open a new question so people who know the answers could help you

Regards
Avatar of dmpuser

ASKER

in word I have find the solution!!!!
Avatar of dmpuser

ASKER

.....and I think I have resolved the last problem...but I have a problem when I re-open the pdf file.


 
Avatar of dmpuser

ASKER

ok