Создание макроса

[Алексей1988]

Здравствуйте. Помогите доделать макрос пожалуйста. Надо чтобы макрос работал так: искал определенное слово или текст и делал замену/подстановку (поле eq). Я написал макрос с заменой слова, но как написать еще и поиск с введением поля eq?
Sub eq()
'
' eq Макрос
'
'
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False
Selection.TypeBackspace
Selection.TypeText Text:="eq "
Selection.MoveRight Unit:=wdWord, Count:=1
Selection.TypeBackspace
Selection.Fields.Update
End Sub

[Казанский]

Вставляйте не пустое поле, а сразу формулу, например

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldFormula, _
  Text:="x = \R(c;\F(a;b))", PreserveFormatting:=False