ヘッダ内の表をマクロ(VBA)で指定する方法

こんにちは。 >ヘッダ領域内の表をマクロから指定する方法を教えてください。 ヘッダのTable は、Cell の構造が違うようです。 .Range.Cells(1) <-- Cells(1,1) [.Range.Cells(i * 0 + 1) <-- Cells(1,1)] .Range.Cells(i * 2 + 1) <-- Cells(1,3) '------------------------------------------- Sub TestEditHeader() Dim NewDoc As Document Dim i As Integer Const hensu1 = "A" Const hensu2 = "B" Set NewDoc = Application.Documents.Add("雛型.dot", False, wdNewBlankDocument, _