关于页眉页脚的操作请大家帮我看看怎么用宏实现，谢谢！

yintao

一个文档中有若干个节，如何知道节的个数以及每一节文档的页面设置是横向还是纵向，另外还想依次调用每一节进行编辑。

举个例子，test.doc文档里面有10个节，而且1-3节为页面为纵向（假设都是A4页面），4-6节为横向，7为纵向，8为横向，9-10为纵向，横向和纵向页眉页脚文字不同。如何才能读取节的个数，然后依次进入每个节进行页眉页脚编辑。

请大家帮我看看怎么用宏实现，谢谢！

守柔

简单地做了一个，请参：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-8-25 11:25:19 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 0003^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example() '文档里面有10个节，而且1-3节为页面为纵向（假设都是A4页面），4-6节为横向，7为纵向，8为横向，9-10为纵向，横向和纵向页眉页脚文字不同。如何才能读取节的个数，然后依次进入每个节进行页眉页脚编辑。 Dim i As Byte With Me.Sections For i = 1 To 10 Select Case i Case 1, 2, 3, 7, 9, 10 .Item(i).Headers(wdHeaderFooterPrimary).LinkToPrevious = False .Item(i).Headers(wdHeaderFooterPrimary).Range.Text = "123465789" .Item(i).PageSetup.Orientation = wdOrientPortrait Case 4, 5, 6, 8 .Item(i).PageSetup.Orientation = wdOrientLandscape .Item(i).Headers(wdHeaderFooterPrimary).LinkToPrevious = False .Item(i).Headers(wdHeaderFooterPrimary).Range.Text = "ABCDEFG" End Select Next End With End Sub '----------------------

yintao

先谢谢！

有问题再请教你。

yintao

对了

一个文档中有若干个节，如何知道节的个数？

谢谢！

守柔

Sub GetSectionsCount() MsgBox ActiveDocument.Sections.Count End Sub

yintao

刚才我是举的例子，我的目的是如何知道任意打开的文档共有多少个节，那几个节是横向，那几个是纵向，然后对各个节依次编辑。

请大家帮我看看这个问题的解决办法，谢谢！！！

yintao

版主再帮我想想，谢谢！

守柔

以下是引用yintao在2005-8-25 15:29:13的发言：

版主再帮我想想，谢谢！

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-8-25 16:22:44 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 0004^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub GetPaperSetup() Dim i As Section, MyString As String For Each i In ActiveDocument.Sections Select Case i.PageSetup.Orientation Case Is = wdOrientLandscape MyString = MyString & "第" & i.Index & "节" & "横向," Case Else MyString = MyString & "第" & i.Index & "节" & "纵向," End Select Next MyString = VBA.Mid(MyString, 1, Len(MyString) - 1) MsgBox MyString End Sub '----------------------

yintao

谢谢！