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

weiyingde

jiangxiaoyun 发表于 2019-1-1 19:50

不知道怎样修改才合适，请大侠帮我一看。

yhs185

.Range.Text = Left(ActiveDocument.Sections(i).Range.Text, Len(ActiveDocument.Sections(i).Range.Text) - 2)
.Range.Text = replace( .Range.Text ,chr(12),"")

413191246se

* 魏老师：我又尝试了好久，不知道能不能达到你的要求了。如果未达到，你也可以借鉴一下。
* 请注意：按 Alt + F9 可以反复切换域代码的显示/不显示。
* 每节不同页眉页脚.rar (3.46 KB, 下载次数: 43)

2019-1-2 02:10 上传

点击文件名下载附件

jiangxiaoyun

Sub qq()
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oSec As Section
    With oDoc
        '先遍历所有的节对象
        For i = 1 To .Sections.Count
            With .Sections(i)
                If i Mod 2 <> 0 Then
                    sr = Left(.Range.Text, Len(.Range.Text) - 2)
                    .Headers(wdHeaderFooterPrimary).LinkToPrevious = False
                    .Headers(wdHeaderFooterPrimary).Range.Text = sr
                    .Footers(wdHeaderFooterPrimary).LinkToPrevious = False
                    .Footers(wdHeaderFooterPrimary).Range.Text = sr & "第1页"
                Else
                    .Footers(wdHeaderFooterPrimary).LinkToPrevious = False
                    .Footers(wdHeaderFooterPrimary).Range.Text = sr & "第2页"
                End If
            End With
        Next
    End With
End Sub

jiangxiaoyun

1. Sub qq()
   
2.     Dim oDoc As Document
   
3.     Set oDoc = Word.ActiveDocument
   
4.     Dim oSec As Section
   
5.     With oDoc
   
6.         '先遍历所有的节对象
   
7.         For i = 1 To .Sections.Count
   
8.             With .Sections(i)
   
9.                 If i Mod 2 <> 0 Then
   
10.                     sr = Left(.Range.Text, Len(.Range.Text) - 2)
    
11.                     .Headers(wdHeaderFooterPrimary).LinkToPrevious = False
    
12.                     .Headers(wdHeaderFooterPrimary).Range.Text = sr
    
13.                     .Footers(wdHeaderFooterPrimary).LinkToPrevious = False
    
14.                     .Footers(wdHeaderFooterPrimary).Range.Text = sr & "第1页"
    
15.                 Else
    
16.                     .Footers(wdHeaderFooterPrimary).LinkToPrevious = False
    
17.                     .Footers(wdHeaderFooterPrimary).Range.Text = sr & "第2页"
    
18.                 End If
    
19.             End With
    
20.         Next
    
21.     End With
    
22. End Sub

复制代码

weiyingde

yhs185 发表于 2019-1-1 22:41
.Range.Text = Left(ActiveDocument.Sections(i).Range.Text, Len(ActiveDocument.Sections(i).Range.Text ...

这个页眉中的分节符哪儿来的？

weiyingde

413191246se 发表于 2019-1-2 02:10
* 魏老师：我又尝试了好久，不知道能不能达到你的要求了。如果未达到，你也可以借鉴一下。
* 请注意：按 A ...

谢谢你，再次麻烦你了。

weiyingde

jiangxiaoyun 发表于 2019-1-2 10:07

谢谢你，还有两个问题困惑着我：
1、页眉和页脚中不该出现分页符，这些分页符从何而来？
2、页数显然不能硬性确定为“第一页”、“第二页”，因为可能还有“第三页”、“第四页”……能否使用“域”自动生成呢？
望大侠再次赐教。

413191246se

魏老师：页码用域来生成，我的代码中就是如此啊，我请 魏老师 用 F8 键逐一调试我的代码，用我的示例 demo。

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