批量替换文件夹多个doc中的字符串

‘ --------------------------------------------------------------------------------

‘ 用来替换文件夹多个doc中的字符串

‘ 作者：[email protected]

‘ 日期：2017年4月25日

‘ --------------------------------------------------------------------------------

‘ --------------------------------------------------------------------------------

‘ 用来替换单个doc中的字符串

‘ 作者：[email protected]

‘ 日期：2017年4月25日

‘ --------------------------------------------------------------------------------

Function docReplace(fullpath, searchStr, replaceStr)

Application.ScreenUpdating = False

Dim myDoc As Document

Set myDoc = Documents.Open(FileName:=(fullpath))

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = searchStr

.Replacement.Text = replaceStr

.Forward = True

.Wrap = wdFindAsk

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchByte = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

myDoc.Save

myDoc.Close

Set myDoc = Nothing

Application.ScreenUpdating = True

End Function

‘ --------------------------------------------------------------------------------

‘ 用来获取文件夹路径

‘ 作者：[email protected]

‘ 日期：2017年4月25日

‘ --------------------------------------------------------------------------------

Function getDir()

Dim myPath As String

‘ 选择目标文件夹

With Application.FileDialog(msoFileDialogFolderPicker)

.Title = "选择目标文件夹"

If .Show = -1 Then

myPath = .SelectedItems(1)

Else

Exit Function

End If

End With

getDir = myPath

End Function

‘ --------------------------------------------------------------------------------

‘ 批量替换多个doc中的字符串

‘ 作者：[email protected]

‘ 日期：2017年4月25日

‘ --------------------------------------------------------------------------------

Sub MultiDocReplace()

Application.ScreenUpdating = True

Dim fpath As String, myPath As String

myPath = getDir()

docFile = Dir(myPath & "\*.doc*", vbDirectory)

Do While docFile <> ""   ‘ 开始循环。

fpath = myPath & "\" & docFile

Call docReplace(fpath, "孝感", "荆州")

docFile = Dir

Loop

Application.ScreenUpdating = True

End Sub

来自为知笔记(Wiz)

时间： 2025-01-02 15:10:25

批量替换文件夹多个doc中的字符串的相关文章

一个批量修改文件夹中文件名的命令

1. 只修改当前目录下的文件 [root]# rename -s  \.png  \_iphone.png  * 这个是修改目录下 的所有文件名,加入一个后缀 如: 1.png    ->>>   1_iphone.png 2. 递归修改当前目录下的所有子文件夹 [root]# find ./ -name  "*.png" | xargs  -I {} rename -s \.png  \_iphone.png  {} 如: 2.png    ->>>

R8&mdash;批量生成文件夹,批量读取文件夹名称+R文件管理系统操作函数

一. 批量生成文件夹,批量读取文件夹名称 今日,工作中遇到这样一个问题:boss给我们提供了200多家公司的ID代码(如6007.7920等),需要根据这些ID号去搜索下载新闻,从而将下载到的新闻存到以公司ID生成的指定文件夹下!所以第一个问题就是200多个公司,不可能每一次下载,都要去点击:新建文件夹,然后对文件夹命名,too boring and monotonous.嘿嘿,幸好有R的陪伴! let's do it,来看看R如何完成这些工作! 主要用到两个函数 一. dir.create-生

Linux下批量替换文件内容方法

1:查找find . -type f -name "*.html"|xargs grep ‘yourstring’ 2:查找并替换find -name '要查找的文件名' | xargs perl -pi -e 's|被替换的字符串|替换后的字符串|g' perl -pi -e在Perl 命令中加上-e 选项,后跟一行代码,那它就会像运行一个普通的Perl 脚本那样运行该代码.从命令行中使用Perl 能够帮助实现一些强大的.实时的转换.认真研究正则表达式,并正确地使用,将会为您省去大量

Linux下 批量替换文件内容方法和odoo替换谷歌字体

#odoo#用中科院CDN解决odoo用到google字体速度慢问ti Linux下批量替换文件内容方法 http://www.cnblogs.com/fjping0606/p/4428850.html 1:查找find . -type f -name "*.html"|xargs grep 'yourstring' 2:查找并替换find -name '要查找的文件名' | xargs perl -pi -e 's|被替换的字符串|替换后的字符串|g' perl -pi -e在Per

[转帖]Linux下批量替换文件内容方法

https://www.cnblogs.com/fjping0606/p/4428850.html 刚才用到的命令 原作者写的挺好的记录一下 以后 用. 1:查找find . -type f -name "*.html"|xargs grep ‘yourstring’ 2:查找并替换find -name '要查找的文件名' | xargs perl -pi -e 's|被替换的字符串|替换后的字符串|g' perl -pi -e在Perl 命令中加上-e 选项,后跟一行代码,那它就会像

linux下sed批量替换文件内容

在linux超级终端下编辑文档是件比较麻烦的事情,下面简单介绍一下如何在linux下批量替换文件内容 linuxsed 批量替换多个文件中的字符串 格式: sed -i "s/查找字段/替换字段/g" `grep 查找字段 -rl 路径` 例如:替换/home下所有文件中的xxx为ooo sed -i "s/xxx/ooo/g" `grep xxx -rl /home` 单个文件中的字符串替换 将文件1.txt内的文字“111”替换成“222” sed -i &qu

linux下批量替换文件内容

linux下批量替换文件内容 1.网络上现成的资料 格式: sed -i "s/查找字段/替换字段/g" `grep 查找字段 -rl 路径` linux sed 批量替换多个文件中的字符串 sed -i "s/oldstring/newstring/g" `grep oldstring -rl yourdir` 例如:替换/home下所有文件中的www.admin99.net为admin99.net sed -i "s/www.admin99.net/a

简单的批量提取文件夹内文件名的经典方法

一个文件夹下面有很多文件,如果要批量提取文件夹内所有文件名,知道如何操作吗? 比如,笔者电脑里面E盘文件夹下面有一个“4.2函数经典再现”的文件夹,想将这个文件夹下面的所有文件名批量提取到一个记事本文件里面. 如果你也想批量提取文件名(批量获取一个文件夹内所有文件的文件名),可以按下面的步骤进行. 第一步,新建一个txt格式的记事本文件. 第二步,在记事本文件中输入:DIR *.*  /B >LIST.TXT 第三步,将此记事本文件后辍名,由txt改为bat.会弹出重命名对话框,单击“是”. 第

sed批量替换文件内容

sed -i "s/123/456/g" `grep 123 -rl ./ | grep -v log` #把当前目录下所有文件中的123替换成456,包括子目录啊 sed批量替换文件内容