Чтобы найти слово внутри абзаца, нужно переназначать объект Find при перечислении абзацев (Метод Select применять не обязательно. Он указан для наглядности отладки.):
Dim p As Paragraphs, f As Find
Set p = ActiveDocument.Paragraphs
For i = 1 To p.Count
Set f = p(i).Range.Find ' Переназначить Find
f.Text = "компьютер"
If f.Execute Then p(i).Range.Select
Next i
приручЕнныйилиприрУченный?