主题：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 中能运行的代码。

？？？？？？？

你这个1是怎么得出来的？？？可是可以用了。。还要一段代码

ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip
    .Subject = "Status Doc"
    .Protect = wdAllowOnlyComments
    .AddRecipient Recipient:="Kim Johnson"
End With
ActiveDocument.Route、

Protect 的这个值wdAllowOnlyComment

在VB 中赋值多少，怎么得出来的？？？

还有。谢谢你的回答。。你的回答我已经采用了。非常有用。只是不知道你这个1是怎么得来的。。。

wdAllowOnlyComments

还是的等于1