如何用VBA删除分节符后边的空白页

文古

求助各位大神，我想用VBA删除附件中的word的最后一页，但是因为有分节符，老是显示这一页，请问各位大神，如何通过VBA来删除这一页呢？

剑指E

1. Sub mmm()
   
2.     Dim d As Document, s As Section, n%, a$
   
3.     Set d = ActiveDocument
   
4.     n = d.Sections.Count
   
5.     If n > 1 Then
   
6.         a = d.Sections(n).Range.Text
   
7.         a = Replace(Replace(a, " ", ""), vbCr, "")
   
8.         If a = "" Then
   
9.             Set s = d.Sections(n - 1)
   
10.             d.Range(s.Range.End - 1, d.Range.End).Delete
    
11.         End If
    
12.     End If
    
13. End Sub

复制代码

文古

剑指E 发表于 2024-5-14 00:26

谢谢大神了，很好用