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

Code: Selecteer alles   UitklappenInklappen
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) 195 keer gedownload
DiGro

--------------------------
Windows 10 en AOO 4.1.10
Gescand door Ziggo Safe Online (F-Secure)
Avatar gebruiker
DiGro
 
Berichten: 77
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