word怎样使得每节页眉显示有相同的也有不同的内容

ak47wak

如图所示，黑色的内容每节都不同，但是红色的内容需要整个Word都相同。
但是由于每节有多页，怎样做才能使得页眉自动更新添加！
哪位大虾可以解决啊！

ming0018

我可以。我可以。我可以。

ak47wak

ming0018 发表于 2018-7-31 11:51
我可以。我可以。我可以。

求指教！求指教！求指教！

ming0018

ak47wak 发表于 2018-7-31 14:13
求指教！求指教！求指教！

手动可以做，代码也可以做。思路就是每节都加一个页眉，然后与前一节的页眉断开，这个就可以做到不同的节，有着不同的页眉。

ak47wak

ming0018 发表于 2018-7-31 15:13
手动可以做，代码也可以做。思路就是每节都加一个页眉，然后与前一节的页眉断开，这个就可以做到不同的节 ...

黑色字体那一部分就是断开了页眉做出来的。但是 又想  红色字体的那一部分 每一页都相同  这样就弄不好

ming0018

ak47wak 发表于 2018-7-31 15:34
黑色字体那一部分就是断开了页眉做出来的。但是 又想  红色字体的那一部分 每一页都相同  这样就弄不好

断开后　只改黑色字体那一部分，　红色字体不改　就不变啊。

ak47wak

ming0018 发表于 2018-7-31 16:01
断开后　只改黑色字体那一部分，　红色字体不改　就不变啊。

问题是 这个模版每次要修改的是红色字体那一部分，而不是黑色的那部分

ming0018

ak47wak 发表于 2018-7-31 16:16
问题是 这个模版每次要修改的是红色字体那一部分，而不是黑色的那部分

1. Sub 修改各节页眉()
   
2.     Dim doc As Document, Rng As Range, SectionCount%, mySec As Section
   
3.     Set doc = ActiveDocument
   
4.     SectionCount = doc.Sections.Count
   
5.     If SectionCount = 0 Then Exit Sub
   
6.     For Each mySec In doc.Sections
   
7.         Set Rng = mySec.Headers(wdHeaderFooterPrimary).Range
   
8.         Rng.Find.Execute "编号：xxxxx", , , , , , , , , "编号：12345", wdReplaceAll
   
9.     Next
   
10. End Sub

复制代码

根据需求自己写一下就行了

ak47wak

ming0018 发表于 2018-7-31 16:26
根据需求自己写一下就行了

大虾这个咋用啊，能不能上传个弄好的文件啊！拜谢！

ming0018

ak47wak 发表于 2018-7-31 17:26
大虾这个咋用啊，能不能上传个弄好的文件啊！拜谢！

可以的。就是你原来的文件，宏在里面。