Bullet point indents

[Jay]

When I add a bullet point to a paragraph (by clicking on the bullet toolbar button) the left indent
and the hanging indent both move by 0.63cm to the right. Also, a tab stop is added at 1.27cm to the
right of the original indent position. I would prefer it if the left indent didn't change, and the
hanging indent moves by 0.5cm to the right, and a tab stop is added at 0.5cm to the right of the
original indent position.

Is there a way to change the default behaviour of behaviour of the bullet toolbar button to do
this? If this is related to a template, I would like it to be stored in normal.dot.

 

[Suzanne S. Barnhill]

It is difficult to change the behavior of the Bullets button, but you can
customize the List Bullet style (which already meets most of your
requirements) and apply it with the built-in keyboard shortcut Ctrl+Shift+L.

When I add a bullet point to a paragraph (by clicking on the bullet

toolbar button) the left indent

 

[Jay]

Thanks Suzanne,

My problem is that the users aren't keen on styles - they want to use the bullet button. Is there a
difficult way? Perhaps overriding the bullet button with a VBA macro?

Jay

It is difficult to change the behavior of the Bullets button, but you can
customize the List Bullet style (which already meets most of your
requirements) and apply it with the built-in keyboard shortcut Ctrl+Shift+L.

When I add a bullet point to a paragraph (by clicking on the bullet

toolbar button) the left indent

 

[Stefan Blom]

This simple macro intercepts the built-in FormatBulletDefault command
(which runs when you click the Bullet button) and applies either the
List Bullet style or the Normal style to the selection.

Sub FormatBulletDefault()
Dim BulletStyleName As String
Dim AppliedStyleName As String
BulletStyleName = _
ActiveDocument.Styles(wdStyleListBullet).NameLocal
AppliedStyleName = Selection.Paragraphs(1).Style.NameLocal
If BulletStyleName = AppliedStyleName Then
Selection.Style = wdStyleNormal
'If you prefer Body Text, use wdStyleBodyText instead
Else
Selection.Style = BulletStyleName
End If
End Sub

Put the macro in an add-in or in the normal.dot template.

If you need assistance, see http://gmayor.com/installing_macro.htm.

--
Stefan Blom
Microsoft Word MVP

Thanks Suzanne,

My problem is that the users aren't keen on styles - they want to

use the bullet button. Is there a

 

[Jay]

Thanks for your kind help Stefan, and sorry for the late reply. I will try this.

Jay

This simple macro intercepts the built-in FormatBulletDefault command
(which runs when you click the Bullet button) and applies either the
List Bullet style or the Normal style to the selection.

Sub FormatBulletDefault()
Dim BulletStyleName As String
Dim AppliedStyleName As String
BulletStyleName = _
ActiveDocument.Styles(wdStyleListBullet).NameLocal
AppliedStyleName = Selection.Paragraphs(1).Style.NameLocal
If BulletStyleName = AppliedStyleName Then
Selection.Style = wdStyleNormal
'If you prefer Body Text, use wdStyleBodyText instead
Else
Selection.Style = BulletStyleName
End If
End Sub

Put the macro in an add-in or in the normal.dot template.

If you need assistance, see http://gmayor.com/installing_macro.htm.

--
Stefan Blom
Microsoft Word MVP

Thanks Suzanne,

My problem is that the users aren't keen on styles - they want to

use the bullet button. Is there a