如果没有保护活动文档,该示例保护文档,使审阅者只能插入批注而不改变文档内容。

If ActiveDocument.ProtectionType = wpsNoProtection Then
    ActiveDocument.Protect Type:=wpsAllowOnlyComments
End If