.DistanceFromRight = 4
            .Shadow = False
        With
    With
    With Options
        .DefaultBorderLineStyle = wdLineStyleSingle
        .DefaultBorderLineWidth = wdLineWidth075pt
        .DefaultBorderColor = wdColorAutomatic
    With
    If Selection.HeaderFooter.IsHeader = True Then
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Else
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    If
    Selection.WholeStory
    Selection.Delete Unit:=wdCharacter, Count:=1
    geNumbers.Add PageNumberAlignment:= _
        wdAlignPageNumberRight, FirstPage:=True
' 以上可以换当作是你本身录制的宏
【Word基本技巧】' C公共部门的代码
Application.DisplayAlerts = False '强制执行“是”
'ActiveDocument.Saved = True'强制执行“否”
ActiveDocument.Close '退出
      Next
    If
  With
  Application.ScreenUpdating = True
  MsgBox "所选Word文档的页眉页脚已删除！！！", 64, "☆★批量处置完毕★☆"
Sub
Sub ConvertEqns()
'
' ConvertEqns Macro
' 宏在 2014-6-25 由 USER 建立
'
Sub

6输入代码后，封闭窗口返回文档，从头选择在“东西”菜单中选择“宏”--“宏”，在弹出的宏名中选择"批量删除Word页眉页脚",最后点击“运行”---确认即可快速地删除500个Word页眉页脚







以上内容就是Word基本技巧的内容啦，希望对你有所帮助哦！

猜你喜欢

• 男人不带套，女人如何避孕
• Word文档横向文字改成纵向
• 引号的用法 引号的用法有哪些
• 怎样收缩毛孔最有效又简单
• 此后锦书休寄,画楼听雨无凭什么意思此后锦书休寄,画楼听雨无凭有什么含义
• 山中本无茶寺外也有佛
• 宝宝脸上有红血丝怎么回事
• 脸上红血丝怎么形成的
• 红血丝根治的方法
• 刮腋毛效果怎样