Dim wrdApp As Word.Application
On Error Resume Next
Set wrdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Err.Clear
Set wrdApp = CreateObject("Word.Application")
End If
wrdApp.Selection.InsertFile FileName:=myName, ConfirmConversions:=False