This works for me:
Private Sub cmdWrite_Click()
On Error GoTo Err_cmdWrite_Click
Dim mobjWordApp As Word.Application
Dim docs As Word.Documents
On Error Resume Next
Set mobjWordApp = GetObject("Word.Application")
If Err Then
Set mobjWordApp = CreateObject("Word.Application")
End If
On Error GoTo Err_cmdWrite_Click
Dim strTemplate As String
Dim strText As String
strTemplate = "Your Template path"
strText = "Your text"
Set docs = mobjWordApp.Documents
docs.Add strTemplate
With mobjWordApp
.Visible = True
.Activate
.Selection.TypeText text:=strText
End With
Exit_cmdWrite_Click:
Set docs = Nothing
Set mobjWordApp = Nothing
Exit Sub
Err_cmdWrite_Click:
MsgBox "Operation failed (Error No: " & Err.number & ": " &
Err.Description & "). Please try again.", vbInformation
Resume Exit_cmdWrite_Click
End Sub
