|
Zdravim, potreboval bych trosku pomoct. Potrebuju udelat makro ve visual basicu, ktery najde vsechna petiznakova slova v textu, podbarvi je cervene a prepise je na puvodni misto pozpatku. Dostali jsme tohle v testu, a to prehozeni jsem nejak nevymyslel... Jenom upozornuju, ze ve VB toho moc neumim, takze pokud mozno co nejvic polopaticky. Tohle by melo najit petipismeny slova ohraniceny mezerou. Nevim ale, jak udelat to prohozeni a vlozit to do toho.
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " ^$^$^$^$^$ "
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Diky
|