下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
本文格式为Word版,下载可任意编辑——VB查找并替换WORD文档中的字符串基本要求:需安装WORD
FunctionWordReplace(FileNameAsString,SearchStringAsString,ReplaceStringAsString,OptionalSaveFileAsString=\OptionalMatchCaseAsBoolean=False)AsInteger
OnErrorGoToErrorMsg'函数运行时发生遇外或错误,转向错误提醒信息
DimwordAppAsNewWord.ApplicationDimwordDocAsNewWord.DocumentDimwordArangeAsWord.RangeDimwordSelectionAsWord.SelectionDimReplaceSignAsBooleanDimIAsInteger
'判断将要替换的文件是否存在
IfDir(FileName)=\'替换文件不存在
MsgBox\未找到\文件\提醒替换文件不存在信息WordReplace=-2'返回替换文件不存在的值ExitFunction'退出函数
EndIf
SetwordApp=CreateObject(\建立WORD实例wordApp.Visible=False'屏蔽WORD实例窗体
SetwordDoc=wordApp.Documents.Open(FileName)'开启文件并赋予文件实例SetwordSelection=wordApp.Selection'定位文件实例
SetwordArange=wordApp.ActiveDocument.Range(0,1)'指定文件编辑位置wordArange.Select'激活编辑位置
I=0'初始化替换次数值
ReplaceSign=True'初始化是否替换成功标志
DoWhileReplaceSign
ReplaceSign=wordArange.Find.Execute(SearchString,MatchCase,,,,wdFindContinue,,ReplaceString,True)'查找并替换'判断查找并替换是否成功,假使成功替换次数值递增1IfReplaceSign=TrueThenI=I+1EndIfLoop
MsgBox\已完成对文档的探寻并完成\替换。\提醒总替换次数
'假使替换成功,则提醒是否保存
,,IfI>0Then
'判断是否需要另存
IfTrim(SaveFile)\'需要另存
IfDir(SaveFile)=\
wordDoc.SaveAsSaveFile'文件另存为??Else
'咨询是否替换文件,如果不替换则放弃本次操作,否则存在本次操作
IfMsgBox(\是否替换\文件?\替换\vbYesThen
wordDoc.SaveAsSaveFile'文件另存为??EndIfEndIfElse
IfMsgBox(\是否保存对\更改?\保存\=vbYesThen
wordDoc.Save'保存在原文件中EndIfEndIfEndIf
WordReplace=I'返回替换次数
wordDoc.Close'关闭文档实例wordApp.Quit'关闭WORD实例
SetwordDoc=Nothing'清除文件实例SetwordApp=Nothing'清除WORD实例
ExitFunction
ErrorMsg:
MsgBoxErr.Number\提示错误信息WordReplace=-1'返回错误信息值wordDoc.Close'关闭文档实例wordApp.Quit'关闭WORD实例
SetwordDoc=Nothing'清除文件实例SetwordApp=Nothing'清除WORD实例
EndFunction
注意事项:单击在菜单“工程”中的“引用”菜单
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 宝鸡文理学院《模拟招聘》2022-2023学年第一学期期末试卷
- 木浆板文具相关项目建议书
- 【初中化学】酸碱盐方程式以及反应规律(收藏学习)
- 投币启动设备用机械装置市场环境与对策分析
- 喷香水器市场环境与对策分析
- 抗组胺剂项目评价分析报告
- 描图布项目可行性实施报告
- 开酒器相关项目实施方案
- 调车组试题百题
- 什么是数据架构(华为)
- 美的历程李泽厚
- 中职英语基础模块3期末考试试卷试题及答案
- 人教版小学数学一年级《数的顺序比较大小》PPT教学课件
- 第六章-复合材料课件
- 七大洲与四大洋课件
- 医院关于成立创伤中心救治团队的通知
- 高中数学必修三《程序框图》教学课件
- 深度访谈技巧课件
- 北师大八年级上册数学期中知识点梳理
- 创新课堂教学模式提升初中生数学自主学习能力-讲座课件
- 防溺水、防性侵、防欺凌安全教育家长会
评论
0/150
提交评论