Results 1 to 3 of 3
  1. #1
    4 Star Lounger
    Join Date
    Nov 2002
    Location
    London, Gtr London, England
    Posts
    496
    Thanks
    8
    Thanked 0 Times in 0 Posts

    Delete all user styles (2K)

    Is there a way of saying "Delete all user styles" rather than having to name them all? I'm building a create style macro

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Delete all user styles (2K)

    Perhaps this bit of code will do what you want, or can be adapted to your needs:

    Sub DeleteUserStyles()
    Dim stl As Style
    For Each stl In ActiveDocument.Styles
    If stl.BuiltIn = False Then
    stl.Delete
    End If
    Next stl
    End Sub

  3. #3
    4 Star Lounger
    Join Date
    Nov 2002
    Location
    London, Gtr London, England
    Posts
    496
    Thanks
    8
    Thanked 0 Times in 0 Posts

    Re: Delete all user styles (2K)

    That's it!!! many thanks

    liz

Posting Permissions

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