編寫 Excel VBA 將文字從一個 Word 文件複製到另一個 Word 文件 - 不保留頁尾格式

Question

請幫我解決這個問題。我已成功將一個Word文件的內容複製到另一個Word文件。但是貼上內容後頁腳格式發生了變化。下面是我的程式碼。

Sub CopyFile_Blank()
Dim Word As New Word.Application
Dim WordDoc As New Word.Document
Dim WordDoc1 As New Word.Document
Dim dialogBox As FileDialog
Set dialogBox = Application.FileDialog(msoFileDialogOpen)

'Set the display properties - these are optional
'All the settings must be applied before the .Show command

'Do not allow multiple files to be selected
dialogBox.AllowMultiSelect = False

'Set the title of of the DialogBox
dialogBox.Title = "Select a file"

'Show the dialog box and output full file path and file name
If dialogBox.Show = -1 Then
   MsgBox "You selected: " & dialogBox.SelectedItems(1)
End If
    Dest_File = "C:\test\test.docx"
    Doc_Path = Dest_File

Set WordDoc1 = Word.Documents.Open(dialogBox.SelectedItems(1), ReadOnly:=True)
WordDoc1.Range.Copy

Set WordDoc = Word.Documents.Open(Doc_Path, ReadOnly:=True)
WordDoc.Range.PasteAndFormat wdFormatOriginalFormatting

WordDoc.ActiveWindow.Visible = True

WordDoc1.Close
End Sub