delphi中打开word时只读方式打开

Question

我在delphi中打开word  设置属性 
var
worddoc:TWordDocument;
wordapp:Twordapplication;
begin
 filename:='c:\1.docx';
     WordDoc:=   TWordDocument.Create(nil);
    WordApp:=   TWordApplication.Create(nil);
    WordApp.Visible   :=   false;
    WordApp.Documents.open(FileName,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
    EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam
     ,EmptyParam,EmptyParam,EmptyParam);
     index:=1;
    WordDoc.ConnectTo(wordapp.Documents.Item(index));
     worddoc.ReadOnly;不好用  怎么还是可以修改啊 
大侠们 有什么好的办法吗 

Answer 1

//这段代码，希望对你有帮助。
var
   ReadOnly, BFalse, BTrue, OleFileName: OleVariant;
begin
  WordApp.Visible := True;
  OleFileName := 'c:\1.doc';
  BFalse := False;
  BTrue := True;
  ReadOnly := true;  WordApp.Documents.Open(OleFileName, EmptyParam, ReadOnly,
      BFalse, EmptyParam, EmptyParam, BTrue, EmptyParam, EmptyParam,
      EmptyParam, EmptyParam, BTrue);
end;

Answer 2

谢谢 已经搞定  插入word  速度很慢