Activate Word (Word XP )

[richardbarrett]

I need to activate Word (assuing it's running) or launch Word (if it's not) from Outlook. What is the best way to do this?

I know that there is a method "ActivateMicrosoftApp" but I can't find it in the object browser, and I don't know what its parent object is.

Thanks,
Richard Barrett

[jscher2000]

"ActivateMicrosoftApp" sounds familiar from Excel, but the memory is hazy. Here's one way to find Word running or start it if it isn't running:

Dim appWord As Object
On Error Resume Next
Set appWord = GetObject(, "Word.Application")
If Err.Number = 429 Then
Set appWord = CreateObject("Word.Application")
Err.Clear
ElseIf Err.Number <> 0 Then
MsgBox Err.Number & " = " & Err.Description, , "Error"
Exit Sub
End If
On Error GoTo 0
With appWord
.Visible = True
.Activate
End With
' More here if you are automating Word rather that just activating it
Set appWord = Nothing

[richardbarrett]

You're right.... that method is peculiar to Excel, which is why I couldn't find it in Outlook. So much for continuity across application!

Thanks for the code.