Word用宏有没可能实现这样的批量替换？

tawxf

你好，附近已上传了，  就是调用EXCEL  查找已打开的WORD 文档中， 在SHEET1 表中  A2：A*区内容出现在内容，替换成对应行  B2：B9*  区的内容，  如附件，实现在WORD中查找 甲  替换 1； 乙  替换成 2    。。。。的功能，只不过是借用EXCEL  来方便列出查找和替换内容

militant001

我也传一个，还得麻烦兄弟装下logica字库，以使特殊符号能正确显示
万分感谢~~

gavgu

可以实现楼主要求的功能，感谢二楼。

东山客

收藏……{:soso_e100:}

thirdspeed_78l

下面的程序在word 2010中实现。
注意：
（1）需要在 工具 -》引用 中勾选 office excel 选项；
（2）excel文件不是xls，而是xlsx；（3）录制宏时，选择按钮；

Sub BatchReplace()
'
' BatchReplace 宏
'
'
'（1）需要在 工具 -》引用 中勾选 office excel 选项；
'（2）excel文件不是xls，而是xlsx；
'（3）录制宏时，选择按钮



'声明Excel相关
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim sheet As Excel.Worksheet
'获取指定excel程序
    Set xlApp = New Excel.Application
    Set xlBook = xlApp.Workbooks.Open("C:\test.xlsx")
    Set sheet = xlBook.Worksheets(1)

Dim i
Dim nLR
nLR = ActiveSheet.Cells.SpecialCells(xlLastCell).Row            '最后一行
For i = 1 To nLR
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = sheet.Cells(i, 1)
        .Replacement.Text = sheet.Cells(i, 2)
         'MsgBox (.Text)
         'MsgBox (.Replacement.Text)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next

'退出指定excel程序
xlBook.Close 0
xlApp.Quit
Set xlApp = Nothing

End Sub

'homecls@gmail.com

geryjun

做个记号，以后有用。