Results 1 to 5 of 5
  1. #1
    New Lounger
    Join Date
    May 2015
    Posts
    8
    Thanks
    1
    Thanked 0 Times in 0 Posts

    What is HPS style in MS Word 2013?

    Hi, does anyone know what HPS is? I have a macro that checks for invalid styles that I don't want in a document and HPS is pulling,however, the font looks like it's Calibiri font size 12. Does anyone know what HPS is?

    Thanks,
    DAnielle

  2. #2
    Super Moderator
    Join Date
    May 2002
    Location
    Canberra, Australian Capital Territory, Australia
    Posts
    5,055
    Thanks
    2
    Thanked 417 Times in 346 Posts
    If you mean HPS is a Style name, it's probably a custom Style.
    Cheers,

    Paul Edstein
    [MS MVP - Word]

  3. #3
    3 Star Lounger
    Join Date
    Apr 2001
    Location
    Levin, Manawatu-Wanganui, New Zealand
    Posts
    324
    Thanks
    9
    Thanked 28 Times in 26 Posts
    Hi
    Perhaps as Macropod it is a custom style

    Try this macro. It should pop up a msgbox for each custom style as it loops through the styles used in the document. Hopefully HPS pops up.
    Geof
    --------------------
    Sub ShowCustomStyles()
    Dim oStyle As Style

    For Each oStyle In ActiveDocument.Styles
    If oStyle.BuiltIn = False Then
    MsgBox oStyle.NameLocal
    End If
    Next oStyle

    End Sub
    --------------------

  4. #4
    Super Moderator
    Join Date
    May 2002
    Location
    Canberra, Australian Capital Territory, Australia
    Posts
    5,055
    Thanks
    2
    Thanked 417 Times in 346 Posts
    Ouch! I doubt anyone wants a message box for every style that isn't builtin...
    Cheers,

    Paul Edstein
    [MS MVP - Word]

  5. #5
    3 Star Lounger
    Join Date
    Apr 2001
    Location
    Levin, Manawatu-Wanganui, New Zealand
    Posts
    324
    Thanks
    9
    Thanked 28 Times in 26 Posts
    Hi loungers

    With a bit more thought it is probably better to print out the list of styles used in the document.

    • This is available from the settings of the Print screen.
    • Or display the styles pane.



    Years ago I wrote something like this with help from Lounge members.
    Code:
    -----------------
    Sub PrintCustomStyles()
    Dim srcDocument As Document
    Dim oStyle As Style
    Dim iStyleCounter As Integer 'loop counter on input
    Dim j As Integer 'loop counter in output
    Dim arStyleList() As String
    
    Set srcDocument = ActiveDocument
    iStyleCounter = 0
    ' Read in the custom style names
    For Each oStyle In srcDocument.Styles
        If oStyle.InUse Then 'try removing for styles irrespective of usage
            If oStyle.BuiltIn = False Then
                iStyleCounter = iStyleCounter + 1
                ReDim Preserve arStyleList(iStyleCounter)
                arStyleList(iStyleCounter) = oStyle.NameLocal
            End If
        End If
    Next oStyle
    
    ' Output the list of custom stylenames to new document
    If iStyleCounter > 0 Then
        Documents.Add
        Selection.TypeText "User-Defined Styles in Use" & Chr(13)
        For j = 0 To iStyleCounter
            Selection.TypeText arStyleList(j) & Chr(13)
        Next j
        Selection.TypeParagraph
    Else
        Selection.TypeText "There are no custom styles used in this document"
    End If
    End Sub
    ---------------------

    Cheers
    Geof
    Last edited by geofrichardson; 2015-07-15 at 17:57. Reason: added script tags

Posting Permissions

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