老师,下面这个要让图片浮于文字上方的话怎么加代码?
以下是引用有点蓝在2018/10/20 11:43:00的发言:
查找特定字符并替换为图片
Dim app As New MSWord.Application
try
Dim fileName = "D:\问题\123.docx"
Dim doc As object = app.Documents.Open(fileName)
Dim item = "【图片】" '被替换的字符
Dim sel = app.Selection
sel .Find.ClearFormatting
With sel .Find
.Text = item
.Replacement.Text = ""
.Forward = True
.Wrap = MSWord.WdFindWrap.wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
sel.Find.Execute
Dim img = "D:\问题\1.png" '图片路径
Dim pic = sel.InlineShapes.AddPicture(img, False, True)
pic.Height=100 '图片高
pic.Width=100 '图片宽
Doc.save
catch ex As exception
msgbox(ex.message)
finally
app.Quit
End try