如何删除WORD最后一个分页符及后面所有内容

aman1516

如题， 如何删除WORD最后一个分页符及后面所有内容




word最后一页是空白，无法删除？
https://club.excelhome.net/thread-1579204-1-1.html



如何删除最后一页不影响其它页格式
https://club.excelhome.net/thread-1559321-1-1.html


WORD版块，用VBA的太少，在此求助，请老师们移步看一看

limonet

Sub DelSections()

    Selection.GoTo What:=wdGoToSection, Which:=wdGoToLast
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.EndKey Unit:=wdStory, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1
End Sub

mmwwdd

aman1516

mmwwdd 发表于 2022-5-9 14:58

多谢关注，分页符用 ^m 测试，
如果光标在最后的分页符后面，没反应，
当光标在分页符前面时，就可以，但分页符后面的内容未删除

aman1516

弄了好半天，总算拼凑出来：

1. Sub delpm()    'ok
   
2.     Const wdPageBreak = 7
   
3.     Const wdGoToPage = 1
   
4.     Const wdGoToAbsolute = 1
   
5.     Dim oDoc As Document, oRng As Range, p As Long, myRange As Range, x As Long, y As Long
   
6.     Set oDoc = Word.ActiveDocument
   
7.     p = oDoc.Range.Information(wdNumberOfPagesInDocument)    '总页数
   
8.     x = Selection.GoTo(what:=wdGoToPage, Which:=wdGoToNext, Name:=Currentpage).Start
   
9.     y = oDoc.Content.End
   
10.     Set myRange = ActiveDocument.Range(x, y)    'CurrentPageEnd
    
11.     myRange.Select
    
12.     Selection.Delete
    
13.     For i = p To p - 1 Step -1
    
14.     With oDoc.GoTo(wdGoToPage, Which:=wdGoToAbsolute, count:=p - 1).Find
    
15.         .ClearFormatting
    
16.         .MatchWildcards = False
    
17.         .Text = "^m"     '分页符
    
18.         .Execute ReplaceWith:="", Replace:=wdReplaceAll
    
19.         .Text = "^b"     '分节符
    
20.         .Execute ReplaceWith:="", Replace:=wdReplaceAll
    
21.     End With
    
22.     Next
    
23. End Sub

复制代码