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

songs

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

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

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

kqbt

记得守版在类似主题有解答的，搜索看看。
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

原帖由 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

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

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

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

sylun

可试试如下代码，其基本效果为删除页眉页脚中带有页码或页数域的句子内容。
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

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

tangqingfu

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