Về việc mở file word bằng VBA

[taint4]

Chào các bạn!
Mình đang tập tành viết các code VBA để phục vụ trong công việc chuyên môn. Hiện tại mình đang bị vướng mắt ở code mở file word (có chứa link mailmerge). Khi mình chạy code, file word theo yêu cầu mở nhưng link mailmerge của mình lại mất, mình phải tự nhập đường dẫn mailmerge lại từ đầu, mặc dù nếu mình mở theo cách truyền thong thì bị mất link mailmerge.
Code mình như sau:
"Dim wd As Object
Dim wdocSource As Object
Dim strWorkbookName As String
On Error Resume Next
Set wd = GetObject(, "Word.Application")
If wd Is Nothing Then
Set wd = CreateObject("Word.Application")
End If
On Error GoTo 0
Set wdocSource = wd.Documents.Open("d:\user\TAI\Doanh nghiep\FILE NGUON GIAI NGAN\KHDN\VAY VON\" & Reg1.Value & ".docm")
strWorkbookName = ThisWorkbook.Path & "\" & ThisWorkbook.Name
wdocSource.MailMerge.MainDocumentType = wdFormLetters"