Макрос в MO Word

[auqarius]

Всем добрый вечер! Я студент 1 курса, преподаватель по философии, задал написать макрос в MO Word (2003 или 2007). Ну, точнее не мне а нам с напарником...
Макрос должен проверить текст на критерии преподавателя, поразмыслив мы пришли к выводу, что в макросе надо реализовать следующее:
1) проверить шрифт текста, если он не соответствует Times New Roman, то вы дать сообщение - "Шрифт текста не соответствует!"
2) подсчитать кол-во страниц, если страниц меньше 6 то выдать сообщение - "Страниц меньше 6!"
3) Проверить наличия в тексте следующих строк "Список Литературы", "Оглавление"; Если таковых нет, выдать соответствующее сообщение.

P.S: На 1 курсе мы изучаем паскаль, бейсик на нашей специальности изучаться не будет , язык бейсик мы не знаем, но примерный код есть на паскале:

begin
...
If (шрифт) <> (шрифт - Times New Roman) then
writeln('Шрифт текста не соответствует ');
If (Кол-во страниц) < 6 then
writeln(' Страниц меньше 6');
If not (Спис. лит-ры) then writeln(' Нет сп. лит.!'); {Поиск Спис. лит.}
If not (Оглавление) then writeln(' Нет оглавл.!'); {Поиск оглавл.}
...
end.
Макрос должен использовать оператор if..then

Простите если, что то не так изложил. Надеюсь на вашу помощь!