OpenOffice.org Forum at OOoForum.orgThe OpenOffice.org Forum
 
 [Home]   [FAQ]   [Search]   [Memberlist]   [Usergroups]   [Register
 [Profile]   [Log in to check your private messages]   [Log in

Bullet styles

 
Post new topic   Reply to topic    OOoForum.org Forum Index -> OpenOffice.org Writer
View previous topic :: View next topic  
Author Message
seahen
General User
General User


Joined: 17 Feb 2006
Posts: 14

PostPosted: Fri Feb 17, 2006 3:45 pm    Post subject: Bullet styles Reply with quote

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? Question
Back to top
View user's profile Send private message
jean
Power User
Power User


Joined: 18 Oct 2005
Posts: 58

PostPosted: Mon Feb 20, 2006 8:00 am    Post subject: Reply with quote

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
View user's profile Send private message
seahen
General User
General User


Joined: 17 Feb 2006
Posts: 14

PostPosted: Mon Feb 20, 2006 1:38 pm    Post subject: Reply with quote

I have posted it as Issue 62357.
Back to top
View user's profile Send private message
seahen
General User
General User


Joined: 17 Feb 2006
Posts: 14

PostPosted: Mon Feb 20, 2006 2:01 pm    Post subject: Reply with quote

Update: Idea 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
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    OOoForum.org Forum Index -> OpenOffice.org Writer All times are GMT - 8 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group