怎样用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:=" 页"大哥哥大姐姐帮我翻译一下吧!!
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage
Selection.TypeText Text:=" 页 共 "
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldNumPages
Selection.TypeText Text:=" 页"大哥哥大姐姐帮我翻译一下吧!!
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变量。
那是用在宏里面吗?
看了你的留言,特解答如下:uses word2000;var
vWdFieldNumPages, vwdFieldPage :OleVariant;
begin
,,,
vWdFieldNumPages := wdFieldNumPages;
vwdFieldPage := wdFieldPage;
wordApplication.Selection.Fields.Add(vWdFieldNumPages, ...)将不能直接使用的参数 通过 olevariant 变量转换即可.