word中通过宏可否实现批量替换？

dextersa

我的目标是规范文档中的用词，
但是由于文档的来源复杂，所以经常需要大量的替换来解决用词，不知有否办法？

举例如下：

比如我想把

原词     替换后
山药    土豆
金瓜     南瓜
红豆    豆角
………………
诸如此类，可能有100个词之多，所以一个个手工替换是不现实的。

我的期望是在宏中，或者另外一个excel中做一个对照表，执行宏的时候完全按照对照表的内容进行替换。



补充内容 (2018-1-5 11:45):
此问题已经妥善解决，请看5楼代码和8楼的说明。

yqdaqinqin

Sub asd1()
Dim dInput As Variant
    Dim i As Variant
    Dim wshshell As Object

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        For i = 1 To 100
         dInput = InputBox()
         .Text = dInput
         If dInput = "" Then Exit For
        .Replacement.Text = dInput
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .CorrectHangulEndings = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
        Next
   End With
endsub

yqdaqinqin

要不你先录制一个主要步骤为替换的宏，然后用FOR结构给一个循环！！！

yqdaqinqin

如果你有替换明细，也可以做一个更简单的替换结构，自动去替换

sqhsqhli

Sub 按表替换()
'首先引用ms excel
'运行前关闭所有excel程序
Dim ex As Excel.Application, boo As Excel.Workbook, shee As Worksheet, i As Integer
Set ex = New Excel.Application
Set boo = ex.Workbooks.Open("C:\Documents and Settings\Administrator\桌面\替换表.xls")    '假如在桌面
    ex.Visible = False    '设置EXCEL对象可见（或不可见）
    Set shee = boo.Worksheets(1)    '设置活动工作表
With shee
For i = 1 To .Range("b65536").End(xlUp).Row
ActiveDocument.Content.Find.Execute findtext:=.Range("a" & i), replacewith:=.Range("b" & i), Replace:=wdReplaceAll, Forward:=True '将excelA列替换为B列内容
Next
End With
boo.Close
ex.Quit
Set boo = Nothing
Set ex = Nothing
End Sub

dextersa

sqhsqhli 发表于 2013-1-24 09:41
Sub 按表替换()
'首先引用ms excel
'运行前关闭所有excel程序

粗略看这个有戏，我回去试试。

najagay

bucuo!不错

86808801

报错了

sqhsqhli

86808801 发表于 2013-1-28 16:54
报错了

86808801

原来如此！ 测试成功！
感谢大虾