批量修改文件名中重复的字的软件！

分类: 电脑/网络 >>软件

问题描述:

比如：有如下几个文件：

我的朋友小江.exe

我的朋友小胡.exe

我的朋友小丽.exe

我的朋友小张.exe 等等，我要一次性修改为

小江.exe

小胡.exe

小丽.exe

小张.exe 等等，把：“我的朋友”这四个字去掉，用什判搏拍么软件？

我只有5分（呵呵，不常来），全部送上！！！

先谢谢给予帮助的高手，老师！！！

解析:

《凌霄图像批处理专家3.1》的批量文件改名模块，完全能够满足您的需求，而且， *** 作简单，功能强大。

电信下载：flyingspace/products/product_download.php?Aproductid=17&Language=chinese&ServerType=dianxin

网通下载：

flyingspace/products/product_download.php?Aproductid=17&Language=chinese&ServerType=wangtong

软件介绍页面：

flyingspace/productShow/productShow.php?Ashow=Hecate2MS&Language=chinese&productid=17

《凌霄图像批处理专家3.1》是一款集“批量格式转换”、“批量脚本处理”、“批量添加水印”、“批量文件改名”、“批量调整尺寸”、“批量制作缩略图”、“制作电子相册”、“批量转为PDF”于一体的图像批处理系统。凌霄图像批处理专家提供近30种图像脚本处理命令（如调整对比度、添加水印等）供您任意组合使用！她还可以让您轻松的将任意多的图像文件生成一个电子相册，并提供多达150种的动画显示效果，方便您欣赏自己的图片，并轻易实现与家人、朋友分享！她支持多达10种（BMP，JPG，PNG，EXIF，GIF，WMF，TGA，PCX，TIFF，PPM）的基本图像格式的掘羡相互转换,如果加上与他们等价的格式，则支持的图像类型超过30种。她能轻易的生成缩略图，调整尺寸、转换格式、添加水印一步到位！向导式的 *** 作方式，轻易上手，而功能丝毫不减。所有的批处理 *** 作都可以应用图像脚本处理命令，再复杂的 *** 作也可以一步到位。而且所有这些功能，您都可以在Windows资源管理器中通过右键菜单轻松使用。银御

几十个文档统一修改的方法如下：

一、前期准备下面是具体 *** 作步骤。

1、首先将需要批量替换的多个Word文档放在同一文件夹下面。

2、新建一空白Word文档，右击空白工具栏，单击“控件工具箱”，就可以看到屏幕上调出的控件工具箱。

3、在控件工具箱上单击“命令按钮”，文档中就放置核拍枣了一个按钮了。

4、双击该按钮，进入VB代码编写模式，将以下代码复制进去。

二、命令按钮的代码PrivateSubCommandButton1_Click()Application.ScreenUpdating=FalseDimmyPasAsString,myPathAsString,iAsInteger,myDocAsDocumentWithApplication.FileDialog(msoFileDialogFolderPicker).title="选择目标文件夹"If.Show=-1ThenmyPath=.SelectedItems(1)ElseExitSubEndIfEndWithmyPas=InputBox("请输入打开密码，如果没有就不填：")WithApplication.FileSearch.LookIn=myPath.FileType=msoFileTypeWordDocumentsIf.Execute>0ThenFori=1To.FoundFiles.CountSetmyDoc=Documents.Open(FileName:=.FoundFiles(i),Passworddocument:=myPas)Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text="原文字".Replacement.Text="新文字".Forward=True.Wrap=wdFindAsk.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEndWithSelection.Find.ExecuteReplace:=wdReplaceAllmyDoc.SavemyDoc.CloseSetmyDoc=NothingNextEndIfEndWithApplication.ScreenUpdating=TrueEndSub保存上面代码，退出VB编辑模贺纯式，返回Word文改拆档界面。单击选中该按钮，再单击控件工具箱的第一个按钮“退出设计模式”。最后，就可以进行测试：再次点击按钮，就会发现该文件夹下面的所有WORD文档中的"原文字"被替换为"新文字"了。

---