删除最后一个空白页
VF操作word删除第一个空白页用以下代码：
Do While Asc(ActiveDocument.Characters(1).Text)=32 Or Asc(ActiveDocument.Characters(1).Text)=12 Or Asc(ActiveDocument.Characters(1).Text)=13
ActiveDocument.Characters(1).Delete
Loop
请问若word中最后一页是空白页，请问用vf代码怎么写？
[解决办法]
*已测试OK，请参考以下：
*删除尾空白页：
Do while oDoc.Range(oDoc.Characters.Count - 2, oDoc.Characters.Count).Text = Chr(12)
oDoc.Range(oDoc.Characters.Count - 2, oDoc.Characters.Count).Delete &&删除TAB键
Enddo
*删除首空白页：
Do while oDoc.Range(1, 2).Text = Chr(12)
oDoc.Range(1, 2).Delete &&删除TAB键
Enddo
oDoc.Range(0, 1).Delete &&删除回车符
