Visual Basic Application, макросы в Word 2010

[OmegaBerkut]

Доброго времени суток.
Моя задача следующая:
"Создать в режиме авто записи макрос, который во всём документе будет делать слово "Земля" полужирным шрифтом, размером 16 пт, красного цвета. Макрос должен вызываться сочетанием клавиш Alt+Z. Макрос должен находиться в файле формата *.docm"

Собственно, как создать макрос, и сохранить его в файле *.docm - я знаю.
Помогите пожалуйста разобраться с остальным:
1) как должен выполняться поиск слова "Земля" ? на более "серьёзных" языках программирования это пройтись по всей строке и получить массив вхождений (бла бла бла). Как это должно выглядеть в коде макроса ?
2) Каким кодом менять отображение текста (полужирный, размер 16 пт, красный цвет) ?
3) Как этот макрос повесить на хоткей ?

[Demetros]

Так?

Sub Макрос1()

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Size = 16
        .Bold = True
        .Color = wdColorRed
    End With
    With Selection.Find
        .Text = "Земля"
        .Replacement.Text = "Земля"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

[Demetros]

Этот код ищет совпадения по выделенному слову и форматирует их.

Sub Макрос1()
Dim stSlovo As String
stSlovo = Word.Selection.Text    ' или так stSlovo = Selection.Words.First.Text и выделять не нужно
'MsgBox stSlovo
    With Selection.Find.Replacement.Font
        .Size = 16
        .Bold = True
        .Color = wdColorRed
    End With
    With Selection.Find
        .Text = stSlovo
        .Replacement.Text = stSlovo
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub