D dtwind Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-04 #1 我在做一个公文审批的流转系统,各类公文做成模板,打开后锁定窗体,这样只有文字型窗体域可以输入审批信息,保存在数据库中。 在delphi中如何控制word文档中的文字型窗体域。
S sunhood Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-17 #3 7.0里不知道有没有,反正6.0里没有 你可以用word录制一下宏,看看用了什么方法,然后在delphi中照葫芦画瓢就行了
D dtwind Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-18 #4 有些操作无法录制宏的 比如说文字窗体域保护以后,以后的操作就没有办法录制宏了
阿 阿当 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-19 #5 你是指文字的编辑窗口,即纸张大小吗?你可以这样写: var Index: OleVariant; //用Servers/TWordApplication控件 begin Index := 0; //打开的第几个文档 WordApplication.Windows.Item(Index).View.Type_ := wdPageView; //指定页面方式 with WordApplication.Documents.Item(Index).PageSetup do begin//对应页面设置中的设置 TopMargin := 0; //上页距 BottomMargin := 0; //下页距 LeftMargin := 0; //左页距 RightMargin := 0; //右页距 Gutter := 0; //装订线 HeaderDistance := 0; //页眉 FooterDistance := 0; //页脚 PageWidth := PixelsToPound(PingW); //纸张宽 PageHeight := PixelsToPound(PingH); //纸张高 end; end;
你是指文字的编辑窗口,即纸张大小吗?你可以这样写: var Index: OleVariant; //用Servers/TWordApplication控件 begin Index := 0; //打开的第几个文档 WordApplication.Windows.Item(Index).View.Type_ := wdPageView; //指定页面方式 with WordApplication.Documents.Item(Index).PageSetup do begin//对应页面设置中的设置 TopMargin := 0; //上页距 BottomMargin := 0; //下页距 LeftMargin := 0; //左页距 RightMargin := 0; //右页距 Gutter := 0; //装订线 HeaderDistance := 0; //页眉 FooterDistance := 0; //页脚 PageWidth := PixelsToPound(PingW); //纸张宽 PageHeight := PixelsToPound(PingH); //纸张高 end; end;