用 VB 如何在 WORD 指定位置上插入文字在 VB6.0 中,操作 word,使用它强大的查找、替换、删除、复制、翦切功能。还可以把特定字符替换成图片。有了它你就可以使用数据库中的内容或图片文件替换 word 文件中的特定字符。只要把下列内容复制到写字板中,另存为 SetWord.cls 文件,然后在把它添加到工程中,就可以使用了。VERSION1.0CLASSBEGINMultiUse=-1'TruePersistable=0'NotPersistableDataBindingBehavior=0'vbNoneDataSourceBehavior=0'vbNoneMTSTransactionMode=0'NotAnMTSObjectENDAttributeVB_Name="SetWord"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=TrueAttributeVB_PredeclaredId=FalseAttributeVB_Exposed=FalsePrivatemywdappAsWord.ApplicationPrivatemyselAsObject'属性值的模块变量PrivateC_TemplateDocAsStringPrivateC_newDocAsStringPrivateC_PicFileAsStringPrivateC_ErrMsgAsIntegerPublicEventHaveError()AttributeHaveError.VB_Description="出错时激发此事件.出错代码为 ErrMsg 属性"I*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#,*Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**x**x**x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*Y**Y**y**Y**Y**y**Y**Y**y**Y**Y*'ErrMsg 代码:1—word 没有安装 2-缺少参数 3-没权限写文件'4-文件不存在!|*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#,*Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**x**x**x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*Y**Y**y**Y**Y**y**Y**Y**y**Y**Y*PublicFunctionReplacePic(FindStrAsString,OptionalTimeAsInteger=0)AsIntegerAttributeReplacePic.VB_Description="查找 FindStr,并替换为PicFile 所指向的图片文件,替换次数由 time 参数确定,为 0时,替换所有"I*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#*x#,*Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y**Y**y**Y...