FrmXmYZ.WordApplication1.documents.open(filename,
confirmconversions,readonly, addtorecentfiles,
passworddocument, passwordtemplate,
revert,writepassworddocument,writepasswordtemplate,format);
在网上看到各贴都是说是十个参数,但我看它的提示好像要十二个参数,怎么回事?怎么写?
confirmconversions,readonly, addtorecentfiles,
passworddocument, passwordtemplate,
revert,writepassworddocument,writepasswordtemplate,format);
在网上看到各贴都是说是十个参数,但我看它的提示好像要十二个参数,怎么回事?怎么写?
解决方案 »
- DELPHI中输入中文都是乱码
- 在Delphi里用pdf控件多次打开pdf文件出内存错误
- delphi里怎么分格字符串??
- 请教DELPHI的adocconnection和adoquery控件连接数据库的用法,有教程或网站最好
- MS-SQL Server中删除记录出错时该怎么处理!!
- 怎样解决DLL中的MDI子窗口不响应Tab键,无提示等问题?
- 哪有DELPHI6.0的汉化包啊~~~~~~~~~~~~~~~~~
- can't create new socket
- 如何对EXCEL文件在DELPHI中处理!
- 新年第二天就加班。唉,散分...
- 在线等~菜鸟问题!往dbgrid中添加数据~!逐行添加,统一录入~!怎么做?
- 偶然发现的关于datetimepicker的问题,虽然小就是拿不下
oReadOnly := True;
CfCversions := EmptyParam;
AddToRctFiles := EmptyParam;
PswDocument := EmptyParam;
PswTemplate := EmptyParam;
oRevert := EmptyParam;
WPswDocument := EmptyParam;
WPswTemplate := EmptyParam;
oFormat := EmptyParam;
oEncoding := EmptyParam;
oVisible := True;WordApplication.Documents.Open(oFileName, CfCversions, oReadOnly, AddToRctFiles,
PswDocument, PswTemplate, oRevert, WPswDocument,
WPswTemplate, oFormat, oEncoding, oVisible);
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam); WordDocument.ConnectTo(WordApplication.ActiveDocument); FindText := 'fossil2000';
ReplaceWith := 'sanmaotuo';
Replace := 2; {type
WdReplace = TOleEnum;
const
wdReplaceNone = $00000000;
wdReplaceOne = $00000001;
wdReplaceAll = $00000002; } WordDocument.Content.Find.Execute(FindText,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam, EmptyParam,
ReplaceWith,Replace,
EmptyParam,EmptyParam,EmptyParam,EmptyParam);
WordDocument.Save;
WordDocument.Close;
WordDocument.Free; WordApplication.Free;...............................