=?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:
Mathias Bauer schrieb:

Kennt ihr einen f�r unerfahrene Nutzer einfach und leicht
durchzuf�hrenden Weg die Gesamtheit aller Makros und Tastenk�rzel zu
"installieren"?
Am einfachsten ist es wohl, die Tastaturk�rzel �ber den
Konfigurationsdialog zu exportieren (speichern) und in der anderen
Installation wieder zu importieren (laden)

OK. Prima. Da ich es noch nicht an einer anderen Installation testen
konnte, hilft mir die Information, dass keine Widrigkeiten zu erwarten
sind.

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
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
Gru� Werner
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]