没有合适的资源?快使用搜索试试~ 我知道了~
使用VB6操作Word的总结文档
5星 · 超过95%的资源 需积分: 1 77 下载量 96 浏览量
2012-02-21
20:49:56
上传
评论 2
收藏 95KB DOC 举报
温馨提示
试读
19页
将多个文档内容逐一拷贝粘贴到另一文档后面 vb控制word的类模块,查找、替换Word文档内容 如何正确杀掉word进程
资源推荐
资源详情
资源评论
请耐心看完:问题出现得较复杂。
我的目的:
将多个文档内容逐一拷贝粘贴到另一文档后面
我的方法:
!
"
#
$
$%&%&'#()*!
('#(
$%&
+
,&-.
##(
#/#
#01#&
1
如果我的文档(待拷贝的文档,这些文档都是从数据库中读出来的,存在 文件中)都较小的
话,我的程序可以顺利完成任务,如果其中一个文档较大,那么问题出现了,但是问题不是马上出现,该
文档的内容能顺利从数据库下载到文件 中,也能打开到 中,复制粘贴到 中也
没有问题,但是关闭 时却发现隐藏的23 并没有消失(意味着 并没有关
闭?),接着我把下一个文档从数据库读出放到 中也能完成, 中内容正确,但是当
我用 " 打开时却出现了问题,
运行时错误 ‘4*5*6
文档的名称或路径无效,请使用如下建议:
手动打开 也出现同样的错误,但是当我关掉 即 时,打开
却是正常,而且里面数据也正常
请高手指教,愿送所有分 问题点数:*77、回复次数:8Top
1 楼 .$9$5(出来混,迟早是要还嘀)回复于 5774)*7)5:7*'*;'<4得分 4
是着释放 看看:
#/#
#01#&
1
0&+)))=释放掉
Top
2 楼 (言先必行,多说无益)回复于 5774)*7)5:57'<;'4<得分 7
还是不行,
哪位高手帮我解决,另送 577 分 Top
3 楼 (言先必行,多说无益)回复于 5774)*7)5:57'4:'4>得分 7
这个号所有分相送,这个号就剩 477 分了,数来帮我啊,
分不够我另外一个号还可再加!Top
4 楼 (言先必行,多说无益)回复于 5774)*7)5:5*'58'44得分 7
!Top
5 楼 $()回复于 5774)*7)5:5*'44'<:得分 2
正在学习中Top
6 楼 1(狼行天下)回复于 5774)*7)5:5>'<:'57得分 90
何必打开!直接合并不行?试试'
1/#*@#9
0A!0!
&
"
#
A0("
!+你写的过程吧
A
,0'!#B#1'
,&.
,-9$'-90C&
#'#(
(A
D
1C
1
(,.
Top
7 楼 .$9$5(出来混,迟早是要还嘀)回复于 5774)*7)5:5>'<8'<7得分 4
把 也关掉试试:
#/#
#01#&
1
E
E
0&Top
8 楼 (言先必行,多说无益)回复于 5774)*7)5F77'4F'5>得分 7
1狼行天下 ,非常感谢,虽然没有问题之所在,但是绕开了问题相当于解决了问题,再次
感谢!
有什么办法可以把分一下相送,以示感激之情?除了多开几贴还有其他办法嘛?
vb 控制 word 的类模块,查找、替换 Word 文档内容
在VB 6.0 中,操作 word,使用它强大的查找、替换、删除、复制、翦切功能。还可以把
特定字符替换成图片。有了它你就可以使用数据库中的内容或图片文件替换 word 文件中
的特定字符。
只要把下列内容复制到写字板中,另存为 SetWord.cls 文件,然后在把它添加到工程
中,就可以使用了。
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "SetWord"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private mywdapp As Word.Application
Private mysel As Object
'属性值的模块变量
Private C_TemplateDoc As String
Private C_newDoc As String
Private C_PicFile As String
Private C_ErrMsg As Integer
Public Event HaveError()
Attribute HaveError.VB_Description = "出错时激发此事件.出错代码为 ErrMsg 属性"
'***************************************************************
'ErrMsg 代码:1-word 没有安装 2 - 缺少参数 3 - 没权限写文件
' 4 - 文件不存在
'
'***************************************************************
Public Function ReplacePic(FindStr As String, Optional Time As Integer = 0) As Integer
Attribute ReplacePic.VB_Description = "查找 FindStr,并替换为 PicFile 所指向的图片文件,
替换次数由 time 参数确定,为 0 时,替换所有"
'********************************************************************************
' 从 Word.Range 对象 mysel 中查找所有 FindStr,并替换为 PicFile 图像
剩余18页未读,继续阅读
redleaf1995
- 粉丝: 39
- 资源: 18
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功
- 1
- 2
前往页