Liebe Forumsmitglieder, 

ich möchte aus dem Excel herau ein Word-Dokument öffnen und den Inhalt der Textmarken ändern.

Ich habe mit Hilfe des Internet's folgende Function zusammengebastelt:

Function BMfuellen(actDoc As Document, BMName As String, BMText As String) As Boolean

    Dim BMRange As Range
       
    If actDoc.Bookmarks.Exists(BMName) Then
*       Set BMRange = actDoc.Bookmarks(BMName).Range   
        BMRange.Text = BMText
        actDoc.Bookmarks.Add BMName, BMRange
         
        Set BMRange = Nothing
        BMfuellen = True
    End If
    
End Function

In der mit * gekennzeichnete Zeile bekomme ich die Fehlermeldung "Typen unverträglich"

Wo liegt hier der Fehler?

Da ich so gut wie keine Ahnung von VBA habe bitte ich um eure Hilfe.

Vielen Dank im Voraus!

Karl