Pagina 1 van 1

Macro Hoofdletters en achtergrkleur van selectie in 1 keer

BerichtGeplaatst: ma nov 12, 2018 8:13 pm
door DiGro
Sub HoofdlettersEnAchtergrond()
Dim oVc
oVC = ThisComponent.CurrentController.getViewCursor

If oVC.isCollapsed then
Print "Niets geselecteerd."

Else oVC.CharCaseMap = 1 'hoofdletters 2 = kleine letters
oVc.CharBackColor = 12632256 'middengrijs
'oVc.CharBackColor = 15132390 'lichtgrijs
'oVc.CharBackColor = 16776960 'geel
'oVc.CharBackColor = 9868950 'donkergrijs

Print "Voltooid"
EndIf
bExtend = false
oVC.goRight(1, bExtend) 'ga 1 teken naar rechts
End Sub

aanpassing 17-11-2018: Verplaats cursor 1 plaats naar rechts na uitvoeren zodat men gewoon door kan typen.