Go back to group page | Go to next unread message | Fixed font
On Error Resume Next
blnWeCreated = False
Set myWord = GetObject(, "Word.Application")
If myWord Is Nothing Then
blnWeCreated = True
Set myWord = New Word.Application
End If

That way you know if you want to shut it down when finished.

Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm

"McKilty" <bluesbrthr@gmail.com> wrote in message
news:d83703e0-3281-40ef-a3f6-d62024fd923f@a7g2000yqo.googlegroups.com...
> Thanks.
>
> I'm not sure if this is the best solution either, but it works better
> than what I was doing.
>
>
> On Error Resume Next
> Set myWord = GetObject(, "Word.Application")
> If Err.Number <> 0 Then
> Set myWord = New Word.Application
> End If
> On Error GoTo 0
<<Newer / Older>>
Mark all as read
12 Oct 2009Word as E-mail Editor issues.McKilty
12 Oct 2009\ Re: Word as E-mail Editor issues.McKilty
12 Oct 2009   \ Re: Word as E-mail Editor issues.Ken Slovak - [MVP - O...
12 Oct 2009      \ Re: Word as E-mail Editor issues.McKilty
12 Oct 2009         \ Re: Word as E-mail Editor issues.Ken Slovak - [MVP - O...
Contact Us
All times are in (US) Eastern Daylight Time (GMT -4:00)