Issue of 2 fixed bullet points indent setting work together (code included)

puff · #1 12-16-2017, 12:21 AM

Hi all. I assigned 2 bullet points with specific indent settings to 2 hotkeys. However, when I use them together, there is a minor issue.
What I want to get: (This can be achieved if I press the Enter twice to eliminate the black dot and then press the hotkey for the black square)

2017-12-16_150153.jpg
Ps: the specific indent info are included in their codes below.
If I just press the hotkey for the black square in a blank line with the black circle in the front, I will get:
2017-12-16_150208.jpg

I tried to incorporate the 2 pressings of Enter into the macro of the black square, but it seems like under the recording mode, 2 pressings in a line starting with the black circle will simply create 2 blank lines rather than eliminate the black circle in the front. Could someone help me out on this? Thank you very much!

Code for the black circle:

Code:

Sub BlackCircle()
'the hot key is F13
    With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
        .NumberFormat = ChrW(61623)
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleBullet
        .NumberPosition = InchesToPoints(0.5)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = InchesToPoints(0.75)
        .TabPosition = wdUndefined
        .ResetOnHigher = 0
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = "Symbol"
        End With
        .LinkedStyle = ""
    End With
    ListGalleries(wdBulletGallery).ListTemplates(1).Name = ""
    Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
        ListGalleries(wdBulletGallery).ListTemplates(1), ContinuePreviousList:= _
        False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
        wdWord10ListBehavior
End Sub

Code for the black square

Code:

Sub BlackSquare()
'the hot key is F14
    With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
        .NumberFormat = ChrW(61607)
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleBullet
        .NumberPosition = InchesToPoints(0.75)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = InchesToPoints(0.1)
        .TabPosition = wdUndefined
        .ResetOnHigher = 0
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = "Wingdings"
        End With
        .LinkedStyle = ""
    End With
    ListGalleries(wdBulletGallery).ListTemplates(1).Name = ""
    Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
        ListGalleries(wdBulletGallery).ListTemplates(1), ContinuePreviousList:= _
        False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
        wdWord10ListBehavior
End Sub

Feel free to delete any unnecessary part of the code since they're from the recording.

macropod · #2 12-16-2017, 12:33 PM

You should create an appropriately-formatted Style and use that instead of either the default or a macro.

puff · #3 12-16-2017, 03:19 PM

Quote:

Originally Posted by macropod

You should create an appropriately-formatted Style and use that instead of either the default or a macro.

Sorry for the confusion. I think my major issue is to assign a bullet point to a key. I know the function of FormatBulletDefault but that only allows you to assign the default bullet point. Do you know how to assign other non-default bullets to a hotkey?

JK. I solved the assigning issue. My question now is in my edited post above.

macropod · #4 12-17-2017, 01:33 PM

You are going about this completely the wrong way. I suggest you read:
https://support.office.com/en-us/art...7-1eb120dec563
http://www.addbalance.com/usersguide/styles.htm
https://shaunakelly.com/word/styles/stylesms.html

puff · #5 12-17-2017, 05:17 PM

Thank you for your helpful links. I notice that a list bullet style will apply to all the bullet points in a document. However, I just use bullet points to organize notes, so their indents, although fixed within a section, might be flexible in a document's different sections. And that's why I used macro to give me a bullet with a default indent and allows some fluctuations. I still need to solve the problem mentioned previously though.

macropod · #6 12-17-2017, 05:52 PM

Forget the built-in list bullet Style; you can create multiple custom Bullet Styles & Indent Styles for a document. It's then just a matter of choosing which one you want to use in a given situation. See attached. You should not be using a macro to apply the formatting - that way lies document corruption.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Help With Bullet Points In Powerpoint	Phil_CF	PowerPoint	2	09-10-2016 03:12 AM
Trouble using bullet points / sub bullet points within Word 2013	Mr Davo	Word	2	04-18-2016 04:31 PM
Bullet text indent problem	dfp1964	PowerPoint	0	12-04-2011 08:03 AM
Bullet points are messed up	TempleClause	Word	4	06-08-2010 11:53 AM
Indent Points in Word 07	crackinthekraken	Word	0	01-19-2010 03:54 PM