如何批量删除多个word中大于某一字号的文字

如何用vba批量删除多个word文档中大于指定字号的文字。
如果打开某一文档单个处理，代码为：
Sub test()
    Application.ScreenUpdating = False
    With Selection
        .HomeKey Unit:=wdStory
        '所选内容位于文档正文部分
        Do
            .SelectCurrentFont
            '向前扩展选定内容，直至遇到另一种字体或字号
            If .Font.Size > 14 Then .Delete
            '如果遇到的字体大于四号，则删除
            .Collapse Direction:=wdCollapseEnd
            '选定内容折叠为选定内容的结尾
        Loop Until .End = ActiveDocument.Content.End - 1
        '循环到内容的最后结束位置
    End With
    Application.ScreenUpdating = True
End Sub

以上代码不能批量处理多个文档，那位大侠看看，能否改一改，将代码输入某一文档中，运行代码后，找到被处理的文档，批量处理。祈盼高人出现。

[ 本帖最后由 scj1234 于 2011-4-27 11:45 编辑 ]

需要这么复杂做么4啊，查找替换不就解决问题了啊！O(∩_∩)O~，我不会VBA,没有看清楼主要求，大于某一字号

[ 本帖最后由 5blessyou 于 2011-4-27 12:13 编辑 ]