WORD 从任意页开始设置页码的宏代码

jjip123

各位大神，有没有
WORD 从任意页开始设置页码的宏代码
比如，想从第四页开始设置页码，有个对话框输入4，就可以了
谢谢大神！！

liuhoubin168

这个其实应该不复杂。不管你使用还是没有使用分节符。

liuhoubin168

用代码插入3个域。

{ IF {PAGE} > 1 " { ={PAGE }-1 " ""\* MERGEFORMAT }

那个数量1可以使用变量了。

liuhoubin168

Sub 在指定页开始插入页码()    '连续页
'
' Macro1 Macro
' 宏在 2015.01.07 由 User 录制
'
    p = InputBox("请输入页码起始页")
    p = p - 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
    If Selection.HeaderFooter.IsHeader = True Then
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Else
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    End If
    Selection.WholeStory
    Selection.Delete        '删除以前的页码
   
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
    Selection.TypeText Text:=" if "
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
    Selection.TypeText Text:="Page"
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.TypeText Text:=" > " & p & """"
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
    Selection.TypeText Text:=" = "
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
    Selection.TypeText Text:="page"
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.TypeText Text:="-" & p
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.TypeText Text:=""" """" \* MERGEFORMAT "
   
    ActiveWindow.View.ShowFieldCodes = False
End Sub

tangqingfu

谢谢刘兄的分享！

jjip123

liuhoubin168 发表于 2015-1-7 17:49
Sub 在指定页开始插入页码()    '连续页
'
' Macro1 Macro

大神，运行那代代码后，成这样了

tangqingfu

jjip123 发表于 2015-1-12 15:55
大神，运行那代代码后，成这样了

右击，点”切换域代码“

413191246se

Alt+F9查看域代码

jjip123

liuhoubin168 发表于 2015-1-7 17:49
Sub 在指定页开始插入页码()    '连续页
'
' Macro1 Macro

谢谢大神哈，我每次怎么都只能从第三页开始

Excel2119

wdNormalView 分栏
wdPrintView 分页

？？是这样吗？？