OpenOffice.info

Vielen Dank!

sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Template"
args1(0).Value = "nummeriert"
args1(1).Name = "Family"
args1(1).Value = 2

dispatcher.executeDispatch(document, ".uno:StyleApply", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "NumberingStart"
args2(0).Value = true

dispatcher.executeDispatch(document, ".uno:NumberingStart", "", 0, args2())

end sub

[quote]Ist es richtig, dass ich jedem der nummerierten Absätze manuell den 'Neustart' zuweisen (Rechtsklick Restart Numbering) muss ?
[/quote]
ich fürchte ja

[quote]Oder gibt es eine Möglichkeit, die Absatzvorlage so einzurichten, dass dies automatisch passiert?[/quote]

Du könntest ein Makro aufzeichnen, das gleichzeitig die Absatzvorlage zuweisyt und die Nummerierung neu startet, dann kannst Du das zukünftig mit einem KLick tun.

Ich habe auch einmal getestet ob sich das im KOnkreten aufzeichnen lässt, ja geht einwandfrei:

[code]sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Template"
args1(0).Value = "nummeriert"
args1(1).Name = "Family"
args1(1).Value = 2

dispatcher.executeDispatch(document, ".uno:StyleApply", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "NumberingStart"
args2(0).Value = true

dispatcher.executeDispatch(document, ".uno:NumberingStart", "", 0, args2())

end sub
[/code]

Gruß
Stephan

Morgen Adriana,

[quote=mikolaskova post_id=268059 time=1488010115 user_id=9818]
Ist es richtig, dass ich jedem der nummerierten Absätze manuell den 'Neustart' zuweisen (Rechtsklick Restart Numbering) muss ?
[/quote]

Ja. Intern wird ja "ur" ein Nummernkreis geführt, der seinen Startpunkt im ersten nummerierten Absatz festlegt und von dort aus weiterzählt. Willst Du von neuem beginnen, startest Du die Nummerierung neu. Wie Du beschrieben hast. So bekommt der Absatz wieder ddie Nummer 1 zugewiesen und die Zählung beginnt ab da.

Willst Du das "automatisieren" müsstest Du für jede Aufzählung einen andere Absatzvorlage verwenden - aber ich denke, da ist der Aufwand noch viel größer;)

VG Tom

1.asdf
2.asdfasdf
Normaler Text
3.asdfasdf
4.asdfasdf

1.asdfaf
2.asdfasdf
Normaler Text
1.asdfasdf
2.asdfasdf

Hallo,

ich habe in meinem Dokument immer wieder Absätze, die nummeriert werden sollen.
Dafür verwende ich eine Absatzvorlage, in der ich die Nummerierung aktiviert habe.

Das führt dazu, dass alle entsprechend formatierten Stellen fortlaufend nummeriert werden- allerdins über das ganze Dokument hinweg, also

[code]1.asdf
2.asdfasdf
Normaler Text
3.asdfasdf
4.asdfasdf[/code]

statt

[code]1.asdfaf
2.asdfasdf
Normaler Text
1.asdfasdf
2.asdfasdf[/code]

Ist es richtig, dass ich jedem der nummerierten Absätze manuell den 'Neustart' zuweisen (Rechtsklick Restart Numbering) muss ?

Oder gibt es eine Möglichkeit, die Absatzvorlage so einzurichten, dass dies automatisch passiert?

Danke und Gruss,

Adriana