主题：套印问题

下列代码需要解决2个问题，一是印章的位置，希望印章位置不要固定，自动根据内容进行调整，找到“【盖章】”处替换；二是印章叠放次序问题，印章置于底层，自动衬于文字下方。

 

Dim fl As String = ProjectPath & "test.docx"

Dim fl1 As String = ProjectPath & "test1.docx"

FileSys.CopyFile(fl,fl1,True)

Dim img As String = ProjectPath & "印章1.png"

Dim app As New MSWord.Application

try

    Dim doc = app.Documents.Open(fl)

    app.Selection.Find.Text = "【盖章】"

    app.Selection.Find.Execute

    Dim pic = app.Selection.InlineShapes.AddPicture(filename:=img, linktofile:=False, savewithdocument:=True).ConvertToShape '插入图形

    With pic

        .WrapFormat.Type = MSWord.WdWrapType.wdWrapFront

        .RelativeHorizontalPosition = MSWord.WdRelativeHorizontalPosition.wdRelativeHorizontalPositionRightMarginArea '相对于右边距

        .Left = -.Width '取图片宽度的负数

        .RelativeVerticalPosition = MSWord.WdRelativeVerticalPosition.wdRelativeVerticalPositionBottomMarginArea '相对于下边距

        .Top = -.Height '取图片高度的负数

        .LockAspectRatio = True

       .Height = 113.5 '印章大小正确

    End With

    Doc.SaveAs(Filename:= fl1)

catch ex As exception

    msgbox(ex.message)

    app.Quit

finally

End try

Dim Proc As New Process

Proc.File = fl1

Proc.Start()

https://docs.microsoft.com/zh-cn/office/vba/api/word.wdwraptype

老师，wdWrapBehind=5还是wdWrapMergeBehind=3，这个代码写在哪里

.WrapFormat.Type = MSWord.WdWrapType.wdWrapBehind

Dim pic = sel.InlineShapes.AddPicture(img, False, True)

蓝老师，现在实现了根据内容多少印章跟随和印章位于文字的下面功能，但发现一个问题，印章偏移较大，能否实现印章位置进行微调？红色代码怎么修改