Open Word and Make Active 1

[sweevo]

Hello,

I have a script which opens a file in Word:

Sub openWord(sFilename)
  Set oWord = CreateObject("Word.Application")
  oWord.Visible = True
  oWord.Documents.Open(sFileName)
  Set oWord = nothing
End Sub

Currently this creates a Word instance behind any existing applications. What I need to know is, how can I make this the active/foremost window from the script?

Thanks.

 

[PHV]

Have a look at the WshShell.AppActivate method.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[sweevo]

Thanks,

Works well.

Here's what I have now...

Sub openWord(sFilename)
  Set oShell = CreateObject("wscript.shell")
  Set oWord = CreateObject("Word.Application")
  oWord.Visible = True
  oWord.Documents.Open(sFileName)
  oShell.AppActivate "Microsoft Word"
  Set oWord = nothing
  Set oShell = nothing
End Sub