Strange character on table range text

[gmaxey]

Donquick,

There are several ways to skin the cat. Using a separate function to return cell text is one:

Sub Test()
    Dim OnRg2 As Range
    With ActiveDocument
        Set OnRg2 = .Tables(1).Rows(1).Cells(1).Range
    End With
    Select Case CellText(OnRg2)
        Case "Low"
            OnRg2.Text = "Low to Moderate"
        Case "Low to Moderate "
            OnRg2.Text = "Moderate"
        Case "Moderate "
            OnRg2.Text = "Moderate to High"
        Case "Moderate to High "
            OnRg2.Text = "High"
        Case "High "
            OnRg2.Text = "Low"
    End Select
End Sub

Function CellText(ByRef oRng As Word.Range) As String
    CellText = Left(oRng, Len(oRng) - 2)
End Function