[ pakito @ 16.10.2017. 12:12 ] @
Uz pomoć ES sam ihaha davno rešio veliki problem tagovanja wordovog teksta za unos u MySQL, pre svega kad su u pitanju bold i italik.
Slediviši tu formu, ja sam dodao još gomilu makroa koji mi ubrzavaju rad na preradi teksta, ali mi je ostao još samo jedan krupan problem, a to je što me posle svake operacije, makroi pitaju da li da idu dalje, ili ne.
Prilažem ovde prva 4 makroa, da mi neko pokaže šta treba da ubacim, ili izbacim, pa da se makroi izvrše svi redom, bez prekida?

Code:
Sub ItalikovanjeZaVorbar()
'
'
'
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Font.Bold = True
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "<*>"
        .Replacement.Text = "<b>\1</b>"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With

    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Font.Italic = True
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(<*>)"
        .Replacement.Text = "<i>\1</i>"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With

    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "<i> </i>"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With

    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "</i> <i>"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With






[Ovu poruku je menjao pakito dana 16.10.2017. u 13:26 GMT+1]

[Ovu poruku je menjao pakito dana 16.10.2017. u 13:27 GMT+1]
[ Jpeca @ 16.10.2017. 13:39 ] @
Nisam uspeo da startujem tvoj makro, prijavljuje grešku u random tekstu, ali ako si hteo da sprečiš pojavljivanje poruke vezano za Replace - npr. We made 4 replacments. Do yo want to continue searching from the begining?

Možeš da postaviš na početku
Code:
Application.DisplayAlerts = False


i na kraju ne zaboravi da vratiš na True
[ pakito @ 16.10.2017. 13:50 ] @
Jeste! To je to! Prolazi kroz gomilu makroa kao kroz švajcarski sir!
Hvala lepo!