| View previous topic :: View next topic |
| Author |
Message |
seahen
General User
Joined: 17 Feb 2006
Posts: 14
|
 Posted: Fri Feb 17, 2006 3:45 pm Post subject: Bullet styles |
 |
|
When I click Bullets On/Off, I get an awful style. The outer-level bullets are indented an inch and a half, and the bullets are huge circles not suitable for anything. How can I make the button apply a list style I define in the template?  |
|
| Back to top |
|
 |
jean
Power User
Joined: 18 Oct 2005
Posts: 58
|
| Posted: Mon Feb 20, 2006 8:00 am Post subject: |
|
|
We are currently working around this same issue by customizing the toolbar to add the 'Bullets and Numbering' button. Still takes an extra step, unfortunately, but works for now.
Hope this helps. |
|
| Back to top |
|
|
seahen
General User
Joined: 17 Feb 2006
Posts: 14
|
| Posted: Mon Feb 20, 2006 1:38 pm Post subject: |
|
|
| I have posted it as Issue 62357. |
|
| Back to top |
|
|
seahen
General User
Joined: 17 Feb 2006
Posts: 14
|
| Posted: Mon Feb 20, 2006 2:01 pm Post subject: |
|
|
Update:  I've found a workaround by means of replacing the button with a recorded macro, whose code is as follows:
| Code: |
REM ***** BASIC *****
Sub Main
End Sub
sub ApplyList1
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 = "List 1"
args1(1).Name = "Family"
args1(1).Value = 2
dispatcher.executeDispatch(document, ".uno:StyleApply", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Template"
args2(0).Value = "List 1"
args2(1).Name = "Family"
args2(1).Value = 16
dispatcher.executeDispatch(document, ".uno:StyleApply", "", 0, args2())
end sub |
The problem with this is that it won't remove bullets if they are already present. Can I modify the macro so that it does this? The non-list paragraph style is "Text body," except immediately after a heading, list or "By Me For"-style subhead, in which cases it's "First Paragraph." |
|
| Back to top |
|
|
|
