Thread: [Solved] Change macro to only use large bullets
View Single Post
 
Old 12-13-2018, 07:16 AM
14spar15 14spar15 is offline Windows 7 64bit Office 2010 64bit
Advanced Beginner
  
Join Date: Mar 2011
Posts: 98
14spar15 is on a distinguished road
Default Change macro to only use large bullets
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"
Reply With Quote