Code sau sẽ xuất dữ liệu từ TextBox trong form Access sang Word Temp. Khỏi dùng mail merge
Option Compare Database
Private Sub Command0_Click()
Dim oApp As Object, doc As Object
Dim strDocName As String
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
strDocName = CurrentProject.Path & "\doc.dot"
Set doc = oApp.Documents.Add(strDocName)
doc.FormFields("domfootwear").Result = Me.Text1
Set oApp = Nothing
End Sub
Private Sub Form_Load()
Text1 = "Noi dung nay se duoc xuat sang Word !!!"
End SubPrivate Sub In_Click()
Dim oApp As Object, doc As Object
Dim strDocName As String
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
strDocName = CurrentProject.Path & "\doc.dot"
Set doc = oApp.Documents.Add(strDocName)
doc.FormFields("T").Result = Me.Hoten
doc.FormFields("DC").Result = Me.DiaChi
doc.FormFields("TC").Result = Me.Tencha
doc.FormFields("TM").Result = Me.Tenme
doc.FormFields("SBD").Result = [Forms]![Table2]![Form2]![sbd1]
doc.FormFields("Diem1").Result = [Forms]![Table2]![Form2]![d1]
doc.FormFields("Diem2").Result = [Forms]![Table2]![Form2]![d2]
doc.FormFields("Diem3").Result = [Forms]![Table2]![Form2]![d3]
doc.FormFields("Diem4").Result = [Forms]![Table2]![Form2]![d4]
doc.PrintOut
' oApp.ActiveDocument.SaveAs FileName:=CurrentProject.Path & "\" & txtTen & ".doc"
oApp.Quit (False)
Set oApp = Nothing
End Sub
