Results 1 to 8 of 8
  1. #1
    3 Star Lounger
    Join Date
    Mar 2004
    Location
    London, Gtr London, England
    Posts
    299
    Thanks
    0
    Thanked 0 Times in 0 Posts
    The styles group on the home tab of the word ribbon has many styles which I never use. I can remove them one by one but they always reappear when I use word again. Can I fix it so that only the styles I use (about four) will appear, to save me having to hunt through the redundant ones? I am creating a modified normal.dotm with corporate fonts etc and wonder if the style thing can be done as part of that.
    Many thanks. Frank

  2. #2
    WS Lounge VIP
    Join Date
    Mar 2006
    Location
    Maryland, USA
    Posts
    690
    Thanks
    17
    Thanked 66 Times in 56 Posts
    As far as I know, we have to empty the quick styles gallery one by one. I recently asked, in another forum, if anyone could write a macro to do this. So far no one has answered, so I'm guessing that the commands aren't yet in VBA.

    If you open and modify the quick styles gallery in normal.dotm and save it, all new documents based on normal.dotm will have your styles in the styles gallery. If you want older files to have only your styles in the gallery,create a new quick style set: back in your modified normal.dotm, go to home tab > styles group > change styles > style set > save [the current styles gallery] as a quick style set. Name the quick style set Franksstyles, or some such. The new style set will appear in the style set list. So when you click Franksstyles, its styles will appear in the gallery.

    HTH,
    Pam
    Pam Caswell

  3. #3
    3 Star Lounger
    Join Date
    Mar 2004
    Location
    London, Gtr London, England
    Posts
    299
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Thanks Pam, this worked perfectly.

    I spend a lot of time 'correcting' the direct formating applied to documents by other people, and having only the four styles which I need, normal, heading 2, bold and bullet lists, will save a lot of hunting and clicking.

    I will also be able to set up templates for different kinds of documents, which may have different style-sets, so your solution is very flexible!

    Thanks again
    Frank

  4. #4
    Super Moderator
    Join Date
    Jan 2001
    Location
    Melbourne, Victoria, Australia
    Posts
    3,852
    Thanks
    4
    Thanked 259 Times in 239 Posts
    Pam
    The macro to remove your quick styles is pretty simple
    Code:
    Sub KillQuickStyles()
      Dim sStyle As Style
      For Each sStyle In ActiveDocument.Styles
        Select Case sStyle.Type
          Case wdStyleTypeCharacter, wdStyleTypeParagraph
            sStyle.QuickStyle = False
        End Select
      Next sStyle
    End Sub
    I haven't used style sets before so that is a good idea I might have to explore further.
    Andrew Lockton, Chrysalis Design, Melbourne Australia

  5. #5
    WS Lounge VIP
    Join Date
    Mar 2006
    Location
    Maryland, USA
    Posts
    690
    Thanks
    17
    Thanked 66 Times in 56 Posts
    Quote Originally Posted by frankwalsh1962 View Post
    Thanks Pam, this worked perfectly.

    I spend a lot of time 'correcting' the direct formating applied to documents by other people, and having only the four styles which I need, normal, heading 2, bold and bullet lists, will save a lot of hunting and clicking.

    I will also be able to set up templates for different kinds of documents, which may have different style-sets, so your solution is very flexible!

    Thanks again
    Frank
    Yes it can be. What is more, if you need to see more styles in the gallery and want them displayed a certain way, you can order them by changing their "recommend" values. Go to Styles pane > Manage styles button > Recommend tab. Assign recommend values 1 to 4 to your styles and higher values to styles you need less often, like caption or Heading 3. The styles in the styles gallery will appear in numerical order, and for styles given the same recommend value, in alphabetical order.

    Pam
    Pam Caswell

  6. #6
    WS Lounge VIP
    Join Date
    Mar 2006
    Location
    Maryland, USA
    Posts
    690
    Thanks
    17
    Thanked 66 Times in 56 Posts
    Quote Originally Posted by Andrew Lockton View Post
    Pam
    The macro to remove your quick styles is pretty simple
    Code:
    Sub KillQuickStyles()
      Dim sStyle As Style
      For Each sStyle In ActiveDocument.Styles
        Select Case sStyle.Type
          Case wdStyleTypeCharacter, wdStyleTypeParagraph
            sStyle.QuickStyle = False
        End Select
      Next sStyle
    End Sub
    I haven't used style sets before so that is a good idea I might have to explore further.
    Andrew,
    Thank you so much. I can hardly wait to use your macro. It's not that it takes so long to repeat 3 clicks a dozen times, its that I'm fussing about it the whole time. You've contributed to my better humor.

    Cheers,
    Pam
    Pam Caswell

  7. #7
    3 Star Lounger
    Join Date
    Mar 2004
    Location
    London, Gtr London, England
    Posts
    299
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Wow, this is so helpful, the VBA is something I will try out as well.
    Many thanks Andrew and Pam!

  8. #8
    5 Star Lounger Lugh's Avatar
    Join Date
    Jun 2010
    Location
    Indy
    Posts
    619
    Thanks
    166
    Thanked 75 Times in 66 Posts
    Quote Originally Posted by frankwalsh1962 View Post
    Wow, this is so helpful ... Many thanks Andrew and Pam!
    Seconded, very useful.
    Lugh.
    ~
    Windows 10 Pro x64 1607; Office 2016 (365 Home) x32; Win Defender, MBAM Pro

    ASRock H97 Anniversary; Xeon E3-1231V3 (like i7)
    Gigabyte GeForce GTX 970; 12GB Crucial DDR3 1600
    Logitech MX Master mouse; Roccat Isku kb

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •