Make read only and being to top

[Sven62]

The code below opens the file as read only.



How can I make it also bring that Word doc to the top? Right now it opens behind the excel file where my form button resides.

Sub OpenWord() 
    Dim WordApp As Object 
    Dim WordDoc As Object 
     
    Set WordApp = CreateObject("Word.Application") 
    Set WordDoc = WordApp.Documents.Open(Filename:="C:\test\test.doc", ReadOnly:=True) 
    WordApp.Visible = True 
     
     'do your stuff
     
    Set WordDoc = Nothing 
    Set WordApp = Nothing 
End Sub

[macropod]

Try making your Excel form modeless.

[Sven62]

Excellent. How?

[Sven62]

The button or the whole worksheet?

[macropod]

As indicated in my previous reply, you make the userform modeless. If you examine the userform's properties, you'll see that it has one named 'ShowModal'. Simply set that to False. Do note that this also means your worksheets & workbooks will be accessible while the userform is in use.

[Sven62]

Ok thanks! I will try that on Monday.