急，高分求帮助！关于WordApplication的应用，很简单的！

Question

我想用DELPHI编个程序实现如下简单功能！打开一个.doc(word文档)然后把它另存为.html格式！大家帮帮忙！我找过一些贴子！用WordApplication1.Documents.Open( FileName, ConfirmConversions, 
ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate, 
Revert, WritePasswordDocument, WritePasswordTemplate, Format );编译时出错了，说不够参数！！！然后我对比了一下open,openold和open2000三个函数，确实只有openold才需要10个参数，open需要15个参数，open2000需要12个，那究竟用那一个啊？open函数的另外5个参数应怎么写？还有就是wordapplication1.documents.save怎么用？能给出完整的例子吗？我急着要啊！分不够可以加！

Answer 1

参数个数由你装DELPHI时选择Word的类型决定

Answer 2

VBA帮助怎么看？是VB的~~跟DELPHI不同啊~~~~~~~~~能给个例子吗？参数能自己选择的吗？怎么装啊？

Answer 3

让word打开一个指定的文件，需要先放置opendialog，然后调用wordapplication.documents.open： 
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.open( 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; 
end; 

Answer 4

大哥啊！怎么出错啊！！！！wordapplication.documents.open( filename, confirmconversions, 
readonly, addtorecentfiles, passworddocument, passwordtemplate, 
revert, writepassworddocument, writepasswordtemplate, format );[Error] Unit1.pas(63): Not enough actual parameters我就是说怎么会不够参数啊~~~~~

Answer 5

哎，看来还是得靠自己去找啊~~~~~~~~~~~~~~~~~~~~~var
  WordApp,WordDoc:OleVariant;
begin
  WordApp:=CreateOleObject('Word.Application');
  WordDoc:=WordApp.Documents.Add('word文件名');
  WordDoc.SaveAs('html文件名',wdFormatHTML);//wdFormatHTML是word2000.pas单元里的常量，需要uses word2000;如果不引用可以直接使用$00000008将wdFormatHTML代替
  WordDoc.Close;
  WordApp.Quit;
  WordDoc:=UnAssigned;
  WordApp:=UnAssigned;
end; 算了，以后有不懂的还是到大富翁去找找看吧，这里是没希望的了~~~~~~~哎~~~~~~~~