（100分）各位大哥哥大姐姐求求你们了救救我吧！！看看我的贴子吧！！！

Question

怎样用Delphi来实现在Word文档的页脚中插入页码！！小弟录制的vba宏不能转成Delphi语句。    Selection.TypeText Text:="第 "
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage
    Selection.TypeText Text:=" 页 共 "
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldNumPages
    Selection.TypeText Text:=" 页"大哥哥大姐姐帮我翻译一下吧！！

Answer 1

vWordDoc = 当前文档
    vWordDoc.Selection.TypeText('第 ');
    vWordDoc.Selection.Fields.Add(vWordDoc.Selection.Range, wdFieldPage, ...);
    vWordDoc.Selection.TypeText(' 页 共 ');
    vWordDoc.Selection.Fields.Add(vWordDoc.Selection.Range, wdFieldNumPages, ...);
    vWordDoc.Selection.TypeText(' 页');注：... 代表n个（好象n应该= 1)变量，可用olevaint变量替换
如果不认wdFieldNumPages则先将其赋值给一个olevaint变量。

Answer 2

things(平) :
  那是用在宏里面吗?

Answer 3

dudu8686 (飞飞) 
看了你的留言，特解答如下：uses word2000;var
  vWdFieldNumPages, vwdFieldPage :OleVariant;
begin
  ,,,
  vWdFieldNumPages := wdFieldNumPages;
  vwdFieldPage := wdFieldPage;
  wordApplication.Selection.Fields.Add(vWdFieldNumPages, ...)将不能直接使用的参数 通过 olevariant 变量转换即可.