在需要放图片的地方插入一个书签,书签名称为“图片”此主题相关图片如下:1.png
代码
Dim app As New MSWord.Application
try
Dim fileName = "D:\问题\123.docx"
Dim doc As object = app.Documents.Open(fileName)
Dim item = "图片" '书签名称
Dim bmk = doc.Bookmarks.Item(item )
Dim start = bmk.Start
Dim End1 = bmk.End
Dim reftrue = True
Dim reffalse = False
Dim missing = System.Reflection.Missing.Value
Dim img = "D:\问题\1.png" '图片路径
Dim rg = doc.Range(start, End1).InlineShapes.AddPicture(img, False, True)
rg.Height=100 '图片高
rg.Width=100 '图片宽
Doc.save
catch ex As exception
msgbox(ex.message)
finally
app.Quit
End try