Microsoft Office Forums - View Single Post

Charles Kenyon · 12-23-2018, 03:57 PM

Jumping off from Stefan's suggestion...

Consider creating QuickStyle Sets. This is not as simple as Themes. It can be more powerful.

Here is a macro that removes all styles from the QuickStyles Gallery. You would then need to add your styles to the Gallery, then save the Style Set.

Code:

Sub StylesQuickStylesOff()
' Charles Kenyon 2018-12-03
'
' This is preparatory to saving a Quick Style Set for only certain styles
' Strips all styles from quickstyles gallery
' Do not run in a document you plan on using because you will want those other standard styles in you gallery
'
    Dim aStyle As Style
    On Error Resume Next
    For Each aStyle In ActiveDocument.Styles
        aStyle.QuickStyle = False
    Next aStyle
    On Error GoTo 0
 End Sub

Instructions for Installing Macros from Forums or Websites by Graham Mayor, MVP