为什么我的“批量文档修订接受”宏不接受页眉/脚及文本框中的修订？

以下蓝色字符是宏的VBA代码，有请高手帮我修正，万谢！：

Sub acceptrevisions()    '此代码功能为列出指定文件夹中所有选取的WORD文件全路径名
    Dim myDialog As FileDialog, oDoc As Document
    Dim oFile As Variant
    On Error Resume Next
    '定义一个文件夹选取对话框
    Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
    With myDialog
        .Filters.Clear    '清除所有文件筛选器中的项目
        .Filters.Add "所有 WORD 文件", "*.doc", 1    '增加筛选器的项目为所有WORD文件
        .AllowMultiSelect = True    '允许多项选择
        If .Show = -1 Then    '确定
            For Each oFile In .SelectedItems    '在所有选取项目中循环
                Set oDoc = Word.Documents.Open(FileName:=oFile, Visible:=False)
                oDoc.Revisions.AcceptAll
                oDoc.Close True
            Next
        End If
    End With
End Sub

有请高手闪亮登场~~~·