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