Highlight + Position

Tags:    visual-basic

Hvis jeg har en tekst som siger "939-33543-3434".. Og jeg godt vil hightlighte efter nr. 2 "-" hvordan gør jeg det?

Med venlig hilsen
Frede_Manden



2 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 1 karma
Sorter efter stemmer Sorter efter dato
Hvis jeg har en tekst som siger "939-33543-3434".. Og jeg godt vil hightlighte efter nr. 2 "-" hvordan gør jeg det?

Med venlig hilsen
Frede_Manden


Du kan lave en funktion der modtager den paragraf som du ønsker at formatere på den måde, funktionen skulle se noget ud i denne stil

Private Function highlight(ByRef tekst)
'find position of last occurance of "-"
Position = InStr(StrReverse(tekst), "-")
Position = tekst.Range.Characters.Count - Position + 1

'format the paragraf
For i = 1 To tekst.Range.Characters.Count
If i < Position Then
tekst.Range.Characters(i).Bold = False
Else
tekst.Range.Characters(i).Bold = True
End If
Next i

End Function

Det besværlige ligger så i at finde ud af hvilken paragraf du ønsker at formatere
---
Simon



Det virkede ikke! Lukker tråden
Frede_Manden
Med venlig hilsen
Frede_Manden



t