doc = ThisDoc.Document Dim oName As String Dim oTex As String Dim dtDate As Date dtDate = Now.ToString("dd/MM/yy") 'oDrawnBy = "DTS" ' drawn by oCheckerName = "DC" ' checker name oApprovedName = "JC" 'Approved by oStatus1 = "FOR CONSTRUCTION" oStatus2 = "PRELIMINARY" oRevDescription = "ISSUED FOR CONSTRUCTION" 'iProperties.Value("Summary", "Author") = oDrawnby iProperties.Value("Custom", "DATE") = dtDate iProperties.Value("Summary", "Comments") = oRevDescription ' '**************************************************************** ' iProperties.Value("Project", "Revision Number") = "0" iProperties.Value("Project", "Creation Date") = DateTime.Now.ToString() '*********************************************************** iProperties.Value("Status", "Status") = oStatus1 iProperties.Value("Status", "Checked By") = ocheckerName iProperties.Value("Status", "Checked Date") = DateTime.Now.ToString() iProperties.Value("Status", "Eng. Approved By") = oApprovedName iProperties.Value("Status", "Eng. Approved Date") = DateTime.Now.ToString() iProperties.Value("Status", "MFG. Approved By") = oApprovedname iProperties.Value("Status", "MFG. Approved Date") = DateTime.Now.ToString() '************************************************************ iProperties.Value("Custom", "R1REV") = "0" iProperties.Value("Custom", "DATE") = dtDate 'iProperties.Value("Custom", "R3REV") = oString 'iProperties.Value("Custom", "R4REV") = oString 'iProperties.Value("Custom", "R5REV") = oString 'iProperties.Value("Custom", "R6REV") = oString 'iProperties.Value("Custom", "R7REV") = oString 'iProperties.Value("Custom", "R8REV") = oString 'iProperties.Value("Custom", "R9REV") = oString '-------------------------------------------------- iProperties.Value("Custom", "DATE") = dtDate '---------------------------------------------- iProperties.Value("Custom", "R1DESCRIPTION") = oRevDescription iProperties.Value("Summary", "Comments") = oRevDescription '--------------------------------- 'iProperties.Value("Custom", "R1BY") = oDrawnBy '============================================ iProperties.Value("Custom", "R1CHECKED") = oCheckerName '-------------------------------- iProperties.Value("Custom", "R1APPROVED") = oApprovedName iLogicVb.UpdateWhenDone = True