Ho dato un'occhiata al codice e ho visto che hai scritto

codice:
Dim myWord As Word.Application
Set myWord = New Word.Application
Dim myWord2 As Word.Document

Set myWord = CreateObject("Word.Application")
che e' ambiguo (se non sbagliato). Dovrebbe essere

codice:
Dim myWord As Object

Set myWord = CreateObject("Word.Application")