Forum Coders' city Strona Gwna Coders' city
Nasza pasja to programowanie!
 

 PomocPomoc   SzukajSzukaj   UytkownicyUytkownicy   GrupyGrupy  RejestracjaRejestracja 
Archiwum starego forum + teoria    RSS & Panel/SideBar
 ProfilProfil   Zaloguj si, by sprawdzi wiadomociZaloguj si, by sprawdzi wiadomoci   ZalogujZaloguj 

Potrzebuj szybkiej odpowiedzi na moje pytanie... Zasady

[Word] Funkcja zamieniaj?ce tekst



 
Odpowiedz do tematu    Forum Coders' city Strona Gwna -> Oprogramowanie biurowe
Zobacz poprzedni temat :: Zobacz nastpny temat  
Autor Wiadomo
kmkm
Go





PostWysany: Wto Mar 05, 2019 7:02 pm  OP    Temat postu: [Word] Funkcja zamieniaj?ce tekst Odpowiedz z cytatem Pisownia

Hey

Mam jaki? tekst, w ktrym 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”, ktr? 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? mg?by pomc?
pzdr
Powrt do gry
karolinavb
Site Admin


Doczy: 25 Maj 2005
Posty: 7930

PostWysany: 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
Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo
Wywietl posty z ostatnich:   
Odpowiedz do tematu    Forum Coders' city Strona Gwna -> Oprogramowanie biurowe Wszystkie czasy w strefie CET (Europa)

Strona 1 z 1

 
Skocz do:  
Moesz pisa nowe tematy
Moesz odpowiada w tematach
Nie moesz zmienia swoich postw
Nie moesz usuwa swoich postw
Nie moesz gosowa w ankietach
Moesz dodawa zaczniki na tym forum
Moesz pobiera pliki z tego forum




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

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