Ok, danke Leute hab nun einen Ansatz auf dem sich ganz gut aufbauen lässt.
Code:
Private Sub CommandButton1_Click()
Dim AppWD As Object
Dim template As Object
Dim variable As String
variable = Range("A1")
Set AppWD = CreateObject("Word.Application")
AppWD.Visible = True
AppWD.Documents.Open "****\test\template.dotm"
AppWD.ActiveDocument.Bookmarks("marke").Range.Text = variable
End Sub