Sub Macro14()
'
' Macro14 Macro
' 宏在 2008-7-2 由 gaotao 录制
'
    Selection.GoTo What:=wdGoToGraphic, Which:=wdGoToNext, Count:=1, Name:=""
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Delete Unit:=wdCharacter, Count:=1
End Sub如上,是定位中定位图片的vba代码,请翻译下,谢谢.