Re: [gebruikers] slash-opmaakprofiel

[Cor Nouws]

Dag Ivo,
Ivo ten Hagen wrote:
Ik heb zelf wel eens naar een sneltoets gekeken. Dat kan in een ander 
pakket wel, en dat is tijdens het typen te regelen. (alt-1 voor kop 1 
enz.) Klopt het dat dit niet in ons pakket kan?
Via Extra|Configureren heb ik Ctrl-Shft-1 toegewezen aan een macro (zie 
hieronder) die Kop1 instelt etc..

In OOo 2.0 komt de mogelijkheid om stijlen direct aan sneltoetsen te 
koppelen.

De Alt-combinaties kunnen niet direct, dat is omdat die onder *Nix een 
andere functie hebben. Ik neem aan dat dat in 2.0 nog zo is.

vr. groet,
Cor
De macro's:
sub AplKop1
        DoAplThisKop("Kop 1")
end sub
sub AplKop2
        DoAplThisKop("Kop 2")
end sub
sub AplKop3
        DoAplThisKop("Kop 3")
end sub
sub AplKop4
        DoAplThisKop("Kop 4")
end sub
Sub DoAplThisKop (sName$)
        dim document   as object
        dim dispatcher as object
        rem get access to the document
        document   = ThisComponent.CurrentController.Frame
        dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
        dim args1(1) as new com.sun.star.beans.PropertyValue
        args1(0).Name = "Template"
        args1(0).Value = sName
        args1(1).Name = "Family"
        args1(1).Value = 2
dispatcher.executeDispatch(document, ".uno:StyleApply", "", 0, args1())
End Sub

Ivo
Bart Vliegen schreef:
Is het mogelijk om onder het typen "slash - opmaakprofiel" te gebruiken
om een opmaakprofiel toe te passen?
Voorbeeld:
/kop1/Dit wordt in opmaakprofiel Kop 1 weergegeven zodra ik op Enter
druk
De tekst /kop1/ verdwijnt vervolgens uiteraard automatisch.
Als het standaard niet in OOo zit, is er dan misschien een macro voor?
Bart
--
Cor Nouws
www.nouenoff.nl

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]