word的宏代码如下
Sub 替换()
'
' 替换 Macro
' 宏在 2016-04-14 由 Microsoft 录制
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "名称"                           //要替换的目标
        .Replacement.Text = "9999999"            //替换的内容
        .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

VB其中一段代码如下
On Error Resume Next

If CommonDialog1.FileName = "" Then
    CommonDialog1.DialogTitle = "文件保存"
    CommonDialog1.Filter = "Microsoft Word(*.doc)|*.doc|所有文件(*.*)|*.*"
    CommonDialog1.ShowSave
    If Err.Number = 32755 Then Exit Sub
Else
    panduan = MsgBox("是否保存为当前路径", vbYesNoCancel, "提示")
    If panduan = vbNo Then
        CommonDialog1.FileName = Left$(CommonDialog1.FileName, InStr(CommonDialog1.FileName, ".") - 1) & "封面.doc"
        CommonDialog1.DialogTitle = "文件保存"
        CommonDialog1.Filter = "Microsoft Word(*.doc)|*.doc|所有文件(*.*)|*.*"
        CommonDialog1.ShowSave
        If Err.Number = 32755 Then Exit Sub
    ElseIf panduan = vbCancel Then
        Exit Sub
    End If
End If

Dim MyWord As Word.Application
Dim MyWordBook As Word.Document
Set MyWord = CreateObject("Word.Application")
Set MyWordBook = MyWord.Documents.Add(App.Path & "\数据" & "\封面.doc")
MyWord.Visible = True
MyWordBook.Save
MyWord.Quit
Set MyWord = Nothing
Set MyWordBook = Nothing



MsgBox "保存成功", vbOKOnly, "提示"



想要的效果就是像在word中全部替换那样的功能

谢谢   求助各位大神帮忙

VB调用Word，首先要建立Word的对象。然后才能进行操作，你录的宏代码大部分可以用，但是有些地方需要修改
http://chenlong-1988.

非常感谢  这个解决了我一个大难题

不知道是不是还可以请问一个问题   就是我的word里有很多个表   我怎么定位其中一个  
那个表在第14个表   用数字定位我会了   有没有别的办法
预防之后word修改会影响到表格数量    每个表上面都有一个标题   可否根据这个进行判断然后定位