delphi2006中怎样保存word文档

Question

我是这样写的代码：wordp.application.saveas(l_filename,l_fileformat,lockcomments,l_password,l_addtorecentfiles,l_writepassword,l_readonlurecommended,l_enedtruetypefonts,l_savenatiepicture,l_format,l_saeformsdata,l_savesaoceletter,l_encoding,l_insertlinebreaks,l_allowsubstitutions,l_lineending,l_addbidis)
总共17个参数，之前已给参数付好值。可是还是出现问题。
后来我直接在word中录了vba，发现只有11个参数，这时应该写成wordp.application.saveas(l_filename,l_fileformat,lockcomments,l_password,l_addtorecentfiles,l_writepassword,l_readonlurecommended,l_enedtruetypefonts,l_savenatiepicture,l_saeformsdata,l_savesaoceletter)
少了以下六个参数l_encoding,l_insertlinebreaks,l_allowsubstitutions,l_lineending,l_addbidisl_format。但是delphi编译时出现错误，说参数不够。
想问下，到底这个saveas()中应该包括几个参数，具体参数含义，最好还附带例子。非常感谢。

Answer 1

var
  word,document:variant;procedure TForm3.BitBtn1Click(Sender: TObject);
begin
  document.saveas('d:\a.doc');
end;procedure TForm3.Button1Click(Sender: TObject);
begin
  word:= CreateOleObject('word.application');
  document:=word.Documents.Add;
  word.visible:=True;
end;

Answer 2

Delphi程序保存Word文稿
格式：WordDocuments.SaveAs(FileName, FileFormat, LockComments, Password,
AddToRecentFiles, WritePassword, ReadOnlyRecommended, 
EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData, 
SaveAsAOCELetter)FileName： 文件名。默认为当前文件夹和文件名。
FileFormat 文档保存的格式。
LockComments 如果为 True，则此文档只允许进行批注。
Password 打开文档时的口令。
AddToRecentFiles 如果为True，则将文档添至"文件"菜单中最近使用的文档列表中。
WritePassword 保存对文档的修改所需的口令。
ReadOnlyRecommended 如果为 True，在每次打开文档时，Word 将建议用户采用只读方式。
EmbedTrueTypeFonts 如果为 True，则将文档与 TrueType 字体一起保存。
SaveNativePictureFormat 如果为 True，则从其他系统平台（例如 Macintosh）导入的图形仅保存其 Windows 版本。
SaveFormsData 如果为 True，则将窗体中用户输入的数据存为一条数据记录。
SaveAsAOCELetter 如果文档包含一个附加，当此属性值为 True 时，将文档存为一篇 AOCE 信笺（同时保存邮件）。举例：
Word_Ole.Documents.SaveAs(FileName:=Doc_File,FileFormat=wdFormatDocument,
AddToRecentFiles=False);

Answer 3

procedure TForm1.Button2Click(Sender: TObject);
var
  FWord,FDoc: Variant;
begin
  FWord:=CreateOleObject('Word.Application');
  FDoc := FWord.Documents.Add;
  FDoc.SaveAs('C:\test.doc');
  FWord.Quit;end;