Originally Posted by
khagerman
Anthony,
I took this part of your example:
[vba]Set objWord = GetObject(, "Word.Application")
If Err.Number = 429 Then
Set objWord = CreateObject("Word.Application")
End If[/vba]
and I get an 'ActiveX can't create object' error message. Did I not take enough code?
Anthony,
Duh....This works fine now:
[vba] On Error Resume Next
Set objWord = GetObject(, "Word.Application")
If Err.Number = 429 Then
Set objWord = CreateObject("Word.Application")
End If
On Error GoTo Err_cmdPhoto[/vba]
Thanks very much for the help.