WORD中如何用VBA既对页眉、也对正文进行操作呢

tosome

由于日常工作中经常处理各种不同的格式的WORD文档，需要将这些文档这样处理：
1. 在页眉中，对复制好的备注文字进行文字大小、行间距、删除多余空格的统一设置。


2. 在正文中，对正文内容进行更复杂的设置，文字大小、行间距、页边距、将近十几项操作。

两个步骤我都可以通过分别录制两个宏来实现，但是无法将这两部分操作合并到一个宏里。因为，录制宏时，如果激活的是页眉区域，录制宏状态下只能对页眉进行操作，无法对正文进行操作。反之也是，如果激活的是正文，录制宏状态下只能处理正文，而无法对页眉进行操作。

请教各位老师，如何利用VBA语句，在两个区域之间切换，方便我将页眉和正文两部分的操作合成一步呢？谢谢了？

duquancai

写个程序就好了。

tosome

duquancai 发表于 2016-12-18 11:24
写个程序就好了。

duquancai老师能指点我一下吗，谢谢啦

duquancai

tosome 发表于 2016-12-18 22:20
duquancai老师能指点我一下吗，谢谢啦

指点了啊！还要怎么指点？就是写vba代码啊！

tosome

哎，我的问题太初级，老师们实在懒得搭理我，好吧，经过各种尝试。我这个菜鸟总算找出了个代码能用，可以从页眉切换到正文，本着人人为我我为人人的精神，贴出来供大家分享。

正文切换到页眉：

Sub ZW2YM()
    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
End Sub

页眉切换到正文:
Sub YM2ZW()
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

通过录制宏得出的代码，嘿嘿，还需要不断尝试，谢谢duquancai老师的鼓励