vba - 使用 VBA 复制页眉和页脚以及部分文本

Question

我有一个合并字母文档，我需要将其拆分为单个字母。

以下代码完全正确但它没有复制每个单独页面的页眉和页脚。我怎样才能使它与第一部分一起复制页眉和页脚。

现在它正在使用oDoc.Sections.First.Range.Cutline 来复制该部分。

代码：

Sub Splitter_Updated()

' Based on a Macro created 16-08-98 by Doug Robbins to save each letter created by a
' mailmerge as a separate file.

Dim Letters As Long
Dim Counter As Long

Dim Mask As String
Dim DocName As String

Dim oDoc As Document
Dim oNewDoc As Document

Set oDoc = ActiveDocument
oDoc.Save

Selection.EndKey Unit:=wdStory
Letters = Selection.Information(wdActiveEndSectionNumber)

Selection.HomeKey Unit:=wdStory
Counter = 1
While Counter < Letters

DocName = Format(Date, "ddMMyy") _
& "-" & LTrim$(Str$(Counter)) & ".docx"
Debug.Print oDoc.Sections.Count
Debug.Print oDoc.Sections.First.Headers(wdHeaderFooterFirstPage).Range.Text
oDoc.Sections.First.Range.Cut
Set oNewDoc = Documents.Add

'Documents are based on the Normal template
'To use an alternative template follow the link.

With Selection
    .Paste
    .EndKey Unit:=wdStory
    .MoveLeft Unit:=wdCharacter, Count:=1
    .Delete Unit:=wdCharacter, Count:=1
End With

oNewDoc.SaveAs FileName:=oDoc.Path & Application.PathSeparator & DocName, AddToRecentFiles:=False
'FileFormat:=wdFormatDocument,

ActiveWindow.Close
Counter = Counter + 1
Wend
oDoc.Close wdDoNotSaveChanges
End Sub