VBA: Markierten Text kopieren

[Oelle74]

Hallo,
ich würde gerne mit einem VBA Makro den gesamtem markierten Text in einem Word-Dokument kopieren und in ein anderes Word-Dokument schreiben.
Dabei sollen sämtliche Formatierungen (fett, kursiv, Überschriften, Aufzählungen, etc.) erhalten bleiben. Auch sollen Tabellen, deren Text markiert ist, als Tabelle kopiert werden.
Hat jemand eine Idee?
Danke!

siehe auch: http://www.vba-forum.de/Forum/View.aspx?ziel=51653-Word_VBA:_Markierten_Text_kopieren

[Oelle74]

Ich habe folgenden Code, doch leider wird weder die Formatierung noch Tabellen mitkopiert:

Code: [Auswählen]

Sub CopyHighlightedTextColor()

    Dim rng As Range
    Dim AText
    Dim NameA
    Dim NameB

    NameA = ActiveDocument.Name
    Documents.Add
    NameB = ActiveDocument.Name
    Documents(NameA).Activate
   
    ActiveDocument.Range(0, 0).Select

    Set rng = Selection.Range

    With rng.Find

        .ClearFormatting
        .Highlight = True

        While .Execute(Forward:=True, Format:=True)
            'Note: 'rng' is now the range containing the matched content
            AText = rng.Text '= "" 'rng.FormattedText.HighlightColorIndex
            Documents(NameB).Activate
            Selection.TypeText Text:=AText
            Documents(NameA).Activate
        Wend

    End With

End Sub