我想用Delphi上的Server组件页上的WordApplication1来保存一个Word文档,语法是这样的:word.ActiveDocument.SaveAs,可是他的掺数太多,我都不明白,请高手帮助?

解决方案 »

  1.   

    var 
       FLName,FileFormat,LockComments,PassWord,AddToRecentFiles,WritePassWord,
    ReadOnlyRecommended,EmbedTrueTypeFonts,SaveNativePictureFormat,SaveFormsData,
    SaveAsAoCeletter : OleVariant;
    begin
    FLName:='你要保存的路径‘;
    FileFormat:=wdFormatDocument;
    LockComments:=False;
    Password:='';
    AddToRecentFiles:=True;
    WritePassword:='';
    ReadOnlyRecommended:=False;
    EmbedTrueTypeFonts:=False;
    SaveNativePictureFormat:=False;
    SaveFormsData:=False;
    SaveAsAOCELetter:=False;word.ActiveDocument.SaveAs(FLName,FileFormat,LockComments,Password,AddToRecentFiles,WritePassword,
                                ReadOnlyRecommended,EmbedTrueTypeFonts,SaveNativePictureFormat,SaveFormsData,SaveAsAOCELetter);
    end;
    以上代码可以完成你所要的功能,买单吧,哈哈
      

  2.   

    格式: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);