pageoffice一键清空所有批注（vba脚本实现）

js实现清空所有批注方法

// 清空所有批注
function ClearComments(){
    var sMac = "Sub clearComments() " + "\r\n"
        +"For a = 1 To ThisDocument.Comments.Count " + "\r\n"
        +"ThisDocument.Comments(1).Delete " + "\r\n"
        +"Next " + "\r\n"
        +"End Sub " + "\r\n"
    document.getElementById("PageOfficeCtrl1").RunMacro("clearComments", sMac);
}

后端实现（java）

	//设置PageOffice服务器组件
	PageOfficeCtrl poCtrl1 = new PageOfficeCtrl(request);
	poCtrl1.setServerPage(request.getContextPath()+"/poserver.zz"); //此行必须
    poCtrl1.setJsFunction_AfterDocumentOpened("AfterDocumentOpened()");
	poCtrl1.setOfficeToolbars(false);//隐藏Office工具
    poCtrl1.addCustomToolButton("清空批注", "ClearComments()", 5); 
	//打开文件
	poCtrl1.webOpen("doc/test.doc", OpenModeType.docAdmin, "Tom");