[Ikarus93]

Ok, danke Leute hab nun einen Ansatz auf dem sich ganz gut aufbauen lässt.

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