思路:遍历批注对象,获取每个批注内容的起止位置并添加到可编辑区
var comt=TANGER_OCX_OBJ.ActiveDocument.Comments;
var count = comt.Count;
var ss = 0;
var se = 0;
for(var i =1; i<=count;i++){
ss=TANGER_OCX_OBJ.ActiveDocument.Comments(i).Scope.Start;
se=TANGER_OCX_OBJ.ActiveDocument.Comments(i).Scope.End;
TANGER_OCX_OBJ.ActiveDocument.Application.Selection.SetRange(ss,se);
TANGER_OCX_OBJ.ActiveDocument.Application.Selection.Editors.Add(-1); //selection代表非保护区的位置 wdEditorEveryone =-1
}
TANGER_OCX_OBJ.Activedocument.Protect(3, 0, "1"); //密码设为:1,保护区只读
|