[es] - Macroi u Wordu da ne zapitkuju

pakito
Paun Es Durlic
kustos etnolog (u penziji!) i programer
naivac
Majdanpek * Pančevo

Član broj: 91953
Poruke: 273
*.dynamic.isp.telekom.rs.

Sajt: www.PaunDurlic.com

+3 Profil

Macroi u Wordu da ne zapitkuju

^{16.10.2017. u 12:12 - pre 79 meseci}

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 = "\1"
 .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 = "\1"
 .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 = " "
 .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 = " "
 .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]}

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
89.216.49.*

Sajt: www.gowi.rs

+109 Profil

Re: Macroi u Wordu da ne zapitkuju

^{16.10.2017. u 13:39 - pre 79 meseci}

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

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu