您好！代码如下：
SetAttr Word.ActiveDocument.Path & "\" & Word.ActiveDocument.Name, vbReadOnly
SetAttr过程是更改文件属性的，对大部分文件都有作用。
