如何在Word保留文件修改的痕迹(80分)

  • 主题发起人 主题发起人 zzjmail
  • 开始时间 开始时间
Z

zzjmail

Unregistered / Unconfirmed
GUEST, unregistred user!
兄弟在处理一个OA经常处理的问题,就是如何在word中保留用户谁修改了,修改的痕迹,这样要怎么处理有没有人知道,告诉一声,都快急死了。
 
用keybd_event记录键盘按键,行不行。
 
法1、通过程序设置不同的用户的UserName,就是选项里面的用户名。
然后启用修订。
当然,需要通过程序控制用户以免用户手工取消修订。

法2、启用Word中的版本功能。在菜单文件-》版本中设置。同上,也需要一部分程序设置。
法3、表结构设置或者实现方式进行修改。每一个流程保留一个文档的副本不就可以了?
 
to yzhshi:
兄弟能再说明白点,或者能给点demo吗.
 

FDocument: _Document
FDocument.Application.Set_UserName(UserInfo.xm);
FDocument.TrackRevisions := False;
FDocument.ShowRevisions := False;
FDocument.PrintRevisions := False;
 
to chaha:
能说说思路,或者你的想法吗
 
通过程序设置不同的用户的UserName,就是选项里面的用户名。然后启用修订。
这个方法不错,
我就是用这个方法实现的
 
to seeseasoft兄:
我不知道怎么用程序来实现呀。能说说吗,或者给个demo
 
对word的控制,我用的是ole对象方面,
在打开对象时,取得wrod的接口对象_Document此对象定义在头文件word2000.pas中;
在对word编辑之前,设置word的application用户名为当前用户,打开word的修改功能。
这样在保存时就可以把当前的编辑情况保存下来,(word自己处理)
想看的时候调用ShowRevisions := true;就可以看到修改的情况了。
 
to chaha兄:
你是怎么用程序打开word的修改功能的?
想看的时候调用ShowRevisions := true;就可以看到修改的情况了。?
这个用程序要怎么实现?
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部