admin管理员组

文章数量:1130349

Sub 全篇删除页脚()
    ' 定义当前页变量
    Dim n
    ' 初始值1循环自增到1000页退出
    For n = 1 To 1000 Step 1
        ' 跳转到指定页 如果把n改成指定页建议加双引号
        Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=n
        Selection.Find.ClearFormatting
        ' 删除选中页页脚
        WordBasic.RemoveFooter
        ' 删除选中页页头 没试过
        ' WordBasic.RemoveHeaders
    Next n
End Sub

Sub 全篇删除页脚()
    ' 定义当前页变量
    Dim n
    ' 初始值1循环自增到1000页退出
    For n = 1 To 1000 Step 1
        ' 跳转到指定页 如果把n改成指定页建议加双引号
        Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=n
        Selection.Find.ClearFormatting
        ' 删除选中页页脚
        WordBasic.RemoveFooter
        ' 删除选中页页头 没试过
        ' WordBasic.RemoveHeaders
    Next n
End Sub

本文标签： 页眉WordVBAVBOFFICE

版权声明：本文标题：VBA word office VB 删除页脚或页眉 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://it.en369.cn/jiaocheng/1726663672a651025.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。