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.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

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