WORD文檔的首尾空白页打印時常造成纸张浪费,逐一删除浪费时间,求助于程序,网上找到2段代码,但在使用时出错或无效,是故请教大家,恳请给予指点,谢谢!
1) 删除首空白页:   
问题: 文檔加了页眉后,不起作用.
*代码如下:
   

Do While Asc(oDoc1.Characters(1).Text)=32 Or Asc(oDoc1.Characters(1).Text)=12 Or Asc(oDoc1.Characters(1).Text)=13
           oDoc1.Characters(1).Delete
     Enddo

2)删除尾空白页
  问题: 1)加了页眉不起作用;  2)文件內容末尾若是表格,就出错
*代码如下:
   

Do while oDoc1.Range(oDoc1.Characters.Count - 2, oDoc1.Characters.Count).Text = Chr(13)&&  
               oDoc1.Range(oDoc1.Characters.Count - 2, oDoc1.Characters.Count).Delete  &&
   Enddo

  *出错信息截图:

  **会出错的word文件
   

謝謝指教,我試試看!!

雖然無用,但還是感謝指點!!

**
已用其他方法搞掂,謝謝關注,謝謝...