=?ISO-8859-1?Q?Re=3A_=5Bde-users=5D_Die_Gesamtheit_aller?= =?ISO-8859-1?Q?_Makros_und_Tastenk=FCrzel_transportieren?=

[Werner Tietz]

Hallo Andreas
Andreas Borutta schrieb:
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
Da hinter einem ge�ffneten Basic-Fenster idR noch ein ge�ffnetes 
Dokument ist, w�re "Speichern unter" aus der Men�leiste f�r den Anwender 
wohl eher missverst�ndlich; zum anderen ist diese Schaltfl�che 
vermutlich f�r die Dokumentebene "reserviert" ?

Danke.
Am Rande: wie bewertet ihr es hinsichtlich der Usability einer
Anwendung, wenn nicht jeder Befehl �ber die Men�leiste erreichbar ist?
siehe oben
Was, bitte, meinte Martin mit "und in der anderen Installation
wieder laden"?
Hier kann ich dir auch nicht weiterhelfen , mir ist es bis jetzt noch 
nicht gelungen eine ge�nderte Tastaturzuordnung "extern" zu Speichern, 
geschweige dann wieder zu laden
Was genau soll mit den als *.bas gespeicherten Makros geschehen?
Am besten du googelst "Andrew Brown Macros" und suchst da nach 
"acb-installer.sxw". Falls du m�chtest, kann ich auch per PM
zuschicken ?
Das Dokument enth�lt unter anderem das /die von dir gesuchte Makro(s)
zur Absatzformatierung (styles/heading1-heading5) - das gleiche wie 
unten unten einkopiert
 - und hat dazu auch gleich einen installer


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   
Diese ^ Zeile  evtl.auskommentieren
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?
Das Ausf�hren von zB. Heading 4 bewirkt, da� der Absatz indem sich der
Cursor gerade befindet nach den Einstellungen von "heading 4" formatiert 
wird und auf den Nummerierungslevel 4 gesetzt wird.
Den einzelnen Sub's kannst du jetzt wiederum TastaturShortcuts zuordnen....

Gru� Werner

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