ch habe folgendes Makro mit dem ich Textmarken von einem in das andere Dokument übertragen will. Allerdings fügt er einfach nur den Text ein. Da zwei Textmarken Tabellen enthalten müsste die Ursprungsformatierung beibehalten werden. Ist das irgendwie möglich?

    Sub KopierenTextmarken()
    Dim oDoc As Document
    Dim nDoc As Document
    Set oDoc = ActiveDocument
    Set nDoc = Documents.Open("H:\Tausch\mitteilung an SWK.docx")  ' Zieldokument öffnen
    ' Aufruf:
    ' fkt_ReplaceBookmarkTe Quelldokument, Zieldokument, Quell-Textmarke, Ziel-Textmarke
    fkt_ReplaceBookmarkText oDoc, nDoc, "a", "a"
    fkt_ReplaceBookmarkText oDoc, nDoc, "b", "b"
    fkt_ReplaceBookmarkText oDoc, nDoc, "ausfertigung", "c"
    '
    ' nDoc.Close SaveChanges:=True ' Zieldokument schließen
    End Sub

    Function fkt_ReplaceBookmarkText(ByRef oSource As Document, oTarget As Document, oSource_TM As String, oTarget_TM As String)
    Dim rng As Range
    If oSource.Bookmarks.Exists(oSource_TM) And oTarget.Bookmarks.Exists(oTarget_TM) Then
        Set rng = oTarget.Bookmarks(oTarget_TM).Range
        rng.Text = oSource.Bookmarks(oSource_TM).Range.Text
        oTarget.Bookmarks.Add oTarget_TM, rng
    End If
    End Function