当前位置：首页 → 问答吧 → 如何通过VBA删除word最后一节

如何通过VBA删除word最后一节

时间：2011-02-15

来源：互联网

已知条件为：
1.文档有多节（每节都有意义，分别设置了页眉页脚）
2.删除中间的节的时候，没有问题，
3.删除最后一节的时候，发现最后一页空白页，但是有页眉页脚（最后一节的），
4.我试着在网上找了一些删除最后一个空白页的代码，执行之后都是倒数第二节的页眉页脚被删除了，也就是说执行之后最后一节是倒数第二节的内容+最后一节的页眉页码
求：
怎么样能彻底删除最后一节，不留空白页？

作者: siemensme 发布时间: 2011-02-15

我手动删最后一个分页符就没问题

用这段代码就会出错

Selection.EndKey Unit:=wdStory
With Selection.Find
.ClearFormatting
.Execute findText:="^b", ReplaceWith:="", Replace:=True, Format:=False, Forward:=False, Wrap:=wdFindStop
End With

作者: siemensme 发布时间: 2011-02-15

可试试如下代码：

复制内容到剪贴板

代码:

Sub test()
Dim HF As HeaderFooter
With ActiveDocument.Sections.Last
      For Each HF In .Headers
         HF.LinkToPrevious = True
      Next
      For Each HF In .Footers
         HF.LinkToPrevious = True
      Next
      With .Range '
         .MoveStart wdCharacter, -2
         .Delete
      End With
End With
End Sub

作者: sylun 发布时间: 2011-02-15

如何通过VBA删除word最后一节

代码:

热门阅读

热门下载