用代码在OLE字段中插入Word文档时,页面大小为自动大小,看起来别扭。想用代码来控制:
var
doc: System.DispatchHelper;
sel: System.DispatchHelper;
pageSetup : System.DispatchHelper;
begin
TOleContainer(Self.DataEditDraft.InplaceControl).CreateObject('Word.Document', False);
//设置页面的大小
doc := System.DispatchHelper.Create(TOleContaine(DataEditDraft.InplaceControl).OleObject);
pageSetup := System.DispatchHelper.Create(doc.PropertyGet('PageSetup', []));
pageSetup.PropertyPut('PageHeight', [841.995]);
pageSetup.PropertyPut('PageWidth', [595.35]);
但是报错:服务器出现意外情况。
请问是甚么原因?
如果代码不对,应该怎么写?
谢谢…… |