高手请进~! 我想用Delphi上的Server组件页上的WordApplication1来保存一个Word文档,语法是这样的:word.ActiveDocument.SaveAs,可是他的掺数太多,我都不明白,请高手帮助? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var FLName,FileFormat,LockComments,PassWord,AddToRecentFiles,WritePassWord,ReadOnlyRecommended,EmbedTrueTypeFonts,SaveNativePictureFormat,SaveFormsData,SaveAsAoCeletter : OleVariant;beginFLName:='你要保存的路径‘;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;以上代码可以完成你所要的功能,买单吧,哈哈 格式: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); 咨询批量输入数据问题 stringgrid输出问题 在delphi中如何打开word文档?请教各位高手!!! 当单击DBGrid中的标题栏时,进行排序(在线等) 300分求MD5算法源码和解密算法 急!急!急! 如何用程序将 SQLSERVER 中的表中记录导出到指定文件中,并保存成DBF格式,请各位大虾指点 好象被宝兰愚弄 现在有很的软件能实现光标移动到窗口边上时能显示一工具栏! TTable对多个字段的主键的Insert的Bug D5的控件怎么才能装到D7上用? 请问关于数据存储及打印的问题,up者有分
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;
以上代码可以完成你所要的功能,买单吧,哈哈
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);