如何用VBA删除Word文档中的各种类型页码？

songs · 发表于 2009-6-22 01:13

这几天要处理很多不同文档。

我发现Word文档中的页码还十分复杂，虽说多是{PAGE}域，但因有些页码的前后有字符，如“第5页，共10页”等，有的文档又有多个节，页码的位置也有上、下、左、右甚至中，有的还是分栏的栏下页码。

总之，我想用一个宏，不论这个文档中的页码多么复杂（包括页码前后的字符），一删了之（但页眉或页脚的其它内容不能删）。请赐招。

kqbt · 发表于 2009-6-22 12:17

记得守版在类似主题有解答的，搜索看看。
Sub test()
Dim j As Section
Dim y As HeaderFooter
For Each j In ActiveDocument.Sections
      For Each y In j.Footers
         y.Range.Delete
      Next
Next
End Sub

[ 本帖最后由 kqbt 于 2009-6-22 12:20 编辑 ]

songs · 发表于 2009-6-22 16:32

原帖由 kqbt 于 2009-6-22 12:17 发表
记得守版在类似主题有解答的，搜索看看。
Sub test()
Dim j As Section
Dim y As HeaderFooter
For Each j In ActiveDocument.Sections
For Each y In j.Footers
y.Range.Del ...

没这么简单，这是把所有的页脚中的全部内容都删除了，而我要求把所有节中的页脚或页眉中的页码（含页码的前导字符和后导字符，即象“第5页”中的“第”、“页”等前后导字符）。

ssq1109 · 发表于 2009-6-23 15:02

我来抛砖吧。
我想就一般情况而言，在页脚中的页码是在图文框中，故可用下面的方法删除：
  With ActiveDocument
   .StoryRanges(wdPrimaryFooterStory).Frames(1).Cut
   .StoryRanges(wdPrimaryHeaderStory).Frames(1).Cut
End With
当然，这是最觉的情况，如还有其他类型的页脚，仿上法加语句；如为多节，则可遍历节循环。

补充说明，如页眉或页脚中还有其他的图文框，则上述方面就有问题了。不过这种情况几乎不可能。

[ 本帖最后由 ssq1109 于 2009-6-23 15:04 编辑 ]

sylun · 发表于 2009-6-23 19:50

可试试如下代码，其基本效果为删除页眉页脚中带有页码或页数域的句子内容。
Sub test()
Dim aSection As Section, i As Byte, aHeaderFooter As HeaderFooter, aField As Field
Application.ScreenUpdating = False
For Each aSection In ActiveDocument.Sections
For i = 1 To 2
      For Each aHeaderFooter In IIf(i = 1, aSection.Headers, aSection.Footers)
         If aHeaderFooter.Range.Fields.Count > 0 Then
            For Each aField In aHeaderFooter.Range.Fields
                  If aField.Type = wdFieldPage Or wdFieldNumPages Or wdFieldSectionPages Then
                     aField.Select
                     Selection.Expand wdSentence
                     Selection.Delete
                  End If
            Next
         End If
      Next
Next i
Next
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdPrintView
Else
ActiveWindow.Panes(2).Close
ActiveWindow.View.Type = wdPrintView
End If
Application.ScreenUpdating = True
End Sub

kqbt · 发表于 2009-6-24 12:38

太深奥了！学习~~~~~~~~谢谢各位达人

tangqingfu · 发表于 2010-8-9 05:17

谢谢kqbt兄和sylun兄的分享，收藏备用！

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

[求助] 如何用VBA删除Word文档中的各种类型页码？