Sub Dateizugriff_HP(ByVal Vorlagenname As String)
 
        m_wdApp = New Word.Application()
        m_wdApp.Visible = True
        m_wdDatei = m_wdApp.Documents.Open(Vorlagenname)
 
    End Sub

    Sub SprungmarkenFüllen(ByVal Marke As String, ByVal Text As String)
        With m_wdApp.Selection.Find
            .Text = Marke
            .Replacement.Text = Text
            .Forward = True
            .Wrap = Word.WdFindWrap.wdFindContinue
            .Execute(Replace:=Word.WdReplace.wdReplaceAll)
        End With
    End Sub