office批量处理问题疑难问题-word批处理,word批量处理大师官方版

这个只有用复VBA来批量处理制
参考：
Sub WordLover()
Dim myDialog As FileDialog, oFile As Variant, oDoc As Document
Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
With myDialog
.Filters.Clear
.Filters.Add "所有 WORD 文件", "*.doc", 1
.AllowMultiSelect = True
If .Show <> -1 Then Exit Sub
For Each oFile In .SelectedItems
Set oDoc = Documents.Open(FileName:=oFile, Visible:=False)
With oDoc
'这里加入处理页百眉信息的系列命令即可度
.Close True
End With
Next oFile
End With
End Sub

2个文件放同一路径， 运行WORD 中的 标记单7a64e78988e69d83365词那个宏就可以自动标记了

Sub 标记单词()
Dim xl As Excel.Application
Dim wb As Excel.Workbook
Set xl = CreateObject("excel.application")
xl.Visible = True

Set wb = xl.Workbooks.Open(ThisDocument.Path & "\词汇.xlsx")
Do
i = i + 1

Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = wb.Sheets(1).Cells(i, 1).Value
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
 
    If Selection.Find.Found = True Then
        wb.Sheets(1).Cells(i, 1).Interior.ColorIndex = 36
         Selection.Range.HighlightColorIndex = wdYellow
    End If
    Do
        Selection.Find.Execute
        Selection.Range.HighlightColorIndex = wdYellow
    Loop Until Selection.Find.Found = False
Loop Until wb.Sheets(1).Cells(i, 1) = ""

End Sub

使用替换功能，具体如下：

点击编辑=》替换，在查找内容中zd输入“张三”，鼠标点击替换为后面的输入框，然后点击高级=》格式=》字体，在字体对话框中将字体颜色设置为红色，确定，全部回替换，即可实现。如图答

需要注意的是，多点击全部替换按钮知道系统提示没有可替换的内容为止。

希望能帮到你。

推荐一种方法，使用 文件批量处理百宝箱V10.0.

操作步骤：

1. 如果b的词汇表是一行一7a686964616fe58685e5aeb9339个单词，则略过，如果不是一行一个单词，则用Word打开b,然后Ctrl+H打开替换对话框，勾选使用通配符，在查找框中输入： [^32^t,，；;]@

   在替换为框中输入：^13

   单击全部替换，此步骤是为了将b格式化为每行一个单词的样式

2. 下载http:///down/FileRenameFull_Setup.rar安装百宝箱并启动它，将a加载入处理文件列表。最好将a用Word打开，另存为doc类型。

    

3.用Excel打开b，则b中的单词自动填充在表格中的第一列，然后往表格中的第二列输入 ^&，并往下填充，在第一列前面插入一空列，然后往下填充序号，1,2,3.....，最后将表格另存为txt类型，覆盖b

4.进入百宝箱批替换处理设置，单击导入操作列表按钮，将b指定并导入进操作列表中，然后将光标置于替换新内容文本框，单击下面的格式-字体，选择字体的颜色，也可以勾选突出显示。最后单击执行按钮即可。