以下是引用jiterp在2018/6/14 21:08:00的发言：这个我看过，字段可以设置上去，图片怎么设呀？还有就是图片与字段的格式怎么排版？
直接插入图片即可，如
Dim app As New MSWord.Application
try
Dim fileName = "d:\123.doc"
Dim doc As Object = app.Documents.Open(fileName)
app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageHeader
app.ActiveWindow.Selection.WholeStory
If app.ActiveWindow.Selection.Find.Execute("[图片]") Then
app.ActiveWindow.Selection.InlineShapes.AddPicture("d:\test.jpg")
End If
app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekMainDocument
app.Visible = True
catch ex As exception
msgbox(ex.message)
app.Quit
finally
'app.Quit
End try
加好友 
发短信
Post By：2018/6/14 21:01:00 [显示全部帖子]
