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.