Hallo zusammen, 

ich habe einen Code geschrieben, der den Text zwischen zwei Bookmarks aus einem (Basis-) Word-Dokument kopiert und hinter einer Bookmark in einem (Ziel-) Word Dokument einfügt.

Es handet sich um folgendes Makro:

Sub TextzwischenBoookmarks()
Dim wdDocOld As Document
Dim wdDocNew As Document
Dim rngSrc As Range
Dim rngDst As Range
Dim rngStart As Range
Dim rngEnd As Range

    Set wdDocOld = ThisDocument
    Set wdDocNew = Documents.Open(FileName:="New.docx")
    
    With wdDocOld
        Set rngStart = .Bookmarks("Start").Range
        Set rngEnd = .Bookmarks("End").Range
        Set rngSrc = .Range(rngStart.Start, rngEnd.End)
    End With
    
    Set rngDst = wdDocNew.Bookmarks("Beginn_Neues_Doc").Range
    
    rngDst.InsertAfter rngSrc.Text
    
End Sub

"Start" und "Ziel" sind die Bookmarks aus dem alten Dokument, "Beginn_neues_Doc" ist die Bookmark aus dem neuen Dokument (hinter welche der Text kopiert wird).


Der Code funktioniert, jedoch habe ich zwei Probleme die ich bis jetzt nicht beheben konnte:
1) die Namen der Bookmarks, welche die Range im alten Dokument definieren, werden leider ebenfalls mit in das neue Dokument kopiert.
Um die zu lösen, habe ich Range.End +1 / Range.End -1 versucht, jedoch hat dies leider nicht funktioniert.


2) Da es sich bei der Bookmark im neuen Dokument ("Beginn_Neues_Doc") um Überschriften handelt, würde ich den Text gerne unter die Bookmark im neuen Dokument kopieren, also z.B:

"Beginn_neues_Doc"
Eingefügter Text


Könnt Ihr mir Tipps geben, wie mein Code modifiziert werden kann um die Probleme zu lösen?

Beste Grüße und noch einen schönen Feiertag,

Sarah