word 批量处理问题-office批量处理工具箱,office办公软件有哪些

拷到excel里用函数做

=IF(ISERROR(FIND("：",A1)),A1,"："&SUBSTITUTE(A1,"：",""))

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

操作步骤：

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

   在替换为框中输入：^13

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

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

    

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

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

你实现了共存没有先说说

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

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 & "\词汇7a686964616fe4b893e5b19e365.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