Вот разобрался! Все очень легко. Немного помогло использование макросов в Word. Выбираешь запись макроса, выполняешь действия, останавливаешь запись и смотришь код. После переносишь его на Delphi.
Code
var aling, firstPge:oleVariant;
...
// Нумерация страниц.
WordApplication1.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageHeader; // заходим в коллонтитул
aling:=1;
firstPge:=1;
WordApplication1.Selection.HeaderFooter.PageNumbers.add(aling, firstPge); // создаем нумерацию
WordApplication1.ActiveWindow.ActivePane.View.SeekView := wdSeekMainDocument; // закрываем коллонтитул
