한 Word 문서에서 다른 Word 문서로 텍스트를 복사하기 위해 Excel VBA를 작성했습니다. 바닥글 서식이 유지되지 않습니다.

Question

문제에 대해 도와주세요. 한 워드 문서의 내용을 다른 워드 문서로 성공적으로 복사했습니다. 하지만 내용을 붙여넣으면 바닥글 형식이 변경됩니다. 아래는 내 코드입니다.

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