Outcome Base Education OBE CLO PLO

>> YOUR LINK HERE: ___ http://youtube.com/watch?v=G5ET16ojGPQ

In this video, i have developed an Excel Program developed in VBA that how to make a combine warning letters (PDF file) of different students failing their CLO, PLO (OBE System) • Where u find bug insert angled bracket. • Following is the VBA Code. • Sub Warningletters() • Dim WApp As New Word.Application • Dim WDoc As Word.Document • ' • WApp.Visible = True • lastrow1 = Sheet1.Range( L Rows.Count).End(xlUp).Row • For CLintNO = 1 To lastrow1 • Sheet1.Range( i2 ) = Sheet1.Range( L CLintNO).Value • Set WDoc = WApp.Documents.Open(ThisWorkbook.Path \\Letter Sample.docx , False) • With WDoc.Content.Find • .Text = #Student Name# • .Replacement.Text = Sheet1.Range( i2 ) • .Execute Replace:=wdReplaceAll • End With • lastrow = Sheet1.Range( H Rows.Count).End(xlUp).Row • Dim Tbl As Word.Table • Dim cell As Word.cell • Set Tbl = WDoc.Tables(1) • For datarow = 4 To lastrow • If datarow lastrow Then Tbl.Rows.Add • For datacol = 1 To 4 'filter data column from H to K • Set cell = Tbl.cell(datarow - 2, datacol) • cell.Range.Text = Sheet1.Cells(datarow, datacol + 7) • Next datacol • Next datarow • 'WDoc.ExportAsFixedFormat ThisWorkbook.Path \\ Sheet1.Range( i2 ) .pdf , wdExportFormatPDF • WDoc.SaveAs2 (ThisWorkbook.Path \\WordFiles\\ Sheet1.Range( i2 ) .docx ) • WDoc.Close • Next CLintNO • WApp.Quit • Set WDoc = Nothing • Set WApp = Nothing • Dim WordApp As Word.Application • Dim Doc As Word.Document • Dim Warningletters As Word.Document • Dim filename As String • Dim a As Integer • Set WordApp = New Word.Application • WordApp.Visible = True • filename = Dir(ThisWorkbook.Path \\WordFiles\\*.docx ) • Set Doc = WordApp.Documents.Add • Doc.SaveAs2 ThisWorkbook.Path \\All Warning Letters.docx • a = 0 • Do While filename • Set Warningletters = WordApp.Documents.Open(ThisWorkbook.Path \\WordFiles\\ filename) • Warningletters.Range.Copy • Doc.Activate • If (a 0) Then • WordApp.Selection.InsertBreak wdPageBreak • End If • WordApp.Selection.Paste • Warningletters.Close savechanges:=False • a = a + 1 • filename = Dir() • Loop • Doc.Save • Doc.ExportAsFixedFormat ThisWorkbook.Path \\All Warning Letters.pdf , wdExportFormatPDF • Doc.Close • WordApp.Quit • Kill ( D:\\Letters\\All Warning Letters.docx ) • End Sub

#############################

New on site