vba- kopiowanie tekstu z worda do worda

Question

Witam,
Mam 2 pliki worda. Jeden plik to plik z danymi a drugi to szablon. W pierwszym pliku zaznaczam tekst (który jest sformatowany) i chciałabym, żeby ten tekst skopiowało z oryginalnym formatowaniem do pliku szablon. Mam taki kod:

    'eksport do Worda
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = False

    Set wordDoc = wordApp.Documents.Open("C:\wyciagi\szablon\szablon_wyciag.docm")

    Set wordSelection = wordApp.Selection
        
        '-- wstawianie tresci -----------------------------
        Selection.Copy
        zaznaczenie = Selection.Text
        'Selection.Find.ClearFormatting
        'Selection.Find.Replacement.ClearFormatting
        
        With wordSelection.Find
            .Text = "$tresc_punktu"
            .Forward = True
            .Replacement.Text = zaznaczenie
            .Wrap = wdFindContinue
        End With
        
        Do While Selection.Find.Execute
            Selection.PasteAndFormat (wdFormatOriginalFormatting)
       Loop
    
    '----- zapisanie do pliku ------------------------------
    wordDoc.SaveAs "C:\wyciagi\wyciag.doc", FileFormat:=wdFormatXMLDocument
    
    wordDoc.Close (False)
    Set wordDoc = Nothing

    wordApp.Quit
    Set wordApp = Nothing

Niestety powyższy kod nie wkleja zaznaczonego tekstu do pliku szablon.

Jeśli tekst: $tresc_punktu znajduje się w pliku pierwszym to zostanie zamieniony na zaznaczony tekst.