如何在delphi中控制word文档中的文字型窗体域(100分)

  • 主题发起人 主题发起人 dtwind
  • 开始时间 开始时间
D

dtwind

Unregistered / Unconfirmed
GUEST, unregistred user!
我在做一个公文审批的流转系统,各类公文做成模板,打开后锁定窗体,这样只有文字型窗体域可以输入审批信息,保存在数据库中。

在delphi中如何控制word文档中的文字型窗体域。
 
由没有好的例程呢,就是控制Word中窗体域的例程
 
7.0里不知道有没有,反正6.0里没有
你可以用word录制一下宏,看看用了什么方法,然后在delphi中照葫芦画瓢就行了
 
有些操作无法录制宏的
比如说文字窗体域保护以后,以后的操作就没有办法录制宏了
 
你是指文字的编辑窗口,即纸张大小吗?你可以这样写:
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;
 
我也在找这方面的资料,很少
 

Similar threads

后退
顶部