Change macro to only use large bullets

14spar15 · #1 12-13-2018, 07:16 AM

Hello, I have this text box that after all the text has been entered I run this macro. The text is entered by pasting from other various sources. Before running the macro I will highlight lines that I want bullets added to. Everything works fine except for certain cases where text is pasted that already has bullets. The problem is when the macro runs the large bullets (that I want and were pasted with the text) become small little dot bullets. Note: Being that these lines already started with bullets they are not highlighted before running the macro. Is there way to change this macro so that the bullets will always be the larger dots and not the smaller? Thanks

Code:

Sub BulletsAndSizer()
  Dim aRng As Range
  Set aRng = Selection.Range
  If Len(aRng.Text) > 0 Then aRng.Style = "List Bullet"
  aRng.Expand Unit:=wdStory
  aRng.Font.Size = 18
  aRng.Font.Name = "Times New Roman"

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