Macro Hoofdletters en achtergrkleur van selectie in 1 keer

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.

Macro Hoofdletters en achtergrkleur van selectie in 1 keer

Berichtdoor DiGro » ma nov 12, 2018 8:13 pm

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) 1 keer gedownload
DiGro

--------------------------
Windows 10 en AOO 4.1.5
Gescand door Ziggo Uitgebreide Internetbeveiliging (F-Secure)
Avatar gebruiker
DiGro
 
Berichten: 52
Geregistreerd: wo mei 13, 2009 4:57 pm
Woonplaats: Hoorn NH

Keer terug naar Macro voorbeelden

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast