请问在word中插入分页符的问题

在word中要实现的功能为：先插入一个图片，再在下一页插入一段文本。

我的解决方法为：
先插入一个图片，再插入一个分页符，再插入一段文本。
代码如下：

Dim docTemp As Word.Document
Dim docTemp2 As Word.Document
Dim r As Word.range
Dim pa1 As Word.Paragraph

Set r = docTemp.Bookmarks.Item("\endofdoc").range
r.InlineShapes.AddPicture (imageFilePath)     '插入图片

Set pa1 = docTemp.content.Paragraphs.Add(docTemp.Bookmarks.Item("\endofdoc").range)
pa1.range.InsertAfter (vbCrLf)     '插入回车换行
pa1.range.InsertBreak              '插入分页符
       
Set pa1 = docTemp.content.Paragraphs.Add(docTemp.Bookmarks.Item("\endofdoc").range) 
docTemp2.range.Copy     '从一个word文件中复制文本
pa1.range.Paste         '粘帖

有个问题：如果图片很大，独自占一页，则用如上方易做图在图片和文字之间插入一个空白页。如何不插入这个空白页呢？如果图片不大就没问题。

想判断图片高度，如果很大就不插入分页符。但这个word文件会动态加入页眉页脚，总高度判断起来会很麻烦。

各位有什么好的提示吗？

补充：VB ,  VBA