word-jak szybko usunąć polskie znaki
eudajmonion - 04 Gru 2007 14:30
witam,
chcę szybko usunąć nasze znaki diakrytyczne z tekstu napisanego w wordzie. metoda znajdź->zamień nie wchodzi w grę. da się szybciej?
próbowałem gżegżółki http://www.gzegzolka.com/ ale bezpośrednio z worda chyba nie będzie. trzeba najpierw zapisać w txt lub przekopiować a dopiero potem konwertować.
mariush'ek - 04 Gru 2007 17:59
Witam!
Zainteresowałem się problemem i stworzyłem małe Makro:
Sub antyOgon()
' --------------------------------------------------------- '
' szukaj antyOgon '
' Makro napisane 2007-12-04 przez Max '
' Makro zamienia polskie litery: ą ć ę ł ń ó ś ź ż '
' Na ich odpowiedniki bez "ogonków" : a c e l n o s z z '
' Wielkość liter nie jest ważna '
' --------------------------------------------------------- '
Dim polskie(8, 1) As String
Dim iter As Integer
iter = 0
polskie(0, 0) = "ą"
polskie(0, 1) = "a"
polskie(1, 0) = "ć"
polskie(1, 1) = "c"
polskie(2, 0) = "ę"
polskie(2, 1) = "e"
polskie(3, 0) = "ł"
polskie(3, 1) = "l"
polskie(4, 0) = "ń"
polskie(4, 1) = "n"
polskie(5, 0) = "ó"
polskie(5, 1) = "o"
polskie(6, 0) = "ś"
polskie(6, 1) = "s"
polskie(7, 0) = "ź"
polskie(7, 1) = "z"
polskie(8, 0) = "ż"
polskie(8, 1) = "z"
Do Until (iter > 8)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = polskie(iter, 0)
.Replacement.Text = polskie(iter, 1)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
iter = iter + 1
Loop
End Sub
Myślę, że pomoże.
Pozdrawiam,
mariusz
Kostek7 - 04 Gru 2007 19:05
Czcinka bez polskich znaków > wyczyść wszystkie formaty lub notatnik > Word > cznionka TNR
Makro też ok
eudajmonion - 04 Gru 2007 21:22
dzięki mariush'ek za macro. przypisałem sobie do niego przycisk i skrót klawiaturowy i mam to co chciałem. szybką i prostą zamianę
Kostek7 - mógłbyś podać bardziej szczegółowo bo coś mi nie działa, albo źle rozumuje.
koszmar123 - 23 Wrz 2009 16:45
jak usunac polskie znaki ?
30 sekund w google i gotowe :
usuwanie polskich znakow