Sub Macro1()
 Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
   
    x1 = "cell"
    x2 = "小区"
   '下一步就是要想办法从文本文件或者EXCEL文件中获得不断变化的x1,x2 然后将整篇文章翻译成汉语
 
    Call s2(x1, x2)
  
      
 
   
End Sub
Sub s1(x1, x2)
       With Selection.Find
        .Text = x1
        .Replacement.Text = x2
        .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
  '查找并替换
End Sub

Sub s2(x1, x2)
Call s1(x1, x2)
  
Call s1(x2 + "s", x2)
  
Call s1(x2 + "es", x2)
'名词复数
End Sub

=====================
'第二种：  原文不懂，仅仅加入带括号的汉字。。
Sub Macro1()
 Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  
    x1 = "cell"
    x2 = "小区"
 
 
    Call s2(x1, x2)
 
     
 
  
End Sub
Sub s1(x1, x2)
       With Selection.Find
        .Text = x1
        .Replacement.Text = x2
        .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
  '查找并替换
End Sub

Sub s2(x1, x2)
Call s1(x1, x1 + "(" + x2 + ")")
 
'名词复数
End Sub
===============
WORD VBA 打开一个电子表格，然后取其中的字段，并完成查找并替换
Sub Macro1()

Dim app As New Excel.Application
Dim wb As Excel.Workbook
Set wb = app.Workbooks.Open("c:\3gEnglish.xls")

 Selection.Find.ClearFormatting
 
    Selection.Find.Replacement.ClearFormatting
   
    x1 = wb.Sheets("sheet1").Range("a1")
    x2 = wb.Sheets("sheet1").Range("b1")
 
    Call s2(x1, x2)
 
app.Quit

   
End Sub
Sub s1(x1, x2)
       With Selection.Find
        .Text = x1
        .Replacement.Text = x2
        .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
  '查找并替换
End Sub

Sub s2(x1, x2)
Call s1(x1, x1 + "(" + x2 + ") ")
 
'名词复数
End Sub