各位大神，想删除最有一节页面，下面代码只是删除内容，请求帮忙

lhteee

示例文件.rar (82.51 KB, 下载次数: 5)

2024-9-5 17:43 上传

点击文件名下载附件

1. Sub DeleteLastSectionAndPage()
   
2.     Dim doc As Document
   
3.     Dim sec As Section
   
4.     Dim lastSecIndex As Long
   
5.     Dim rng As Range
   
6.     Dim isLastPage As Boolean
   
7.    
   
8.     ' 设置当前激活的文档为操作对象
   
9.     Set doc = ActiveDocument
   
10.    
    
11.     ' 获取文档中的节总数
    
12.     lastSecIndex = doc.Sections.Count
    
13.    
    
14.     ' 如果文档中至少有一个节，则执行删除操作
    
15.     If lastSecIndex > 0 Then
    
16.         ' 设置当前节为最后一节
    
17.         Set sec = doc.Sections(lastSecIndex)
    
18.         
    
19.         ' 获取最后一节的范围
    
20.         Set rng = sec.Range
    
21.         
    
22.         ' 删除最后一节的所有内容
    
23.         rng.Delete Unit:=wdCharacter, Count:=1
    
24.         
    
25.         ' 检查是否还有其他内容，如果没有，则删除整个节
    
26.         isLastPage = (doc.Content.End - rng.Start <= 1)
    
27.         
    
28.         If isLastPage Then
    
29.             ' 删除整个节
    
30.             sec.Range.MoveStart Unit:=wdCharacter, Count:=-1
    
31.             sec.Range.Delete Unit:=wdCharacter, Count:=1
    
32.         Else
    
33.             ' 删除节的格式设置，以避免分ation符残留
    
34.             sec.PageSetup.SectionStart = wdSectionContinuous
    
35.         End If
    
36.     End If
    
37.    
    
38.     ' 清理对象变量
    
39.     Set sec = Nothing
    
40.     Set doc = Nothing
    
41. End Sub

复制代码

lhteee

自己顶一下，求各位大神帮忙

蜀中草莽

lhteee 发表于 2024-9-6 08:30
自己顶一下，求各位大神帮忙

最后一节的 页面设置 要设置为跟它上一节 一模一样 才能直接删除分节符  不然直接删除不然版面会变成最后一节的版面。word 可以在分节符前面加回车 表面这个情况

limonet

Sub limonet()
    Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=ActiveDocument.Sections.Count - 1, Name:=""
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.EndKey Unit:=wdStory, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1
End Sub

limonet

关键字：Selection.GoTo

lhteee

limonet 发表于 2024-9-6 09:20
关键字：Selection.GoTo

是把后面两节都删了，如果只删一节怎么修改代码？谢谢！！！

lhteee

limonet 发表于 2024-9-6 09:19
Sub limonet()
    Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=ActiveDocument.Sec ...

Which:=wdGoToFirst
改为Which:=wdGoToLast

limonet

Count:=ActiveDocument.Sections.Count

limonet

把 - 1删除。

lhteee

完美解决，谢谢各位