Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.
Dim tbl As Table Dim rw As Row Dim cl As Cell Dim c As Integer Dim iStartCol As Integer Dim StartDate, EndDate, MyDate As Date StartDate = CDate(ActiveDocument.CustomDocumentProperties.Item("xBeginDate")) EndDate = CDate(ActiveDocument.CustomDocumentProperties.Item("xEndDate")) iStartCol = 1 Set tbl = ActiveDocument.Tables(1) 'Add rows for each day from StartDate to EndDate Do While StartDate <= EndDate 'if date is a weekend then do nothing If IsWeekend(StartDate) = True Then Else Set rw = tbl.Rows.Add c = iStartCol rw.Cells(c).Range.Text = Format(StartDate, "dddd, d mmmm") End If StartDate = StartDate + 1 Loop End Sub Public Function IsWeekend(InputDate As Date) As Boolean Select Case Weekday(InputDate) Case vbSaturday, vbSunday IsWeekend = True Case Else IsWeekend = False End Select End Function
|How can i reset all images size to default in a word file||6||48|
|How do I force new pages for each chapter in a MS Word "directory" merge?||8||31|
|VBS file using code from 2nd file (txt or vbs)||4||25|
|vb6, excel Run-time error 1004 method 'close' of object 'workbooks' failed||7||33|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
22 Experts available now in Live!