Change macro to only use large bullets

gmayor · #4 12-15-2018, 10:54 PM

While it would be preferable, as Andrew suggests, to use styles for the body and bullet paragraphs, your macro will do what you require if you add code to reset the paragraph format and font of the pasted text.

Note also that as this works with paragraphs, you will get some odd results if you paste text that has line breaks rather than paragraph breaks e.g. pasting from your message example.

Code:

Sub BulletsAndSizer()
Dim aRng As Range
    Set aRng = Selection.Range
    aRng.Text = Replace(aRng.Text, Chr(11), Chr(13))
    If Len(aRng.Text) > 0 Then aRng.Style = "List Bullet"
    With aRng
        .Expand Unit:=wdStory
        .Font.Reset
        .ParagraphFormat.Reset
        .Font.Size = 18
        .Font.Name = "Times New Roman"
    End With
    Set aRng = Nothing
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to change default bullets settings in Word 2016?	kevinbradley57	Word	4	10-05-2018 09:50 AM
Bullets automatically change values	AllenWalker	Word	4	07-18-2018 06:43 AM
How do I get bullets and text to change color together?	jborchel	PowerPoint	0	12-05-2012 03:16 PM
Change color of text in bullets	franklyorange	PowerPoint	2	06-22-2010 04:51 AM
Is there a way to change the header in a large amount of documents at one time?	ntsstaffing	Word	1	07-11-2009 12:12 PM