Zavrieť

Porady

Upraviť

Hlavné

Ďalšie rubriky

Word - nahradenie viacerých písmen naraz

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.
Pravidlá a tipy
  • Každý móže napísať len 1 odpoveď. Neskor mozete svoju odpoveď vylepšiť.
  • Odpoveď má priniesť riešenie na otázku, vyvarujte sa hodnotenia otázky.
  • Odpoveď má byť viac o faktoch ako o názoroch.
Dalšie pravidla a tipy
Neregistrovaný
    Ak potrebujete v otázke niečo upresniť, najskôr sa spýtajte na podrobnosti.
    Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
    Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
    ❤ Buďte priateľskí ❤
    Sme súčasťou jednej komunity, ktorá si chce vzájomne pomáhať, rozdieľnosť je vítaná ak neubližuje!
    Usporiadať podľa času

    misoft je offline (nepripojený) misoft

    misoft
    Word to nedokáže. Musíš po jednom. A potom v ponuke dať Nahradiť všetky - nahradí v celom dokumente - preto pozor na to.
    0

    PaloPa je offline (nepripojený) PaloPa

    PaloPa
    Jarino6382 Pozri príspevok
    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

    Code:
    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
    0

    Word - nahradenie viacerých písmen naraz

    Vieš, kto pozná odpoveď?
    Zdieľaj, možno sa nájde odborník Pozvi odborníka, firmu, inštitúciu atď.

    Porady, ktoré by vás mohli zaujímať

    Prihláste sa a sledujte len tie Porady, ktoré Vás zaujímajú.

    Pridať pochvalu

    Ďakujem Dobre píšes Super rada
    Vtipné Si cool Milé
    Poznámočka