某些时候希望用代码控制word文档的编辑权限，比如在VBA中用以下语句可以设置文档只读而不能编辑：

 If ActiveDocument.ProtectionType = wdNoProtection Then
    ActiveDocument.Protect _
        Type:=wdAllowOnlyFormFields, NoReset:=True
End If

但：这段代码转移到VFP中不行。

请问在VFP代码该如何写才能实现让文档具备不能复制，不能编辑等等权限呢？

[此贴子已经被作者于2016-1-23 06:02编辑过]

oExcel.ActiveSheet.Protect('密码',.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.)

很抱歉，这句话不能够运行，要出错 “Type mismatch"。我仅仅时将其改为以下而已：

  WORDAPP.ACTIVEDOCUMENT.Protect('密码',.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.)

不知道是不是控制excel和word不同造成的。