Dim app As New MSWord.Application try Dim fileName = "d:\test.doc" Dim doc = app.Documents.Open(fileName) app.Selection.Find.Text = "[第一列]" app.Selection.Find.Replacement.ClearFormatting() app.Selection.Find.Replacement.Text = "123456789" app.Selection.Find.Execute(Replace:=MSWord.WdReplace.wdReplaceAll) app.visible = True catch ex As exception msgbox(ex.message) app.Quit finally