当前位置: 代码迷 >> VFP >> 删除最后一个空白页解决方法
  详细解决方案

删除最后一个空白页解决方法

热度:2976   发布时间:2013-02-26 00:00:00.0
删除最后一个空白页
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 &&删除回车符
  相关解决方案