删除空白页

aman1516 · 发表于 2022-5-17 15:53

下面是删除空白页的代码：

Sub delpage()
Const wdPageBreak = 7
Const wdSectionBreakContinuous = 3
Const wdSectionBreakNextPage = 2
Const wdGoToPage = 1
Const wdGoToAbsolute = 1
Dim oDoc As Document
Dim oRng As Range
Set oDoc = Word.ActiveDocument
Dim iPageNo As Long
With oDoc
iPageNo = .Range.Information(wdNumberOfPagesInDocument)
For i = iPageNo To 1 Step -1
Set oRng = .GoTo(wdGoToPage, Which:=wdGoToAbsolute, Count:=i)
oRng.Select
oRng.SetRange oRng.Start, oRng.Bookmarks("\page").End
sText = oRng.Text
If Not (sText Like "*[0-9]*" Or sText Like "*[a-z]*" Or sText Like "*[A-Z]*" Or sText Like "*[一-龥]*") Then
oRng.Delete
End If
Next i
End With
End Sub

复制代码

但发一一个问题，若文档的页面中只有图片，没有文字时，该页也被删除了

如何才能删除真正的空白页呢：只有空行、空格、换行符、换页符，其他什么都没有
有图片、有空表格的，都不算空白页

aman1516 · 发表于 2022-5-17 15:56

详见附件：

删除空白页.rar (542.33 KB, 下载次数: 23)

aman1516 · 发表于 2022-5-18 18:53

多谢蓝版主，已解决，见VBA版块；

删除空白页，熟悉WORD VBA的老师帮看下
https://club.excelhome.net/thread-1627808-1-1.html

		自动登录	找回密码
密码			免费注册

[求助] 删除空白页