WordVba

Sub ToggleDocumentProtection() Dim doc As Document Set doc = ActiveDocument ' 检查文档是否受到保护 If doc.ProtectionType = wdNoProtection Then ' 如果文档未受保护，则加上只读保 ......