PowerPoint underlines spaces and tabs - workaround

Problem

In PowerPoint 97 and previous, when you chose some text and set it to be underlined, each word was underlined but not the spaces between the words.

When you do the same thing in PowerPoint 2000 and up (or open an older file in PowerPoint 2000 and up) the space are underlined as well.

Solution

Select your text and then run this macro. It will remove the existing underlining, then underline each word but not the spaces between words.

Sub ReUnderline()

    Dim x As Long

    With ActiveWindow.Selection.TextRange
        ' turn off underlining overall
        .Font.Underline = msoFalse
        For x = 1 To .Words.Count
            If Right$(.Words(x), 1) = " " Then
                .Words(x).Characters(1, .Words(x).Characters.Count - 1).Font.Underline = msoTrue
            Else
                .Words(x).Font.Underline = msoTrue
            End If
        Next
    End With

End Sub

If you haven't underlined anything yet and just want to underline the words (but not punctuation characters), try this:

Sub UnderlineUs()
    Dim oRng As TextRange
    Dim x As Long

    Set oRng = ActiveWindow.Selection.TextRange
    For x = 1 To oRng.Characters.Count
        Select Case oRng.Characters(x)
            Case Is = " ", ",", ".", "?", "!", vbTab
                ' Don't underline it
                ' Add more characters above as needed
            Case Else
                oRng.Characters(x).Font.Underline = True
        End Select
    Next
End Sub

See How do I use VBA code in PowerPoint? to learn how to use this example code.

---