以下是引用ken3238在2020-12-26 15:42:18的发言：

     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文件
   

以下是引用radiofan在2020-12-31 10:29:11的发言：




需要对表格进行操作！
例如：MyWord.Selection.Tables(1).rows(1).cells(1) ……

以下是引用星光悠蓝在2021-1-2 11:49:41的发言：

试试这属性
MyWord.Selection.TypeBackspace