[求助]每页显示不同页眉的问题

sunshuai03

我现在想用vba实现往一个word文挡中写入，想每页输入不同的页眉，看到有帖子这样说明：

1）“插入”→“分隔符”命令，打开“分隔符”对话框。 2）选中“分节符类型”选项区域中的“下一页”按钮，然后单击“确定”按钮。 3）打开“页眉和页脚”工具栏，单击“链接到前一个”按钮，取消页眉中出现的“与上一节相同”字样。 4）此时，就可以按照你的需要设置不同的页眉和页脚了。

我想用vba来实现，遇到了如下的问题

1.

currentPageStart = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=currentPage).Start Set breakLineRange = ActiveDocument.Range(currentPageStart, currentPageStart) breakLineRange.Select Selection.InsertBreak Type:=wdSectionBreakNextPage

一插入就分页了，这并不是我想要的

2.ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True 用上面实现下面这个条件有问题吗

3）打开“页眉和页脚”工具栏，单击“链接到前一个”按钮，取消页眉中出现的“与上一节相同”字样。

谢谢大家了，好多的不懂，麻烦大家了

如意

楼主想要什么，我没看懂。

要插入分节符却不想分节？不可能实现

只想取消“与上一节相同”吗？没分节这一项根本不可选。

[em06][em06][em06]

sunshuai03

呵呵，对不起，是我没有说清楚，我是想分节，可是能不能不在新的一页，我一分节就多出来一个空白页，这是我不想要的。那是不是要在每页的结尾处分页

sunshuai03

我是新学的，可能我的想法不是很正确，版主能不能帮忙给我一个不同页面插入不同页眉的vba实现程序，谢谢了

如意

不想分页，那就插入分隔符时选“连续”就行了。

下面是我录的一个宏，你运行一下看是不是你想要的效果。

Sub Macro1() ' ' Macro1 Macro ' 宏在 2005-8-23 由 grace 录制 ' Selection.InsertBreak Type:=wdSectionBreakContinuous Selection.Delete Unit:=wdCharacter, Count:=1 If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader ActiveWindow.ActivePane.View.NextHeaderFooter Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter. _ LinkToPrevious End Sub

sunshuai03

多谢版主，好好研究下。

嫦娥仙子

很好！thank you vrey much!