怎样删除一批word文档中空白页

Question

有一批word文档几百份，其中有大部分最后一页多了一页空白页请问怎么删除

Answer 1

为了防止误操作，强烈建议你先备份所有要操作的word文件

先录制一个删除最后一页的宏，比如叫 Macro1
然后执行类似如下代码

Sub 批量操作WORD()
   Dim path          As String
   Dim FileName  As String
   Dim worddoc   As Document
   Dim MyDir       As String
   MyDir = "G:\360data\重要数据\桌面\新建文件夹 (2)"  '文件夹路径根据需要自己修改，需要处理的文件都放该文件夹内
   FileName = Dir(MyDir & "\*.doc*", vbNormal)
   Do Until FileName = ""
   If FileName <> ThisDocument.Name Then
         Set worddoc = Documents.Open(MyDir & "\" & FileName)
         worddoc.Activate
         Call Macro1  '调用宏,换成你自己宏的名字
         worddoc.Close True
         FileName = Dir()
    End If
   Loop
Set worddoc = Nothing
End Sub

参考 http://blog.sina.com.cn/s/blog_54be98b80102w0e0.html