Change macro to only use large bullets

Guessed · #1 12-16-2018, 03:57 AM

And doing it with styles, it would be like this. The first half wouldn't actually need to run every time. Once the document styles are configured that part wouldn't need to be used again.

Code:

Sub BulletsAndSizer()  
  With ActiveDocument.Styles("Normal").Font
    .Size = 18
    .Name = "Times New Roman"
  End With
  With ActiveDocument.Styles("List Bullet")
    .Font.Size = 18
    .Font.Name = "Times New Roman"
    .ListTemplate.ListLevels(1).Font.Size = 40
  End With
  
  Dim aRng As Range
  Set aRng = Selection.Range
  aRng.Expand Unit:=wdStory
  aRng.Style = "Normal"
  Set aRng = Selection.Range
  aRng.Style = "List Bullet"
End Sub

14spar15 · #2 12-20-2018, 08:06 AM

Hello, with all this I should be able to make something work here. Thanks for all the input.

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