以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  word vba 代码转换成能在foxtable 中运行的代码。。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=43897)
--  作者：along
--  发布时间：2013/12/18 14:03:00
--  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 中能运行的代码。

？？？？？？？
--  作者：狐狸爸爸
--  发布时间：2013/12/18 14:14:00
--  
   .Footers(1).Range.Text = "Footer text"
--  作者：along
--  发布时间：2013/12/18 14:49:00
--  

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

ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip
    .Subject = "Status Doc"
    .Protect = wdAllowOnlyComments
    .AddRecipient Recipient:="Kim Johnson"
End With
ActiveDocument.Route、
Protect 的这个值wdAllowOnlyComment
在VB 中赋值多少，怎么得出来的？？？
--  作者：along
--  发布时间：2013/12/18 14:54:00
--  

还有。谢谢你的回答。。你的回答我已经采用了。非常有用。只是不知道你这个1是怎么得来的。。。
--  作者：狐狸爸爸
--  发布时间：2013/12/18 15:49:00
--  

wdAllowOnlyComments

 

还是的等于1