用VBA 批量给文档每节设置不同的页眉页脚

jiangxiaoyun

不要老审核，每次回复都审核。
Sub 批量插入不同的页眉页脚()
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oSec As Section, t As String
    With oDoc
        On Error Resume Next
        For i = 1 To .Sections.Count
            With .Sections(i)
                sr = Replace(Left(.Range.Text, Len(.Range.Text) - 2), Chr(12), "")
                If InStr(sr, "[") > 0 Then
                    k = 1: t = sr
                    .Headers(wdHeaderFooterPrimary).LinkToPrevious = False
                    .Headers(wdHeaderFooterPrimary).Range.Text = sr
                    .Footers(wdHeaderFooterPrimary).LinkToPrevious = False
                    .Footers(wdHeaderFooterPrimary).Range.Text = sr & "第1页"
                Else
                    k = k + 1
                    .Footers(wdHeaderFooterPrimary).LinkToPrevious = False
                    .Footers(wdHeaderFooterPrimary).Range.Text = t & "第" & k & "页"
                End If
            End With
        Next
    End With
End Sub

weiyingde

jiangxiaoyun 发表于 2019-1-2 15:38
不要老审核，每次回复都审核。
Sub 批量插入不同的页眉页脚()
    Dim oDoc As Document

首先是感谢，其次还是感谢，没有别的，只有送花，谢谢你。然后再测试，思考，消化。若有不懂，还要询问。

weiyingde

jiangxiaoyun 发表于 2019-1-2 15:38
不要老审核，每次回复都审核。
Sub 批量插入不同的页眉页脚()
    Dim oDoc As Document

老师插入的页码是静态的吧？我有个问题，用域的形式动态插入可以吗？

413191246se

魏老师：我 13 楼的附件，包括示例文档和 VBA 代码（请将代码复制到 空白模板中 Normal.dot，我是用 Word2003，魏老师 用的是 2007，可能不一致），不知 魏老师 试用代码 没有？我的代码中，已经包含了 3 个用“域”插入的页码，均是动态的，只须一步一步地按 F8 进行调试、观摩即可。

weiyingde

413191246se 发表于 2019-1-3 01:33
魏老师：我 13 楼的附件，包括示例文档和 VBA 代码（请将代码复制到 空白模板中 Normal.dot，我是用 Word20 ...

谢谢你，我用插入域的形式，没有成功，不知何故。我对域的了解很是外行，对section对象也非常外行——总而言之，对word的VBA知识十分的欠缺，大多情况下，我是下载实例，进行揣摩和套用，缺乏系统性的知识，所以，往往是在别人的帮助下，解决眼前的问题，对相关的知识的了解自然也就是一鳞半爪。
对于你的帮助帖，我看了，有的模棱两可，于是在上网看看相关知识，没有时间深究，糊里糊涂；有些尝试，出了问题，没有时间继续发帖，闷在肚里。
稍后有时间再向你讨教，希望你不吝赐教。

413191246se

众所周知，插入页码，实际上就是插入域，按 Alt+F9 或 Shift+F9 可以观察到域代码。我也是会插入页码，进而试探性地插入了节的页码，及总页数，魏老师 只要按 Alt+F9 就可以观察到域代码。互相学习吧，我其实也是在录制宏的基础上，初步掌握了一点 VBA 的属性和方法，但理解得不深，和论坛高人无法比。

zyqn518

学习，多谢各位了

wdpfox

感谢楼主分享，支持一下！

We meet by chance like patches of drifting duckweed,  
May everything be fine with you everyday !
  （你我萍水相逢，愿君一切安好！）