高手请进~! 我想用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); 关于TChat拖动放在,X轴如果是时间在变大后,会出现多个相同值的问题?? TIdTCPServer中如何让程序始终保持与客户端的连接? 谁要delphi编写得erp源代码,可以和我联系! 怎样用ADOQUERY动态创建一个FOXPRO数据库表? ? xywhx(xywhx)进来拿分(2) 请问用什么方法可以实现控件大小的随意调整? quickreport中分组统计如何打? 窗口显示问题! delphi如何把excel表导入sql server里面??? 高分啊,帮我解决画布的问题,必给分!!! 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);