Forum Coders' city Strona Główna Coders' city
Nasza pasja to programowanie!
 

 PomocPomoc   SzukajSzukaj   UżytkownicyUżytkownicy   GrupyGrupy  RejestracjaRejestracja 
Archiwum starego forum + teoria    RSS & Panel/SideBar
 ProfilProfil   Zaloguj się, by sprawdzić wiadomościZaloguj się, by sprawdzić wiadomości   ZalogujZaloguj 

Potrzebuję szybkiej odpowiedzi na moje pytanie... Zasady

[Word] Funkcja zamieniające tekst



 
Odpowiedz do tematu    Forum Coders' city Strona Główna -> Oprogramowanie biurowe
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
kmkm
Gość





PostWysłany: Wto Mar 05, 2019 7:02 pm  OP    Temat postu: [Word] Funkcja zamieniające tekst Odpowiedz z cytatem Pisownia

Hey

Mam jakiś tekst, w którym występują zwroty „Pan/Pani” np.;
Cytat:
Przykładowy tekst Pan/Pani Przykładowy tekst Przykładowy tekst Przykładowy tekst Przykładowy tekst Pan/Pani … Przykładowy tekst Pan/Pani Przykładowy tekst Przykładowy tekst Przykładowy tekst Przykładowy tekst Pan/Pani …

i chciałbym zamienić te zwroty w całym tekście np. na „Pan”. Chciałbym to wykonać przy pomocy funkcji np. „zamianaPanPani”, którą to funkcje następnie umieszczę w procedurze

Kod:
Sub Makro1()
Funkcja  zamianaPanPani  := „Pan/Pani”
…inne instrukcje procedury  
End Sub

----------------------------------------------------------------------------
Kod:
Function  zamianaPanPani ( …)
Znajdź wyrażenie „Pan/Pani” i zamień je na „Pan”
End Function


Czy ktoś mógłby pomóc?
pzdr
Powrót do góry
karolinavb
Site Admin


Dołączył: 25 Maj 2005
Posty: 7901

PostWysłany: Wto Mar 05, 2019 8:32 pm      Temat postu: Odpowiedz z cytatem Pisownia

Kod:
Sub Test()
    Call Zamien(ThisDocument, "Pani")
End Sub

Sub Zamien(objDoc As Word.Document, _
           ByVal sNaCo As String)
    With objDoc.Range.Find
        .Replacement.ClearFormatting
        .Text = "Pan/Pani"
        .Replacement.Text = sNaCo
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With
End Sub
Powrót do góry
Zobacz profil autora Wyślij prywatną wiadomość
Wyświetl posty z ostatnich:   
Odpowiedz do tematu    Forum Coders' city Strona Główna -> Oprogramowanie biurowe Wszystkie czasy w strefie CET (Europa)

Strona 1 z 1

 
Skocz do:  
Możesz pisać nowe tematy
Możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Możesz dodawać załączniki na tym forum
Możesz pobierać pliki z tego forum




Debug: strone wygenerowano w 0.11171 sekund, zapytan = 11
contact

| Darmowe programy i porady Jelcyna | Tansze zakupy w Helionie | MS Office Blog |