如何使用VBA删除word文档中的空白页？
如何使用VBA删除word文档中的空白页？
提问于 2018-08-14 03:13:06
Public Function DeleteBlankPages(wd As Word.Document)
Dim par As Paragraph
For Each par In wd.Paragraphs
If Len(par.Range.Text) <= 1 Then
par.Range.Delete
End If
Next par
End Function我尝试了上面的代码段，但它没有删除空白页。任何帮助都将不胜感激。
回答 1
Stack Overflow用户
发布于 2018-08-14 11:19:58
根据我的测试，如果您只想删除空白的Paragrph，我们只需将以下代码添加到您的VBA项目中。然后从宏运行主。
Sub main()
Set wd = ActiveDocument
Dim par As Paragraph
For Each par In wd.Paragraphs
If Len(par.Range.Text) <= 1 Then
par.Range.Delete
End If
Next par
End Sub如果我们想删除空白页: 1.如果您知道页面索引，我们可以使用以下代码：
Set rgePages = Selection.Range
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=PageCount
rgePages.End = Selection.Bookmarks("\Page").Range.End
rgePages.Delete- 如果您不知道空白页的页面索引，我们需要循环PageCollection并使用Trim来处理页面文本，然后删除空白页。(但在文字中的范围文本上，修剪似乎不太好)
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/51833199
复制相关文章
相似问题
腾讯云开发者
