如何对文档进行word文档批量替换软件

来源：蜘蛛抓取(WebSpider) 时间：2016-09-01 06:26 标签： txt文档批量替换
查看: 1797|回复: 10
求指教：怎样实现文档大量词组的批量查找/替换
阅读权限20
在线时间 小时
& & & & & & & &
我现在要实现文档的中批量词组的替换，主要是word文档。特定的数千个列在另一个excel清单上的词全部替换
比如把文档中出现的所有“电脑” 这个词全部替换成“计算机” ，谷哥替换成Google，等等
这样的话，录制宏就不知怎么做了，难道要做几千次吗？
阅读权限20
在线时间 小时
(16.24 KB, 下载次数: 56)
18:10 上传
点击文件名下载附件
我在excel有一个常用错字清单，大概有上千个字
打开一份几万字文档后，一个个查看错字太麻烦，想做一个宏或VBA之类的
多谢多谢！！
QQ截图07.jpg (12.29 KB, 下载次数: 0)
18:10 上传
QQ截图49.jpg (10.63 KB, 下载次数: 1)
18:10 上传
阅读权限20
在线时间 小时
如果从excel里套入数据再检查文档和修改字词太麻烦的话
是不是有办法可以直接把这些错和纠错的字词
直接在word想办法做一个VBA或是宏来解决
阅读权限70
在线时间 小时
在 Word 2003 中用 VBA 宏实现很简单，仅仅是耗费时间的问题，但楼主是 2007 版本以上，就不好说了……
阅读权限50
在线时间 小时
还是用老办法，编辑－替换－全部替换，安全些！！
阅读权限30
在线时间 小时
本帖最后由 wx486 于
15:07 编辑
mbjing 发表于
我在excel有一个常用错字清单，大概有上千个字
打开一份几万字文档后，一个个查看错字太麻烦 ...& & Sub replaceAll()
& && &&&Dim ex As Object, r%, i%, arr, sht, wb
& && &&&On Error GoTo errHandle
& && &&&Set ex = CreateObject(&excel.application&)
& && &&&Set wb = ex.workbooks.Open(ActiveDocument.Path & &\数据清单.xlsx&)
& && &&&Set sht = wb.sheets(1)
& && &&&Selection.HomeKey wdStory
& && &&&With sht
& && && && &r = .Cells(.Rows.Count, 1).End(3).Row
& && && && &arr = .Range(.Cells(1, 1), .Cells(r, 2))
& && &&&End With
& && &&&With ActiveDocument.Content.Find
& && && && &.Wrap = wdFindContinue
& && && && &For i = 2 To r
& && && && && & .Text = Trim(arr(i, 1))
& && && && && & .Replacement.Text = Trim(arr(i, 2))
& && && && && & .Execute Replace:=wdReplaceAll
& && && && &Next
& && &&&End With
errHandle:
& && &&&wb.Close False
& && &&&Set ex = Nothing
& & End Sub复制代码请测试。
阅读权限10
在线时间 小时
没有认真学，感觉好复杂
阅读权限20
在线时间 小时
直接在word想办法做一个VBA或是宏来解决
阅读权限20
在线时间 小时
wx486 发表于
谢谢您的回复。
测试了，可以正常使用，非常感谢。
请问怎样才能在每个文档上只要按一下快捷键或按钮就可以完成这个程序（现在要每份文件都重新贴一下）。
我还有另外一个问题，就是数据清单若有2、3千个，替换的文件页数如果有10页左右，速度就会变得很慢。十分钟的样子才能替换完。有没有更快的办法可以大批量的查找替换呢？
不好意思，我的问题可能太多了。
阅读权限30
在线时间 小时
mbjing 发表于
谢谢您的回复。
测试了，可以正常使用，非常感谢。
把你的大文档附件发上来看看
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师怎样批量修改word文档名字（批量命名）
一堆word文档放在那里，一个个修改名字太麻烦，其实有一款软件---2345好压，可以帮大家批量修改。
1、首先从电脑上下载2345好压，下载后安装呗
2、安装完成后，双击好压快捷图标，弹出好压主界面。
3、点击中间上面的工具箱，看见没，批量文件改名，别客气，点呗！
4、从上到下，看箭头，想改啥名字怎样改，说的都比较直白，傻瓜式的！
5、举个例子吧！方便你看着图多试试，很容易的！
文档在修改时不要打开，不然是修改不了的！
最好把要修改的文档放在一个文件夹里，方便添加！
以上就是怎样批量修改word文档名字方法介绍，希望能对大家有所帮助！
如果您喜欢本文请分享给您的好友，谢谢！
评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）我有一张图片，上面有一个文本框。我需要做200张同样的，但文本框里的文字要换。更换的文字在一张excel表上。有没有批量处理解决这个问题的方法？怎样做？
简单，PS数据库搞定1、图片上将要替换的文字单独制作一个图层2、图像—变量—定义3、将表格中的所有替换内容，一列排下来。3、将表格中的所有替换内容，一列排下来。4、表格另存为txt文件，然后桌面打开这个txt文件，另存一份txt文件改为ANSI编码4、表格另存为txt文件，然后桌面打开这个txt文件，另存一份txt文件改为ANSI编码5、PS里
图像—变量—数据库—导入，txt文件5、PS里
图像—变量—数据库—导入，txt文件6、PS里
文件—导出—数据库为文件—选择文件夹导出。。7、上面基本完成了，但导出的一点不好就是只能导出PSD文件，可以用批量文件转换，或者PS里批处理完成转换成JPG或其他格式。就这样，第一次写教程，挺开心
已有帐号？
无法登录？
社交帐号登录
图层拖动师

我要回帖

更多关于 txt文档批量替换 的文章

 

随机推荐