返回目录:word文档
1,首先从电脑上下载2345好压,下载后安装。
2,安装完成后,双击好压快捷图标,弹出好压主界面。
3,点击中间上面的工具箱,看见没,批量文件改名。
4,从上到下,看箭头,命名规则:定义重命名过程中的命名规则,可使用"*"与"#"号。"*"号代表原文件名。"#"号代表以数字或字母插入置顶位置。例:原文件名为haozip.zip 命名规则输入haozip_*则命名结果为:haozip_haozip.zip;命名规则输入haozip_#(#定义开始为1)则命名结果为:haozip_01.zip。
不足位补齐:勾选此项,如出现#号序列位数小于定义位数的情况,则对不足位进行补齐,数字序列补0,字母序列补a。您可以在预览区域看到重命名结果。
字母编号:勾选此项,#号序列定义为字母序列重命名。您可以在预览区域看到重命名结果。注:*号与#号可同时并反复出现在命名规则中,如果批量命名规则中没有出现任何#号序列,那么所有文件将被定7a686964616fe59b9ee7ad94332义为同一文件名。您可以在预览区域看到重命名结果。
扩展名改成:此处可以修改文件扩展名,如不填写则不修改。填写"<空格>"则删除现有文件扩展名。
文件名称选项:此处提供的选项可以自定义重命名结果中的文件名及扩展名的大小写。默认保持不变。您可以在预览区域看到重命名结果。
自动解决重命名冲突:如果重命名过程中出现命名冲突,2345好压将会按照windows默认规则处理重命名冲突。
替换
提供了文件名的批量替换,您可以搜索文件名中的某个字符,并加以替换。您可以在预览区域看到重命名结果。
添加/删除
文件名前添加:不改变原有文件名与命名规则,统一在文件列表中的所有文件名前增加字符。您可以在预览区域看到重命名结果。
文件名后添加:不改变原有文件名与命名规则,统一在文件列表中的所有文件名后增加字符。您可以在预览区域看到重命名结果。
扩展添加:勾选后启用扩展添加功能。可自定义从文件名的某个字符后统一增加的字符。您可以在预览区域看到重命名结果。
删除文件名中的:此功能可统一删除文件名种的某个字符。您可以在预览区域看到重命名结果。
扩展删除:勾选后启用扩展删除功能。可自定义从文件名某个字符后统一删除若干字符。您可以在预览区域看到重命名结果。
5,写好规则就开始添加文件了。
6,修改效果如下图。
【注意】:MS Office2003中测试通过。2007可能无法运行。
一、前期准备
e68a84e8a2ade799bee5baa6e79fa5e98193366下面是具体操作步骤。
A,首先将需要批量替换的多个Word文档放在同一文件夹下面。
B,新建一空白Word文档,右击空白工具栏,单击“控件工具箱”,就可以看到屏幕上调出的控件工具箱。
C,在控件工具箱上单击“命令按钮”,文档中就放置了一个按钮了。
D,双击该按钮,进入VB代码编写模式,将以下代码复制进去。
二、命令按钮的代码
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim myPas As String, myPath As String, i As Integer, myDoc As Document
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "选择目标文件夹"
If .Show = -1 Then
myPath = .SelectedItems(1)
Else
Exit Sub
End If
End With
myPas = InputBox("请输入打开密码,如果没有就不填:")
With Application.FileSearch
.LookIn = myPath
.FileType = msoFileTypeWordDocuments
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Set myDoc = Documents.Open(FileName:=.FoundFiles(i), Passworddocument:=myPas)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "原文字"
.Replacement.Text = "新文字"
.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
Next
End If
End With
Application.ScreenUpdating = True
End Sub
保存上面代码,退出VB编辑模式,返回Word文档界面。
单击选中该按钮,再单击控件工具箱的第一个按钮“退出设计模式”。
最后,就可以进行测试:再次点击按钮,就会发现该文件夹下面的所有WORD文档中的"原文字"被替换为"新文字"了。
word文档批量处理大师软件是这方面的专业软件,不过,是收费的,功能超多,超强。如果经常使用还是物超所值的,强烈推荐!
文件批量处理百宝箱V10.0主界面的批替换功能卡