各位大哥:如何利用wordapplication控制word加载标准模板的时候同时加载一个包含宏其他的模板?(150分)

  • 主题发起人 主题发起人 lnb_T
  • 开始时间 开始时间
L

lnb_T

Unregistered / Unconfirmed
GUEST, unregistred user!
各位大哥:如何利用wordapplication控制word加载标准模板的时候同时加载一个包含宏其他的模板?
是这样:
我装完Adobe Acrobat 5.0后在word启动后菜单栏和工具栏均添加了一些生成pdf的选项,
其实这些新的控制栏是通过加载一个PDFMaker.dot(装完Adobe Acrobat 5.0就有)的模板实现的,这个模板加载
中要放在C:/Program Files/Microsoft Office/Office10/Startup中(单指officexp),这样word启动后就有了
这些生成pdf的选项。
但是如果我用delphi的wordapplication来操控word,则启动后word没有加载这些工具栏和菜单栏,如何解决啊?
利用
install:=true;
wordapplication1.AddIns.Add('C:/Program Files/Microsoft Office/Office10/Startup/PDFMaker.dot',install);也无用啊
似乎word没有加载PDFMaker.dot这个模板啊。
 
通过OLE可以。
 
用你的程序来自定义工具栏和菜单就行了
 
什么意思?
 
WordApplication:=TWordApplication.Create(nil);
WordDocument:=TWordDocument.Create(nil);
WordParagraphFormat:=TWordParagraphFormat.Create(nil);
WordFont:=TWordFont.Create(nil);

try
WordApplication.Disconnect;
Wordapplication.Connect;
except
MessageDlg('Word 可能还没有安装!', mtError, [mbOk], 0);
Abort;
end;

Wordapplication.Visible := True;
WordApplication.Caption := 'Automation Sample';
Template := EmptyParam; //这里若使用模板,则应使用模板的绝对路径名
ItemIndex := 1;
NewTemplate := False;
WordApplication.Documents.Add(Template, NewTemplate);
WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));
...
 
不好意思,你是要加载其它的模板...
 
1、可以先定义一个模板,在模板里定义一个宏,用这个宏来加载你要的其它模板。
2、在你的程序运行时,就只要自动加载一下这个模板,然后往WORD里添加一个菜单,
并把你前面定义的宏,赋给这个菜单就行了。
 
后退
顶部