On 10/22/2009 11:35 AM, john d. herron wrote:
Hi, everyone.
How can I tell swriter 2.4 to stop using any and all paragraph bullets
and numbering in a whole document?
I've a paragraph style from which I've removed all references to
numbering, but numbering continues unabated.
It's driving me insane!
Help, please?
john
Sounds like you may need a macro.... Might look something like this
(untested thrown together macro).
Sub ClearNumStyle()
REM Author: Andrew Pitonyak
Dim oParEnum 'Enumerator used to enumerate the paragraphs
Dim oPar 'The enumerated paragraph
Dim s$
REM Enumerate the paragraphs.
REM Tables are enumerated along with paragraphs
oParEnum = ThisComponent.getText().createEnumeration()
Do While oParEnum.hasMoreElements()
oPar = oParEnum.nextElement()
REM This avoids the tables. Add an else statement if you want to
REM process the tables.
If oPar.supportsService("com.sun.star.text.Paragraph") Then
If Len(oPar.NumberingStyleName) > 0 Then
oPar.NumberingStyleName = ""
End If
End If
Loop
End Sub
--
Andrew Pitonyak
My Macro Document: http://www.pitonyak.org/AndrewMacro.odt
My Book: http://www.hentzenwerke.com/catalog/oome.htm
Info: http://www.pitonyak.org/oo.php
See Also: http://documentation.openoffice.org/HOW_TO/index.html
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
