如何为横向页面加入纵向页眉页脚？

刚才接到一个老朋友的求救，觉得这个问题突然现实了起来。

一个近300页的纵横混排文档，其中横向页面占1/3左右。现在的问题是：能不能让整个文档的页眉、页脚均设置在纵向位置上？

“能不能让整个文档的页眉、页脚均设置在纵向位置上？”指页面的左右两侧吧？如果不是，下面就不要看了。

据我所知，直接用页眉页脚XP和以下版本不支持纵向（是否为两侧？），新版本不知道。

所谓页眉，页脚，系指页面上方与下方，“眉”、“脚”顾名思义。

但通过VBA代码以文本框方式插入到页面中还是可以的。（就看老兄感不感兴趣了）

感谢斑竹，希望的是这样的页眉页脚。

你自然知道，文章已经分了很多节，怎样跨过节，实现纵横页面上统一排为示意的页面呢？

NBx0uMII.rar (69.29 KB)

NBx0uMII.rar (69.29 KB)
如何为横向页面加入纵向页眉页脚？
下载次数: 40

2004-10-11 08:50

如果用VBA可以为各种纵横页面插入纵向（如图示）的页眉页脚标记，请给出代码好吗，谢谢。

[此贴子已经被作者于2004-10-11 11:32:54编辑过]

附件

YHcUrTXu.jpg(34.63 KB)

2004-10-11 09:19

谢谢，测试成功。

是需要每页粘贴一下，但格式只需要设定一次。

d0VkHMvL.rar (19.77 KB)

d0VkHMvL.rar (19.77 KB)
如何为横向页面加入纵向页眉页脚？
下载次数: 58

2004-10-11 17:34

请予指导。

错了,应该在页眉中插入文本框,而不是在页面中.

GxWyiKoR.zip (11.57 KB)

GxWyiKoR.zip (11.57 KB)
如何为横向页面加入纵向页眉页脚？
下载次数: 48

2004-10-12 08:49

以下代码供参考:

Sub SetMyHeaders()Dim MyText As Shape, PW As Single, PH As Single, PT As Single, PR As Single, PB As SingleDim i As SectionOn Error Resume NextApplication.ScreenUpdating = FalseFor Each i In Me.SectionsIf i.PageSetup.Orientation = wdOrientLandscape ThenWith i.PageSetupPW = .PageWidthPH = .PageHeightPT = .TopMarginPB = .BottomMarginPR = .RightMarginEnd WithMe.Range(i.Range.Start, i.Range.Start).SelectApplication.Run "ViewHeader"Selection.HeaderFooter.LinkToPrevious = FalseSet MyText = i.Headers(wdHeaderFooterPrimary).Shapes.AddTextbox(msoTextOrientationHorizontal, PW - PR, PT, PR * 2 / 3, PH - PT - PB)With MyText.Line.Visible = msoFalse.TextFrame.TextRange.SelectWith Selection.Font.Name = "华文细黑".Font.Size = 12.Font.Bold = TrueNormalTemplate.AutoTextEntries("第 X 页 共 Y 页").Insert Where:=Selection. _Range, RichText:=True.Orientation = wdTextOrientationVerticalFarEast.ParagraphFormat.Alignment = wdAlignParagraphCenterEnd WithEnd WithEnd IfNextApplication.ScreenUpdating = TrueEnd Sub

请在运行前保存备份.这二天感觉WORD有些怪怪的,说不上来,又没有染毒,就是不对劲.

你试试看,有问题再说.

说实话，代码我根本看不懂，只能给朋友测试了。有什么问题，我再做二传吧。

关于文本框的设置，确实是一语惊醒梦中人。

谢谢版主，还有cxffxc版主。

简单的事为什么要搞复杂了。

其实楼主的要求很简单，插入分节符，进入页眉页脚编辑状态，断开“同前”链接，用文本框输入页眉内容，在本节中页眉想放哪儿都行。

下面是我做的一个简单的例子，供参考。

ewIkZOhi.rar (3.12 KB)
如何为横向页面加入纵向页眉页脚？
下载次数: 94

2004-10-12 10:56

其实,办公之星的意思,我当时理解是,已经成形了,免得一个一个再进行设置.况且,如果每个节中的页面设置都不一样的话,手动就显得过于操劳了.

而代码中执行,可以避免此问题,将文本框的大小自动适应页面设置.

如果用手动,当然不反对,其实正常的操作,应该是手动进行的.

如意的做法，与我的梦想完全吻合了。

但是，对于已经成形的大部头文件，守柔的编程自然有了非常大的便利性。

VBA当然好，它能做出很多好东东，而且在达到很多目的时起到简化手续的作用，但是会VBA的人毕竟是少数，对于大多数不会VBA的朋友们，难道就只能座等VBA高手们的救助了吗，那样VBA高手们也累呀，大家伙等着也心急哦，所以有时虽然麻烦一点，总还是一个方法，学会了至少不用死等别人来帮忙吧，特别是在做赶急的东东时。

不过有时候也真是没办法，非得那个VBA才能搞定的东东，那就只好等VBA大师们有空啦。