Thank you very much. That code seems to be working exactly
as I hoped.

I just have one question about the getWord() function. There is
a line of code which reads as follows:

getWord.Visible = msoCTrue

getWord.Visible can only be assigned a True or False value,
so what exactly is this "msoCTrue" variable. I tried to Google it,
but the results came up with "msoTrue". Is this a typo???



"minimaster" wrote in message
...

Private Function getWord() As Word.Application
On Error Resume Next
Err.Clear
Set getWord = GetObject(, "Word.Application")
If Err.Number < 0 Then ' iff Word isn't there lets start it
Set getWord = CreateObject("Word.Application")
Err.Clear
End If
getWord.Visible = msoCTrue
End Function