用VB编一小程序，打开我电脑里指定的word文档，在该文档中找到“照片”两个在，并将其替换成我指定的照片

Question

我是新手，不太会。用Word录制了个宏，贴到vb里，运行就出错。不明白了，下面是我的程序:
Private Sub Command1_Click()
Shell "C:\Program Files\Microsoft Office\Office11\WINWORD.EXE F:\1.doc"
Selection.Find.ClearFormatting
With Selection.Find
.Text = "照片"
.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
Selection.InlineShapes.AddPicture FileName:= _
"D:\My Documents\My Pictures\33.jpg", LinkToFile:=False, SaveWithDocument _
:=True
End Sub

Answer 1

应该是文件路径的问题，把Shell "C:\Program Files\Microsoft Office\Office11\WINWORD.EXE F:\1.doc"改成你的文件位置。
最后一句的Selection.InlineShapes.AddPicture FileName:= _
"D:\My Documents\My Pictures\33.jpg", LinkToFile:=False, SaveWithDocument _
:=True也应该改成你的图片的位置。

Answer 2

Sub test()
Selection.Find.ClearFormatting
Do
With Selection.Find
.Text = "照片"
.Forward = True
.Execute
If .Found Then
Selection.InlineShapes.AddPicture FileName:= _
"D:\My Documents\My Pictures\33.jpg", LinkToFile:=False, SaveWithDocument _
:=True
End If
End With
Loop Until Selection.Find.Found = False
End Sub

将代码改成上面的就可以了，我去掉了第一行，这样只针对当前word文档。它可以将所有的“照片”一性次全部替换成照片