Sub kalaRasvaseks()
  Dim Lause As Range
  For nr = 1 To ActiveDocument.Sentences.Count
    Set Lause = ActiveDocument.Sentences(nr)
    Lause.Find.Execute "kala"
    If Lause.Find.Found Then
      ActiveDocument.Sentences(nr).Bold = True
    End If
  Next nr
End Sub

Sub kalaAsendus()
  ActiveDocument.Content.Find.Execute FindText:="kilu", ReplaceWith:="räim"
  ActiveDocument.Content.Find.Execute FindText:="Juku", _
           ReplaceWith:="Juhan", Replace:=wdReplaceAll
End Sub

Sub rasvaneKursiivi()
  Dim otsing As Find
  Set otsing = ActiveDocument.Content.Find
  otsing.ClearFormatting
  otsing.Font.Bold = True
  otsing.Replacement.Font.Italic = True
  otsing.Replacement.Font.Bold = False
  otsing.Execute FindText:="", ReplaceWith:="", Format:=True,
Replace:=wdReplaceAll
End Sub