Macro Hoofdletters en achtergrkleur van selectie in 1 keer
Geplaatst: ma nov 12, 2018 8:13 pm
Code: Selecteer alles
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