word里如何禁止复制与另存为？

你在word文档里面插入以下宏：
Private Sub Document_Open()
  If ActiveDocument.ProtectionType = wdNoProtection Then
          ActiveDocument.Protect _
          Type:=wdAllowOnlyFormFields, NoReset:=True
  End If
  End Sub
如果要高级一点的方法，可以参考官网：
http://office.microsoft.com/zh-cn/word-help/RZ001117927.aspx

追问

如果能有办法强制启用宏就更好了。加上以下就可以禁止另存为了。禁止另存为的目的也是防止将文件存纯文本格式取出其中文字。
Sub FileSaveAs()
End Sub

追答

：）
Private Sub Document_Open()
 
这句就是打开word自动启用宏的意思~你还需要禁止另存为的宏？