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 &&删除回车符