Excel-Opening Word
 

Hope someone can assist. I have an excel template which when accessed,
opens a workbook. A button in this work book(cmdCCA) is then supposed to
access a Word Template and open a doument into which I wish to place some
cell values from the work book via a Word UserForm.

The code below is fine apart from ".visible=True", The userform in the Word
Document is shown, however when trying to proceed, the code falls over a
this point, and the Word Document does not show.

BUT if running from an .xls and not an .xlt, it will work.

I'd appreciate any guidance

Al@n


Private Sub cmdCCA_Click()
Dim appWD As Object
Dim MyDoc As Object

Set appWD = CreateObject("Word.Application")

With appWD

Set MyDoc = .documents.Add(Template:= _
"C:\Documents and Settings\Alan\Desktop\Test1\CCS1.dot", _
NewTemplate:=False, DocumentType:=0)

MyDoc.Activate

..visble = True

End With
End Sub