图片是有名称的，不过没找到怎么在word里改这个名称，下面代码位置就对了
Dim app As New MSWord.Application
try
Dim fileName = "e:\问题\temp\变电所命名及开关柜编号.docx"
Dim doc As object = app.Documents.Open(fileName)
Dim img = "e:\问题\temp\背景2.jpg" '图片路径
Dim Top As Integer = 0
Dim left As Integer = 0
Dim w As Integer = 0
Dim h As Integer = 0
For Each a As object In doc.Shapes
a.RelativeVerticalPosition = MSWord.WdRelativeVerticalPosition.wdRelativeVerticalPositionPage
Top = a.Top - Doc.pagesetup.topmargin
left = a.left
w = a.width
h=a.height
Output.Show(a.name)
Output.Show(Top )
Output.Show(left )
If a.name = "Picture 3"
a.delete
Dim s = doc.Shapes.AddPicture(img, False, True, left ,Top ,w,h)
s.WrapFormat.Type = MSWord.WdWrapType.wdWrapBehind
End If
Next
app.visible = True
‘Doc.save
catch ex As exception
msgbox(ex.message)
app.Quit
finally
'app.Quit
End try
加好友 
发短信
Post By：2020/1/22 9:17:00 [只看该作者]
