Makro-nalezeni slov ve wordu a obraceni – Visual Basic – Fórum – Programujte.com

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...
Diky

Hodně štětstí... :smile1:

no, tak tohle vlastne akorat najde ty petipismeny slova a nahradi je za nic=>smaze. Nejak ale nemuzu prijit na to, jak do toho nahrazeni implementovat to prehozeni...

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

Sub makroslovopozpatku()

Dim slovo As String

Dim i As Integer



slovo = ""

For i = 1 To (Selection.Characters.Count)

      slovo = Selection.Characters(i) + slovo

   Next i

MsgBox (slovo)

End Sub

to mi opravdu nikdo nevenuje tech par radku (urcite to bude jednoduchy). Potreboval bych to co nejdrive

Ve VB6 je funkce StrReverse, viz Object Browser.

To cvajniga : problém nebude s reverzí,
já to jen tak pro srandu zkoušel s pevně nadefinovaným textem, to prošlo v pohodě, ale když tam zadáš
" ^$^$^$^$^$ "
teda vyhledávání 5 písmenných znaků, tak nikde není proprta ,která by uschovával to co vlastně funkce find našla,
strávil jsem na tom pravda jen 20 minut ale nepovedlo se mi taktéž
prostě se mmi nepodařilo odněkud vytáhnout obsah toho co find našel, abych to moh co ragument předat k reverzi
buď sem hledal špatně nebo prostě find použít NELZE...

tenhle priklad jsme dostali v testu z vb po cirka 5 probranych hodinach. Nikdo ho nema dobre (necekane), ale me zajimalo, jak to ma byt spravne, kdyz uz jsem se tam nad tim potil. Tak uvidim, co ucitel ukaze jako reseni a pak to sem postnu :)

To xmastny : postni, docela by mě zajímlo jestli si náhodou herr lehrer neskočil na hrabičky a nezadal vám kravinu...