ntko相关内容



 TANGER_OCX_OBJ.ActiveDocument.AcceptAllRevisions();//接受所有的修订

.activedocument.protectiontype获取控件的状态,用来判断是不是保护的状态

遍历修订信息，找到对应修订信息，对比是不是你要处理的修订文字，之后选中再接受修订

activedocument.application.Selection.Range.Revisions.AcceptAll();

问题：word中获取修订信息

解决方案：
functionreversioninfor(username){
varrs=TANGER_OCX_OBJ.ActiveDocument.Revisions;
var rcount=rs.Count;
varrsinfor="";
for(vari=1;i<=rcount;i++){
/*
* Type返回的是数字类型(0-13)：
* 0：表示没有痕迹
* 1：表示插入修订
* 2：表示删除修订
* 3：字体格式更改
* 10:带格式修订
*/
rsinfor="痕迹用户名："+rs(i).Author+",修订时间："+rs(i).Date;
if(rs(i).Author==username){
if(rs(i).Type==1)
rsinfor=rsinfor+",插入内容："+rs(i).Range.Text;
else if(rs(i).Type==2)
rsinfor=rsinfor+",删除内容："+rs(i).Range.Text;
else
rsinfor=rsinfor+",修订内容："+rs(i).Range.Text+","+rs(i).FormatDescription;
alert(rsinfor);
}
}
}