Sub 删除空白页()Dim p, l, myrange 申明页变量，行变量，和区域变量p = ActiveDocument.Range.Information(wdActiveEndPageNumber)获取文档总页数
Do While p >1 大于一页时开始循环Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst, count:=p, Name:=""跳转到最后一页第一行
Selection.MoveUp Unit:=wdLine, count:=1向上移动一行l = Selection.Information(wdFirstCharacterLineNumber)获取当前页的行数
Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst, count:=(p -1), Name:=""跳转到上一页第一行Selection.EndKey Unit:=wdLine, Extend:=wdExtend 移动光标到行尾并选中
Selection.MoveDown Unit:=wdLine, count:=(l -1), Extend:=wdExtend 移动光标选择这一页Selection.EndKey Unit:=wdLine, Extend:=wdExtend 移动光标到行尾并选中
myrange = Selection.Text 获当前页内容For i =9 To 32myrange = Replace(Trim(myrange), Chr(i),"")删除回车键等Next If Len(myrange)<1 Then Selection.Delete 当前页内容为空白时删除
p = p -1 页数减少1页Loop 结束循环End Sub
亲爱的读者们，感谢您花时间阅读本文。如果您对本文有任何疑问或建议，请随时联系我。我非常乐意与您交流。
发表评论:
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。