• 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

Aruba Cloud - Virtual Private Server VPS
0 głosów
509 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 2,325 wizyt
pytanie zadane 19 marca 2021 w Visual Basic przez Jarek K. Początkujący (330 p.)
0 głosów
1 odpowiedź 270 wizyt
pytanie zadane 22 marca 2020 w Visual Basic przez qarq Początkujący (330 p.)
0 głosów
0 odpowiedzi 1,307 wizyt

93,327 zapytań

142,323 odpowiedzi

322,393 komentarzy

62,655 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

Wprowadzenie do ITsec, tom 1 Wprowadzenie do ITsec, tom 2

Można już zamawiać dwa tomy książek o ITsec pt. "Wprowadzenie do bezpieczeństwa IT" - mamy dla Was kod: pasja (użyjcie go w koszyku), dzięki któremu uzyskamy aż 15% zniżki! Dziękujemy ekipie Sekuraka za fajny rabat dla naszej Społeczności!

...