要在当前选择的位置添加图片，您可以使用 InlineShapes.AddPicture [ ^ ]。类似于：

To add a picture in the location of current selection you can use InlineShapes.AddPicture[^]. Something like:

oWord.Selection.InlineShapes.AddPicture( _
                  FileName := "C:\somedir\somefile.jpg", _
                  LinkToFile := False, _
                  SaveWithDocument:= True)