录制宏页码

xlpfd

在录制宏页码时，如何修改页码的字号（默认是小五号，现在要改为小四号）？ （为什么我在修改小四号时，运行宏时却不会保存？）

konggs

我这里可以。你再看看！

守柔

把宏贴上来,我给你看一下.

xlpfd

Sub 页码() ' ' 页码 Macro ' 宏在 2005年7月3日 由 scl 录制 ' With Selection.Sections(1).Headers(1).PageNumbers .NumberStyle = wdPageNumberStyleArabic .HeadingLevelForChapter = 0 .IncludeChapterNumber = False .ChapterPageSeparator = wdSeparatorHyphen .RestartNumberingAtSection = True .StartingNumber = 1 End With Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _ wdAlignPageNumberCenter, FirstPage:=True 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 If Selection.HeaderFooter.IsHeader = True Then ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Else ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader End If Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend If Selection.HeaderFooter.IsHeader = True Then ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Else ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader End If If Selection.HeaderFooter.IsHeader = True Then ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Else ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader End If Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub

守柔

你是不是想把页眉中的页码字体改一下,改为小四号.

在你录制的宏中,没有发现记录了你的修改字号的代码.

你发一个附件,把你要的结果做上去,这个宏,孔兄在吗?10代码以内就可以搞定了,请孔兄试试吧

konggs

假设楼主是想输入“第x页，共y页”。

sub a ()

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader NormalTemplate.AutoTextEntries("第 X 页 共 Y 页").Insert Where:=Selection. _ Range, RichText:=True Selection.HomeKey Unit:=wdLine, Extend:=wdExtend Selection.Font.Size = 12 ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

end sub

此宏在录制的基础上删了不要的部分。

守柔

楼主的要求是修改页眉中的字体,请参:

Sub Example() ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Font.Size = 12 End Sub

konggs

审题错误，加帮助看得少了。所以[em04][em04]

[此贴子已经被作者于2005-7-3 19:17:14编辑过]