Instead of using Selection as the required expression, use a range object, i.e.,
Dim rngDoc as Range
...
Set rngDoc = ActiveDocument.Words(1)
i = rngDoc.MoveUntil(Cset:="+", Count:=wdBackward)

Seems like ActiveDocument.Words(1) would eliminate Comments in its Range.