Forumregels
In dit forum geen vragen stellen, het is uitsluitend bedoeld voor het plaatsten en toelichten van code. Stel vragen in het forum Macro's.
-
DiGro
- Berichten: 86
- Lid geworden op: wo mei 13, 2009 4:57 pm
- Locatie: Hoorn NH
Bericht
door DiGro »
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
aanpassing 17-11-2018: Verplaats cursor 1 plaats naar rechts na uitvoeren zodat men gewoon door kan typen.
-
Bijlagen
-
- Hoofdletters en achtergrond.odt
- (19.62 KiB) 333 keer gedownload
DiGro
----------------------------------------------------
Windows 11 en AOO 4.1.15
Gescand door Ziggo Safe Online (F-Secure)