从Word文档的第三页起插入页码的方法

easthome

以前对如何在Word里从第三页开始插入页码，一直没有弄清楚今天终于明白了，现将其与大家分享：　

1.光标移到第二页开头，点击“插入-分隔符-分节符类型-下一页-确定”。

2.光标移到第三页开头，重复步骤一。　　

3.光标移到第三页任意位置，点击“插入-页码-格式”，格式中选择“页码编排-起始页码”为1，点击“确定”退出。　　

4.双击第三页页码，出现页眉页脚工具栏，将“链接至前一个”按钮点击成灰色，点击“确定”退出。(目的是使每节页码与前面的页码取消联系，这样就可以删除前面两页的页码)　　

5.将第一、二页的页码删除。完毕。

413191246se

错了！直接将光标放在第3页开始处，插入分节符，下一页，然后断开链接就可以了！

wf320722

学习了{:soso_e179:}

qiudong

了解啦，顶起来

51wen

似乎明白，谢ing~~

dhw1978

二楼，能不能说的详细点，如何断开连接

肖表哥

dhw1978 发表于 2012-2-23 09:16
二楼，能不能说的详细点，如何断开连接

其实各版本的方法略有不同，二楼介绍的是Word 2003版本，要想了解Word 2007请参见：
http://tieba.baidu.com/p/1417021541

司马雨轩的围脖

受教了，谢谢楼主了

413191246se

    想从哪一页重新插入页码，就把光标放在哪一页的文字最前面，然后——插入菜单——分隔符——下一页——然后——视图菜单——页眉和页脚——页眉：点击“断开链接到前一节”按钮——页脚：点击“断开链接到前一节”按钮——关闭“页眉和页脚”按钮——回到正文，页眉和页脚都与前一节断开了链接，每个节可以单独设置页眉和页脚了，OK！
    上面是手动分节的办法，实际上，要是需要这项功能，反复成功录制一个宏就可以了，放到工具栏按钮上即可，没必要每次都要这样折腾。我的通用模板中有“分节”这个宏，它就是上面手动方法的自动化实现。

Sub 分节()
    Selection.InsertBreak Type:=wdSectionBreakNextPage
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter.LinkToPrevious
    If Selection.HeaderFooter.IsHeader = True Then
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Else
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    End If
    Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter.LinkToPrevious
    With Selection.HeaderFooter.PageNumbers
        .NumberStyle = wdPageNumberStyleArabic
        .HeadingLevelForChapter = 0
        .IncludeChapterNumber = False
        .ChapterPageSeparator = wdSeparatorHyphen
        .RestartNumberingAtSection = True
        .StartingNumber = 1
    End With
    Selection.HeaderFooter.PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberRight, FirstPage:=True
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

Sub 切换页眉()
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    If Selection.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone Then
        With Selection.ParagraphFormat
        .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
        .Borders(wdBorderRight).LineStyle = wdLineStyleNone
        .Borders(wdBorderTop).LineStyle = wdLineStyleNone
        .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
        With .Borders
            .DistanceFromTop = 1
            .DistanceFromLeft = 4
            .DistanceFromBottom = 1
            .DistanceFromRight = 4
            .Shadow = True
        End With
    End With
    With Options
        .DefaultBorderLineStyle = wdLineStyleSingle
        .DefaultBorderLineWidth = wdLineWidth050pt
        .DefaultBorderColor = wdColorAutomatic
    End With
    Else
        Selection.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

探鎍锗

谢谢啦~~~~~