Sub Temp()
With ActiveDocument.ActiveWindow.View
 .Type = wdPrintView
 .SeekView = wdSeekCurrentPageHeader
End With
Dim ttab As Table
Set ttab = Selection.HeaderFooter.Range.Tables(1)
ttab.Cell(1, 1).Range.InsertAfter ("1234")
End Sub

** ЗАПОЛНЕНИЕ ВЕРХНЕГО КОЛОНТИТУЛА  
** Переключаемся на колонтитул. Выделяем колонтитул на первой-текущей странице
m.loDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
** Заполняем первую таблицу в Headere
m.nTable = 1
m.loTable = loDoc.Sections(1).Headers(1).Range.Tables(m.nTable) 
** Вторая строка, Первая колонка
m.loTable.Cell(2, 1).Range.Text = "1234"  
**     Переключаемся на документ! Иначе при loWord.Visible = .T. остаётся редактирование колонтитула 
m.loDoc.ActiveWindow.View.SeekView = wdSeekMainDocument
** КОНЕЦ ЗАПОЛНЕНИЕ ВЕРХНЕГО КОЛОНТИТУЛА