 |
Coders' city
Nasza pasja to programowanie!
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
kmkm
Gość
|
 Wysłany: Wto Mar 05, 2019 7:02 pm OP Temat postu: [Word] Funkcja zamieniaj?ce tekst |
  |
|
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: 7930
|
| Wysłany: Wto Mar 05, 2019 8:32 pm Temat postu: |
|
|
| 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 |
|
|
|
|
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.04877 sekund, zapytan = 12
|
Pomoc
Szukaj
Użytkownicy
Grupy
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
