What is HPS style in MS Word 2013?

Topic

New Reply

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

Reply | Quote

Replies

If you mean HPS is a Style name, it’s probably a custom Style.

Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Reply | Quote

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
——————–

Reply | Quote

Ouch! I doubt anyone wants a message box for every style that isn’t builtin…

Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Reply | Quote

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

Reply | Quote