Your technology certification is waiting. Enroll in Cloud Class ®
Function GetStyle(wdRange As Word.Range) As String
Dim strStyleName As String
Dim wdStyle As Style
Set wdStyle = wdRange.Style
If wdRange.Font.Size <> wdStyle.Font.Size Then
strStyleName = wdRange.Style.NameLocal & " + " & wdRange.Font.Size & " pt"
If wdRange.Font.Italic <> wdStyle.Font.Italic Then
strStyleName = strStyleName & IIf(strStyleName = wdRange.Style.NameLocal, " + ", ", ") & _
IIf(wdRange.Font.Italic, "", "Not ") & "Italic"
GetStyle = strStyleName
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.