mở word có mailings bằng code VBA

Chia sẻ bởi:hands

★★★★★

‹ Save file word sang pdf nhanh Mail merge theo kiểu truyền thống của... ›

Quảng cáo

Chào các bạn GPE, mình có đoạn code sau để mở file word mailings và xuất file word mailings đó ra file pdf bằng VBA, nhưng khi áp dụng vào bài của mình thì bị lỗi không mở lên được
Mình không biết sửa thế nào,các bạn xem giúp và sửa giúp mình nhé, làm sao để mở file word mailngs sau đó xuất ra file pdf mailings bằng code VBA !, mình cảm ơn các bạn nhiều ạ !3238
32393240
Private Sub CommandButton1_Click()
Dim word_app As Object, doc As Object, link As Variant
    Set word_app = CreateObject("Word.Application")

With word_app
        .Visible = True
        link = "E:stt.docx"
        Set doc = .documents.Open(link)
    End With
    doc.MailMerge.OpenDataSource Name:="E:Data.xlsm", SQLStatement:="SELECT * FROM `Word$`"

End Sub

Bạn thử code này xem

Private Sub CommandButton1_Click()
  Dim wordApp As Object
  Dim doc As Object
  Dim link As String

Set wordApp = CreateObject("Word.Application")

With wordApp
    .Visible = True
    link = "E:stt.docx"
    Set doc = .Documents.Open(link)
  End With

doc.MailMerge.MainDocumentType = wdFormLetters
  doc.MailMerge.OpenDataSource Name:="E:Data.xlsm", _
    LinkToSource:=True, _
    Connection:="Data Source=E:Data.xlsm;Mode=Read", _
    SQLStatement:="SELECT * FROM `Word$`"

doc.MailMerge.Execute
End Sub