有两种方法:
1。文档保护
ActiveDocument.Protect Password:="123", NoReset:=False, Type:= _
        wdAllowOnlyComments
2。保存时设置只读密码
    ActiveDocument.SaveAs FileName:="aaa.doc", FileFormat:=wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword :="123",ReadOnlyRecommended:=True, EmbedTrueTypeFonts:=False,SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= False没密码保证写不了