Ms word 我是否可以在Word中创建不同的部分，不仅具有相同的页眉和页脚，而且页码可以作为一个完整的文档对齐

基本上，我转到“布局”>“页面设置”>“页边距”>“自定义页边距”，然后选择“方向”作为“横向”，然后选择“应用到：”>“此点向前”，这会更改文档其余部分的页面方向，从闪烁光标所在的位置开始，然后我在下一页上使用光标重复此过程，但选择“定向”到“纵向”。这是我在word文档横向中创建特定页面的方式。当这种情况发生时，它会将横向页面划分为“第2节”和“第3节”之后的页面“。问题在于页眉和页脚，每个部分的页眉和页脚都不同。这对于页码来说尤其有问题，因为每个新的部分都是作为自己的东西开始的，并且在该部分的开头说它是第一页

我已经尝试了“页眉和页脚”>“导航部分”>“链接到上一页”的“第2节”到“第1节”，这将不会显示从“第1节”到“第2节”的任何信息。由于某种原因，当我对“Section 3”到“Section 2”执行相同操作时，“Section 3”将显示“Section 2”的信息，但这并不能解决页码问题，因为“Section 3”从第1页开始。因此，我觉得奇怪的是，“链接到上一个”功能如何只在“第3节”上工作，而不是在“第2节”上工作

---

如果有人有任何方法来解决这个问题，我将不胜感激：D，我也将不胜感激任何绕过它的诡计，但我不会把它标记为一个答案。

我将把它作为一个评论添加，但我是新的，不允许评论。 这将是更好的处理在网站上，因为它是关于一般的Word功能，而不是编程

也就是说，当您创建一个新的部分时，可能在您进行方向转换之前，您告诉Word在1处重新开始编号。Word将此作为开始新章节的方式。您可以手动转到每个新部分，并使用“设置页码格式”对话框告诉word从上一部分继续

听起来好像你也有“不同的第一页”的设置。这是一个设置，并将继续进入新的部分。具有多个部分的页眉/页脚设置及其交互变得复杂。总结如下：

您可以从我的网站下载一个插件，该插件将为您执行此操作。它使用宏来执行此操作

Sub ContinuousPageNumbersMacro()
'
' ContinuousPageNumbersMacro Macro
' This macro makes page numbering continuous througout document. This is for multisection documents where it may be hard to find page breaks and figure out page numbering changes.
'
' Jay Freedman
' http://answers.microsoft.com/en-us/office/forum/office_2007-word/page-numbers-are-all-fouled-up-in-my-large/d188687e-9663-43e0-a450-1dbadc47f09f
' Can be used as straight macro or attached to keyboard shortcut
' modified to preserve track changes status - idea from Graham Mayor 25 Oct 2017
'
    Dim secNum As Long
    Dim btnCancel ' give user chance to cancel
    Dim bTrackChanges As Boolean
    Dim strVersion As String
    strVersion = ThisDocument.CustomDocumentProperties("Version").Value
    btnCancel = MsgBox(prompt:="Do you want to reset all of the page numbers in this document to number continuously?", _
        Title:="Continuous Page Numbering Version " & strVersion & "  Are you sure?", _
        Buttons:=vbYesNo)
    If btnCancel = vbNo Then
        MsgBox prompt:="Reset of continuous page numbering cancelled by user!", Buttons:=vbExclamation, Title:="Page Number Reset Cancelled!"
        Exit Sub
    End If
'   Proceed with reset
    bTrackChanges = ActiveDocument.TrackRevisions 'Graham Mayor
    ActiveDocument.TrackRevisions = False ' Graham Mayor
    With ActiveDocument
        For secNum = 2 To .Sections.Count
            .Sections(secNum).Headers(wdHeaderFooterPrimary) _
                 .PageNumbers.RestartNumberingAtSection = False
        Next
    End With
    ActiveDocument.TrackRevisions = bTrackChanges 'Graham Mayor
    MsgBox prompt:="The Continuous Page Numbers macro has run.", Title:="Page number reset macro finished!"
End Sub