• Najnowsze pytania
  • Bez odpowiedzi
  • Zadaj pytanie
  • Kategorie
  • Tagi
  • Zdobyte punkty
  • Ekipa ninja
  • IRC
  • FAQ
  • Regulamin
  • Książki warte uwagi

vba- kopiowanie tekstu z worda do worda

Object Storage Arubacloud
0 głosów
444 wizyt
pytanie zadane 1 maja 2020 w Visual Basic przez rafi-vir Nowicjusz (140 p.)

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.

Zaloguj lub zarejestruj się, aby odpowiedzieć na to pytanie.

Podobne pytania

+1 głos
2 odpowiedzi 1,997 wizyt
pytanie zadane 19 marca 2021 w Visual Basic przez Jarek K. Początkujący (330 p.)
0 głosów
1 odpowiedź 209 wizyt
pytanie zadane 22 marca 2020 w Visual Basic przez qarq Początkujący (330 p.)
0 głosów
0 odpowiedzi 1,168 wizyt

92,681 zapytań

141,583 odpowiedzi

320,070 komentarzy

62,041 pasjonatów

Motyw:

Akcja Pajacyk

Pajacyk od wielu lat dożywia dzieci. Pomóż klikając w zielony brzuszek na stronie. Dziękujemy! ♡

Oto polecana książka warta uwagi.
Pełną listę książek znajdziesz tutaj.

Akademia Sekuraka

Niedawno wystartował dodruk tej świetnej, rozchwytywanej książki (około 940 stron). Mamy dla Was kod: pasja (wpiszcie go w koszyku), dzięki któremu otrzymujemy 10% zniżki - dziękujemy zaprzyjaźnionej ekipie Sekuraka za taki bonus dla Pasjonatów! Książka to pierwszy tom z serii o ITsec, który łagodnie wprowadzi w świat bezpieczeństwa IT każdą osobę - warto, polecamy!

...