批量删除word文档页脚

xzh_yzcn

各位老师
我想在exce中运用vbal批量删除文件夹中所有word文档的页脚内容。试编了以下代码：
Sub 批量删除word文档页脚()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

'定义word应用
Set wdapp = CreateObject("word.application")
'通过对话框确定文件夹
Set fld = Application.FileDialog(msoFileDialogFolderPicker) '选取并指定文件夹路径
With fld
    .Show
    mypath = .SelectedItems(1) ' 提取文件夹路径
End With

myfile = Dir(mypath & "\*.doc*")

Do While myfile <> ""
    '打开并定文件变量
    Debug.Print mypath & "\" & myfile
    Set doc = wdapp.Documents.Open(mypath & "\" & myfile, Visible = True)
    '删除原有的页脚页码，定义页脚编辑区域
    Set myRange = doc.Sections(1).Footers(wdHeaderFooterPrimary).Range
    '执行此句出错，集合所要求的成员不存在

    '删除页脚内容
    myRange.Delete
    doc.Close -1, 1
    myfile = Dir
Loop

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub


Set myRange = doc.Sections(1).Footers(wdHeaderFooterPrimary).Range
    '执行此句出错，集合所要求的成员不存在

请帮检查一下错在哪里，或指点有无其他方法，谢谢
批量删除文档页脚.zip (46.77 KB, 下载次数: 4)

2019-7-11 01:06 上传

点击文件名下载附件

xzh_yzcn

在wordvba中处理，是可以，能获得正确结果，word中的代码如下：
Sub 批量删除文件夹中文档页脚()

Set fld = Application.FileDialog(msoFileDialogFolderPicker) '选取并指定文件夹路径
With fld
    .Show
    mypath = .SelectedItems(1) ' 提取文件夹路径
End With

myfile = Dir(mypath & "\*.doc*")

Do While myfile <> ""
   Set doc = Documents.Open(mypath & "\" & myfile, Visible = False)
    '删除原有的页脚页码
    Set myRange = doc.Sections(1).Footers(wdHeaderFooterPrimary).Range
    myRange.Delete
   
    doc.Close -1, 1
   
    myfile = Dir

Loop

End Sub

xzh_yzcn

请大师帮看看

xzh_yzcn

问题找到了，
首先在VBE界面“工具-引用”添加引用Microsoft Word 16.0 Object Library

xzh_yzcn

word vba 添加word文档新的页脚页码
Sub 批量添加word文档新页脚页码()
Set fld = Application.FileDialog(msoFileDialogFolderPicker) '选取并指定文件夹路径
With fld
    .Show
    mypath = .SelectedItems(1) ' 提取文件夹路径
End With
myfile = Dir(mypath & "\*.doc*")
Do While myfile <> ""
   Set doc = Documents.Open(mypath & "\" & myfile, Visible = True)   
    '删除原有的页脚页码
    Set myRange = doc.Sections(1).Footers(wdHeaderFooterPrimary).Range
    myRange.Delete   
    '关闭奇偶页相同(防止上回启用奇偶页不同后没有关闭此项设置)
    ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter = False
    With ActiveWindow.ActivePane.View
        .SeekView = wdSeekCurrentPageFooter
        With Selection
            .Expand wdStory
            .Font.Size = 10    '字号
            .Font.Name = "宋体" '字体
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .TypeText "第"
            .Fields.Add .Range, wdFieldPage
            .TypeText "页"
        End With
        .SeekView = wdSeekMainDocument  '退出页码的编辑(即关闭页眉和页脚工具栏)
    End With   
    doc.Close -1, 1   
    myfile = Dir
Loop
End Sub
以上代码能顺利执行并获得正确结果

xzh_yzcn

excelvba 添加word文档页脚页码代码：
Sub 批量添加word文档页脚页码()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

'首先在VBE界面“工具-引用”添加引用Microsoft Word 16.0 Object Library

'定义word应用
Set wdapp = CreateObject("word.application")
'通过对话框确定文件夹
Set fld = Application.FileDialog(msoFileDialogFolderPicker) '选取并指定文件夹路径
With fld
    .Show
    mypath = .SelectedItems(1) ' 提取文件夹路径
End With

istbym = InputBox("文件夹的文档是否统编连续的页码，统编输入1，不统编输入0", "", 1)

myfile = Dir(mypath & "\*.doc*")
ymzs = 0
Do While myfile <> ""
   Set doc = wdapp.Documents.Open(mypath & "\" & myfile)
   '让打开的word文档可见
   wdapp.Visible = True
   '让打开后的文件显示在桌面（成为当前活动文档）
    wdapp.Activate
    Set myrange = doc.Sections(1).Footers(wdHeaderFooterPrimary).Range
    myrange.Delete
    '关闭奇偶页相同(防止上回启用奇偶页不同后没有关闭此项设置)
     doc.PageSetup.OddAndEvenPagesHeaderFooter = False
      '添加新的页脚页码
      With wdapp.ActiveWindow.View
       .SeekView = wdSeekCurrentPageFooter
      With Selection
       .Expand wdStory   '执行到此语句出错，对象不支持该属性或方法
        .Font.Size = 10    '字号
        .Font.Name = "宋体" '字体
         .ParagraphFormat.Alignment = wdAlignParagraphCenter
         .TypeText "第"
         .Fields.Add .Range, wdFieldPage
        .TypeText "页"
      End With
       .SeekView = wdSeekMainDocument  '退出页码的编辑(即关闭页眉和页脚工具栏)
      End With
      doc.Close -1, 1
    myfile = Dir
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

xzh_yzcn

请教老师，excelvba 添加页脚页码出错，对象不支持该属性或方法，请指教如何处理，谢谢

批量添加文档页脚.zip (58.59 KB, 下载次数: 3)

2019-7-11 15:56 上传

点击文件名下载附件

山海风云轩

请问，这个搞定了吗？我的从第一页开始添加页码，想从第三页开始