open a Ms Word Application from browser

Sheikh Abdul Jaweed · December 11th, 2006, 07:32 AM

Hi Dear,

I need to open a Ms Word Application from browser separately, which is working fine, but the problem is, it is opening in a minimize mode. I need it to be open in maximize mode with control/focus in it.
Below is my code.

    sub displayRTFDoc(rtfUrl)
        Dim oWordApp
        Set oWordApp = CreateObject("Word.Application")
        oWordApp.Visible = True
        oWordApp.Documents.Open(rtfUrl)
        oWordApp.Documents(1).Activate
        Set oWordApp = Nothing
    end sub

thanks
Jaweed

BrianWren · December 15th, 2006, 02:19 PM

Isn't there a .Maximize method?

Code:

    sub displayRTFDoc(rtfUrl)
        Dim oWordApp
        Set oWordApp = CreateObject("Word.Application")
        oWordApp.Visible = True
        oWordApp.Maximize
        oWordApp.Documents.Open(rtfUrl)
        oWordApp.Documents(1).Activate
        Set oWordApp = Nothing
    end sub

I'm not positive. It just seems to me that I remember that there is.

When I record a macro in Word, it creates

Code:

    Application.WindowState = wdWindowStateMaximize

So maybe what you need to use is:

Code:

        oWordApp.WindowState = wdWindowStateMaximize ' (The value of the const is 1...)