100再开一帖，求牛人！word的vba----->delphi代码

Question

word中宏的代码为：
ActiveDocument.Sections(1).ProtectedForForms = True
    ActiveDocument.Sections(2).ProtectedForForms = False
    ActiveDocument.Protect Password:="1", NoReset:=False, Type:= _wdAllowOnlyFormFields 如何转换为delphi代码？

Answer 1

一切OK
uses  COMobj,ActiveX,Word2000, StdCtrls;procedure TForm1.Button1Click(Sender: TObject);
var
  WordApp:variant;
begin
  WordApp := CreateOleObject('Word.Application');//创建OLE对象
  WordApp.Documents.Open('C:\\保护眼睛.doc');
  WordApp.ActiveDocument.Protect(Password:='1',NoReset:=False, Type:=wdAllowOnlyFormFields);
  WordApp.visible:=true;
end;

Answer 2

WordApp.Documents.Open('C:\保护眼睛.doc');  多了一个\  你就是想保护文档不被修改吧。

Answer 3

3KS，到
http://community.csdn.net/Expert/TopicView.asp?id=4607354来领分