主题：word vba 代码转换成能在foxtable 中运行的代码。。

WORD vba 代码

Sub TEST()
  With ActiveDocument.Sections(1)
    .Footers(wdHeaderFooterPrimary).Range.Text = "Footer text"
  End With
End Sub

foxtable 代码

   引入word.dll

  然后

  nDoc.Sections(1).Footers(wdHeaderFooterPrimary)).Range.Text = Tables("合同主表").current("合同编号")

但是这个wdHeaderFooterPrimary编译通不过。。

请问如何将上面的VBA 代码转换成foxtable 中能运行的代码。

？？？？？？？