کد کپی فایل ورد به فایل ورد دیگر

[narese]

سلام دوستان
کدی میخواستم که بتوان از طریق اکسس محتویات یک فایل ورد را به یک فایل ورد دیگر کپی کرد.به طوری که محتویات فایل ورد شماره 1 به فایل ورد شماره 2 اضافه شود.
فرض کنید در فایل ورد شماره 1 دیتای زیر را داریم :
3
4

و در فایل ورد شماره 2 دیتای زیر را داریم :
1
2

پس از اجرای کد اطلاعات فایل ورد شماره 2 بشود :
1
2
3
4

[narese]

یک راهکار پیدا کردم ،فقط یک مشکل دارد اینکه محتویات قبلی فایل ورد شماره 2 حذف میشوند و فقط اطلاعات فایل ورد شماره 1 روی فایل ورد شماره 2 باقی میماند.دوستان راهکاری دارند که اطلاعات فایل شماره 2 حذف نشود و فقط اطلاعات فایل 1 به آن اضافه شوند؟


Private Sub Command42_Click()
Set w = CreateObject("Word.Application")
Set oWD = w.Documents.Open("C:\1.docx")
oWD.Content.Copy
oWD.Close
w.Quit


Set w = CreateObject("Word.Application")
Set oWD = w.Documents.Open("C:\2.docx")
oWD.Content.paste
oWD.Close
w.Quit
End Sub