Products
GG网络技术分享 2025-11-13 04:15 11
根据您给的信息,
Ctrl + H打开查找和替换窗口。
vba Sub DeleteBlankPageByContent Dim i As Integer For i = ActiveDocument.Shapes.Count To 1 Step -1 If ActiveDocument.Shapes.Type = msoTextBox And _ ActiveDocument.Shapes.TextFrame.HasText = False Then ActiveDocument.Shapes.Delete End If Next End Sub
Sub DeleteBlankPageByFormat Dim i As Integer For i = ActiveDocument.Content.End - 1 To 1 Step -1 If ActiveDocument.Characters.Text = Chr Then ActiveDocument.Range.Delete Exit For End If Next End Sub
Sub DeleteBlankPageByMargin Dim i As Integer Dim sec As Section For Each sec In ActiveDocument.Sections i = i + 1 With sec.PageSetup .TopMargin = 0 .BottomMargin = 0 .LeftMargin = 0 .RightMargin = 0 End With Next End Sub
这些个方法Neng帮您从Word文档中删除空白页,以改善文档的布局和可读性。
Demand feedback