Microsoft Office Forums - View Single Post - Detecting that previous character doesn't exist (i.e., present character is first in document)

Guessed · 07-15-2016, 05:22 PM

You can either ignore the error and then test for
strPrevChar is Nothing

or test if
Selection.Range.Start > 0

Rather than testing every character that way, it is more efficient to ensure your range won't throw that error before the loop begins.

Code:

Sub wtf()
  Dim rng As Range
  Set rng = Selection.Range
  If rng.Start = 0 Then rng.MoveStart Unit:=wdCharacter, Count:=1
  If rng.End = ActiveDocument.Range.End Then rng.MoveEnd Unit:=wdCharacter, Count:=-1
  For Each strChar In rng.Characters
      Set strPrevChar = strChar.Previous(wdCharacter, 1)
      Set strNextChar = strChar.Next(wdCharacter, 1)
      If strPrevChar <> "!" Then
        ' Perform the operation
      End If
  Next strChar
End Sub