1、你要把图片插入到word的哪个位置?
2、参考代码
Dim app As New MSWord.Application
try
Dim fileName = "d:\123.doc"
Dim doc As Object = app.Documents.Open(fileName)
app.ActiveWindow.Selection.WholeStory
If app.ActiveWindow.Selection.Find.Execute("[图片]") Then
app.ActiveWindow.Selection.InlineShapes.AddPicture("d:\test.jpg")
End If
app.Visible = True
catch ex As exception
msgbox(ex.message)
app.Quit
finally
'app.Quit
End try