Jarino6382
24.02.13,15:58
Dobrý deň,
chcel by som Vás poprosiť o radu.
Vo worde by som potreboval nahradiť viacero písmen naraz
napr.
1,2,3,4,5,6,
nahradiť za
+,ľ,š,č,ť,ž..
v podstate ide len o nahradenie diakritiky
no nechcem to robiť po jednom písmenku a keď dám ako oddelovať len čiarku, word mi to nezožerie. Vedeli by ste mi prosím niekto poradiť ako to oddeliť?
Vďaka. :)
Prajem Vám pekný zvyšok víkendu. :)
chcel by som Vás poprosiť o radu.
Vo worde by som potreboval nahradiť viacero písmen naraz
napr.
1,2,3,4,5,6,
nahradiť za
+,ľ,š,č,ť,ž..
v podstate ide len o nahradenie diakritiky
no nechcem to robiť po jednom písmenku a keď dám ako oddelovať len čiarku, word mi to nezožerie. Vedeli by ste mi prosím niekto poradiť ako to oddeliť?
Vďaka. :)
Prajem Vám pekný zvyšok víkendu. :)
misoft
24.02.13,15:53
Word to nedokáže. Musíš po jednom. A potom v ponuke dať Nahradiť všetky - nahradí v celom dokumente - preto pozor na to.
PaloPa
24.02.13,19:24
Vo worde by som potreboval nahradiť viacero písmen naraz
...
v podstate ide len o nahradenie diakritiky...
Podobne ako v Exceli sa dá použiť VBA (makro).
ALT+F11 prepnúť do okna VBA, vložiť nový modul a pridať funkcie, viď nižšie.
TIP: Ak sa pridajú do šablóny Normal.dot, budú dostupné pre všetky dokumenty
Sub aDiakritika_Remove()
' Macro recorded 18.2.2006 / PC-PROG.sk
'
Dim xCo, aCo, xZa, aZa
Dim i As Long
xCo = "ý;ú;í;é;ě;á;ä;ó;ô;č;ď;ľ;ĺ;ň;ř;ŕ;š ;ť;ž": aCo = Split(xCo, ";")
xZa = "y;u;i;e;e;a;a;o;o;c;d;l;l;n;r;r;s;t;z": aZa = Split(xZa, ";")
For i = LBound(aCo) To UBound(aCo)
Call ZnakySrchRepl(CStr(aCo(i)), CStr(aZa(i)))
Next i
End Sub
Sub ZnakySrchRepl(xCo As String, xZaCo As String)
'
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = xCo
.Replacement.Text = xZaCo
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
...
v podstate ide len o nahradenie diakritiky...
Podobne ako v Exceli sa dá použiť VBA (makro).
ALT+F11 prepnúť do okna VBA, vložiť nový modul a pridať funkcie, viď nižšie.
TIP: Ak sa pridajú do šablóny Normal.dot, budú dostupné pre všetky dokumenty
Sub aDiakritika_Remove()
' Macro recorded 18.2.2006 / PC-PROG.sk
'
Dim xCo, aCo, xZa, aZa
Dim i As Long
xCo = "ý;ú;í;é;ě;á;ä;ó;ô;č;ď;ľ;ĺ;ň;ř;ŕ;š ;ť;ž": aCo = Split(xCo, ";")
xZa = "y;u;i;e;e;a;a;o;o;c;d;l;l;n;r;r;s;t;z": aZa = Split(xZa, ";")
For i = LBound(aCo) To UBound(aCo)
Call ZnakySrchRepl(CStr(aCo(i)), CStr(aZa(i)))
Next i
End Sub
Sub ZnakySrchRepl(xCo As String, xZaCo As String)
'
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = xCo
.Replacement.Text = xZaCo
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub