大哥们：怎样用Wordapplication和worddocument控件打开一个已经存在的文件？

Question

大哥们：
   怎样用Wordapplication和worddocument控件打开一个已经存在的文件？
  并从中取出一段内容！

Answer 1

http://www.cx66.com/cxgzs/program/delphi/252.htm

Answer 2

大哥：
wordapplication.documents.open( filename, confirmconversions, 
readonly, addtorecentfiles, passworddocument, passwordtemplate, 
revert, writepassworddocument, writepasswordtemplate, format ); 
 
 的参数不够呀，还缺两个，编译通不过？

Answer 3

//楼主，试试这个：
Var
   FileName,Emp ,fmt :OleVariant ;
Begin ;
   .....
   Emp := EmptyParam ; fmt := 0 ; 
   wordapplication.documents.Open(  FileName, Emp, Emp, Emp, Emp, Emp 
                                    Emp, Emp, Emp, Emp, Emp, Emp, fmt
  .....                                ); // 能数里有十个Emp 的

Answer 4

//楼主，试试这个：
Var
   FileName,Emp ,fmt :OleVariant ;
Begin ;
   .....
   Emp := EmptyParam ; fmt := 0 ; 
   wordapplication.documents.Open(  FileName, Emp, Emp, Emp, Emp, Emp 
                                    Emp, Emp, Emp, Emp, Emp, Emp, fmt
                                  ); // 能数里有十个Emp 的//楼主，试试这个：
Var
   FileName,Emp ,fmt :OleVariant ;
Begin ;
   .....
   Emp := EmptyParam ; fmt := 0 ; 
   wordapplication.documents.Open(  FileName, Emp, Emp, Emp, Emp, Emp 
                                    Emp, Emp, Emp, Emp, Emp, Emp, fmt
                                  ); // 参数里有十个Emp 的// 共有十二参数的, 从未见过这么多的，可是我解决了，哈哈哈

Answer 5

给你个全的启动打开：procedure TForm1.btnOpenClick(Sender: TObject);
var
ItemIndex :OleVariant;
FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
PasswordDocument, PasswordTemplate, Revert,
WritePasswordDocument, WritePasswordTemplate, Format: OleVariant;
begin
if not dlgOpen.Execute then
Exit;{Open document}
FileName := dlgOpen.FileName;
ConfirmConversions := False;
ReadOnly := False;
AddToRecentFiles := False;
PasswordDocument := '';
PasswordTemplate := '';
Revert := True;
WritePasswordDocument :='';
WritePasswordTemplate := '';
Format := wdOpenFormatDocument;WordApplication.Documents.OpenOld(FileName, ConfirmConversions,
ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate,
Revert,WritePasswordDocument, WritePasswordTemplate, Format);{Assign WordDocument component}
ItemIndex := 1;
WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));{Turn Spell checking of because it takes a long time if enabled and slows down Winword}
WordApplication.Options.CheckSpellingAsYouType := False;
WordApplication.Options.CheckGrammarAsYouType := False;Wordapplication.Visible := true;
end;
退出：
procedure TForm1.btnCloseClick(Sender: TObject);
var 
SaveChanges, OriginalFormat, RouteDocument: OleVariant;
begin
SaveChanges := WdDoNotSaveChanges; 
OriginalFormat := UnAssigned; 
RouteDocument := UnAssigned;try
   WordApplication.Quit(SaveChanges, OriginalFormat, RouteDocument);
   WordApplication.Disconnect;
except
   on E: Exception do
   begin
      Showmessage(E.Message);
      WordApplication.Disconnect;
   end; 
end;end;
还有 读写表格，插入图片，图形，添加注释批注，密码，打印，格式转换等，我已经发到csdn软件源码中了，你可去瞧瞧；以下是加入图片：procedure TForm1.btnAddPicClick(Sender: TObject);
var
   aa ,LinkToFile,SaveWithDocument,
   a,b,c,d  : OleVariant;
   str: widestring;
begin
aa:=WordDocument.Range ;
LinkToFile:= false;
SaveWithDocument  :=true;
a:=80;
b:=40;
c:=60;
d:=100;
str:='e:\123.bmp';
WordDocument.Shapes.AddPicture(str,LinkToFile, SaveWithDocument , a, b, c, d,aa);
end;显示动画agent助手：   WordApplication.Assistant.Set_On_ (true);//.On_ :=true;
    WordApplication.Assistant.Set_Animation  (wdAnimationMarchingRedAnts);  //.Animation :=wdAnimationMarchingRedAnts;
    WordApplication.Assistant.AssistWithHelp :=true;
    WordApplication.Assistant.GuessHelp := true;
    WordApplication.Assistant.Set_Visible(true);想知道更多；加分开贴！表格：
………………………………批注：
……………………………………传真：
^^^^^^^…………………………………………………………
………………………………
word + VBA不是说说，而是做出来了··
[email protected]