Keep First Letters, with exceptions

[Pin]

I found code that works for my purpose of deleting every letter except the first letter. However, I am applying this automation to bible verses, and I do not want the verse numbers to be tampered with. My problem is that the current code will shorten "10" to "1" and "11" to "1" or "25" to "2" and so on. I've tried adding Select Case to omit double digits, but does not seem to do what I intend. What am I doing wrong?

Bonus: Current code is sub-optimal, as it replaces letters I want deleted with a space " ". I work around it by doing find & replace. But if that can be handled in code too, that would be better.

Here is the working code:

Sub Macro1()
'
' Macro1 Macro
'
'
Dim oWord As Word.Range
For Each oWord In ActiveDocument.Range.words
For i = 2 To oWord.Characters.Count
If Not oWord.Characters(i) = " " Then
oWord.Characters(i) = " "
End If
Next i
Next oWord
End Sub

And here is my attempt to save the double digits from being touched:
Sub DeleterF()
'
' DeleterF Macro
'
'
Dim oWord As Word.Range
For Each oWord In ActiveDocument.Range.words
Select Case oWord
Case "10", "11", "12", "13"
Debug.Print "Confirm Case of DoubleDigits"
Case Else
For i = 2 To oWord.Characters.Count
If Not oWord.Characters(i) = " " Then
oWord.Characters(i) = " "
End If
Next i
End Select
Next oWord
End Sub

If it helps at all, my Debug.Print message does not print in the "Immediate" window.