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?
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]