vuthaiha90 > 24-10-17, 12:11 PM
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim i As Long
Dim oApp As Object
Dim Doc As Object
Dim strDocName As String
Dim tblNoInDoc As Byte
Dim oWordTbl As Object
If Me.ComboLoaivay.Value = "Cho vay Kinh doanh" Then
temp = """"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
strDocName = """" & CurrentProject.Path & "\Word\TC\KD\NH" & "\07_Hop dong CV NH_tung lan ca nhan KD OK.doc" & """"
Set Doc = oApp.Documents.Add(strDocName)
Doc.FormFields("SoHDTDTC").Result = DLookup("SoHDTC", "T_infovayTC")
......
oApp.ActiveDocument.SaveAs Filename:="""" & CurrentProject.Path & "\Preview\TC" & "\" & "HDCV-KD" & "_" & DLookup("Nguoidaidien", "T_KH2") & "_" & Me.HDTDngayTCchu & ".doc" & """"
oApp.ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:="123456" '
Set oApp = Nothing
Else
....
End If
End Sub