| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/11/25 12:01:06 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 怎样用delphi编程生成word文件 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/11/25 15:59:30 | ||||
| 2楼： | 你是要使用delhpi打开一个新的word 文档吗？使用server工具箱里面的控件，使用worddoucment.oldadd方法即可。 ---------------------------------------------- delphi盒子好 |
|||||
| 作者： |
|
2003/11/25 16:18:13 | ||||
| 3楼： | 谢谢 我的意思是用delphi编程实现将数据库中用到的表单的格式（字段定义、大小等）导到WORDZ中去 另外worddoucment.oldadd 怎么用，能说明一下吗（举例） ---------------------------------------------- - |
|||||
| 作者： |
|
2003/11/25 17:01:17 | ||||
| 4楼： | try {Try to check any existing word app} WordApp:= GetActiveOleObject('Word.Application'); {If word app is found , then make sure no documents were opened} if WordApp.Documents.Count > 0 then begin MessageDlg('Program detected that a Word instance is running in your system.' + #13#10 + 'In order to avoid data losing, please save and close your current document.', mtError, [mbOK, mbHelp], 0); WordApp:= Null; end; except on E: EOleSysError do {No Word Opened, then start word } begin try WordApp:= CreateOleObject('Word.Application'); {Open Word} except WordApp:= Null; end; end; end; if VarType(WordApp) <> varNull then begin WordApp.Visible := False; Action(); end; ---------------------------------------------- - |
|||||
| 作者： |
|
2003/11/25 17:28:57 | ||||
| 5楼： | 你说的是什么，能详细解释一下吗 ？ 万分感谢！     ---------------------------------------------- - |
|||||
| 作者： |
|
2003/11/25 18:31:37 | ||||
| 6楼： | 就是如果程序detect到有word打开,就要求先关掉,否则,进行正常操作.Done ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
