VBA Как вставить пустую страницу в word

Формулировка задачи:

Задача такая. Есть большой документ. В нем периодически встречается слово Глава. Нужно определить если слово встретилось на четной странице то сделать разрыв страницы с этого слова и перенести его на следующую, т.е. что бы указанное слово или словочочетане всегда начиналось с нечетной страницы. Как можно сделать это в рамках worda

Решение задачи: «VBA Как вставить пустую страницу в word»

textual
                            Листинг программы 
                        

                            <font color="blue">sub</font> Макрос DDD()
....
Find(...)
<font color="00AA00">'Здесь добавить проверку на четность</font>
<font color="blue">If</font>  activedocument.Information(wdActiveEndPageNumber) <font color="blue">mod</font> <font color="darkblue"><b>2</b></font> = <font color="darkblue"><b>1</b></font> <font color="blue">then</font>
   <font color="00AA00">'Код вставки разныва страницы</font>
endif
<font color="blue">end</font> <font color="blue">sub</font>
                        