Werner Tietz schrieb:
>>>Beim Basic w�rde ich vom Kopieren abraten, da es ohne weiteres
>>>h�ndisches Arbeiten nicht gehen w�rde. Daher auch hier: die eigenen
>>>Macros als Basic Quelltext speichern
>>
>> Der Befehl "Speichern unter" steht bei einer ge�ffneten Makro-Datei
>> nicht zur Verf�gung.
> Im Basic Fenster Untere Symbolleiste Schaltfl�che ganz rechts
> (Basic-Quelltext speichern...) oO 1.13
Danke.
Am Rande: wie bewertet ihr es hinsichtlich der Usability einer
Anwendung, wenn nicht jeder Befehl �ber die Men�leiste erreichbar ist?
Was, bitte, meinte Martin mit "und in der anderen Installation
wieder laden"?
Was genau soll mit den als *.bas gespeicherten Makros geschehen?
> oder
> -snip
>
> REM ***** BASIC *****
>
>
>
> Function SetCurrentParaStyle ( NewStyle, NewLevel )
> Dim oDocument, oDesktop As Object
> Dim oVCursor As Object
> 'oDesktop = createUnoService("com.sun.star.frame.Desktop")
> 'oDocument = oDesktop.getCurrentComponent()
> oDocument = thisComponent
> oVCursor = oDocument.currentcontroller.getViewCursor()
> oVCursor.paraStyleName = NewStyle
> oVCursor.NumberingLevel = NewLevel - 1
> End Function
>
> Sub Heading1
> SetCurrentParaStyle( "Heading 1", 1 )
> End Sub
>
> Sub Heading2
> SetCurrentParaStyle( "Heading 2", 2 )
> End Sub
>
> Sub Heading3
> SetCurrentParaStyle( "Heading 3", 3 )
> End Sub
>
> Sub Heading4
> SetCurrentParaStyle( "Heading 4", 4 )
> End Sub
>
> Sub Heading5
> SetCurrentParaStyle( "Heading 5", 5 )
> End Sub
>
> Sub DefaultParaStyle
> SetCurrentParaStyle( "Standard", 0 )
> End Sub
>
>
> Sub setSmallPrint
> SetCurrentParaStyle("Small Print",3)
> End Sub
>
> --snap
>
> dies hier als zb. "Absatzformatierung.bas" speichern und an deine
> Vorstellungen anpassen
K�nntest Du bitte kurz kommentieren, was das Makro bewirkt?
Andreas
--
http://borumat.de/openoffice-writer-tipps
http://www.teamstaroffice.org/wiki/moin.cgi/ModulWriter
http://borumat.de/firefox-browser-tipps
http://borumat.de/thunderbird-email-tipps
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
