Question

批量修改word页脚的宏代码

利用宏如何一次修改几百个word的页脚？
代码是什么？

Answer 1

Sub 插入普通页码()
    ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter = False    '关闭奇偶页相同(防止上回启用奇偶页不同后没有关闭此项设置)
    With ActiveWindow.ActivePane.View
        .SeekView = wdSeekCurrentPageFooter
        With Selection
            .Expand wdStory
            .Font.Size = 14    '字号
            .Font.Name = "宋体"    '字体
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .TypeText "-"
            .Fields.Add .Range, wdFieldPage
            .TypeText "-"
            .ParagraphFormat.Alignment = wdAlignParagraphRight  '页码的位置居右
        End With
        .SeekView = wdSeekMainDocument  '退出页码的编辑(即关闭页眉和页脚工具栏)
    End With
End Sub

我这儿有个，插入页码的VBA代码，希望能在到你！

Answer 2

在我们日常工作和日常学习中，有时候需要将一些Word 文件进行压缩，如何做到呢？我们可以使用[风云压缩]完成。一起来看下具体步骤吧！