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

lhteee · 发表于 2024-9-5 17:44

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

Sub DeleteLastSectionAndPage()
Dim doc As Document
Dim sec As Section
Dim lastSecIndex As Long
Dim rng As Range
Dim isLastPage As Boolean
' 设置当前激活的文档为操作对象
Set doc = ActiveDocument
' 获取文档中的节总数
lastSecIndex = doc.Sections.Count
' 如果文档中至少有一个节，则执行删除操作
If lastSecIndex > 0 Then
' 设置当前节为最后一节
Set sec = doc.Sections(lastSecIndex)
' 获取最后一节的范围
Set rng = sec.Range
' 删除最后一节的所有内容
rng.Delete Unit:=wdCharacter, Count:=1
' 检查是否还有其他内容，如果没有，则删除整个节
isLastPage = (doc.Content.End - rng.Start <= 1)
If isLastPage Then
' 删除整个节
sec.Range.MoveStart Unit:=wdCharacter, Count:=-1
sec.Range.Delete Unit:=wdCharacter, Count:=1
Else
' 删除节的格式设置，以避免分ation符残留
sec.PageSetup.SectionStart = wdSectionContinuous
End If
End If
' 清理对象变量
Set sec = Nothing
Set doc = Nothing
End Sub

复制代码

lhteee · 发表于 2024-9-6 08:30

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

蜀中草莽 · 发表于 2024-9-6 09:05

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

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

limonet · 发表于 2024-9-6 09:19

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 · 发表于 2024-9-6 09:20

关键字：Selection.GoTo

lhteee · 发表于 2024-9-6 09:35

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

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

lhteee · 发表于 2024-9-6 09:40

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

Which:=wdGoToFirst
改为Which:=wdGoToLast

limonet · 发表于 2024-9-6 09:41

Count:=ActiveDocument.Sections.Count

limonet · 发表于 2024-9-6 09:41

把 - 1删除。

lhteee · 发表于 2024-9-6 09:56

完美解决，谢谢各位

		自动登录	找回密码
密码			免费注册

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