vb写的一个打印功能,详情如下

.ActiveDocument.Shapes.AddPicture filename:=path & "word\" & VIN & ".jpg", LinkToFile:=False, SaveWithDocument:=True, Left:=450, Top:=750

这段代码是把这个二维码图片放到word中去,但是这样只能放在word中的第一张纸上,现在有个这个需求,要把这个二维码放到word中的第二张纸上去。如果我改变后面的top值,那么当top值大于第一张纸的高度的时,二维码图片就会隐藏请问我该怎么解决??

先插入一个分页符,再插入图片
.ActiveDocument.Range.InsertBreak Type:=wdPageBreak