Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub Td_SplitTable_OnNewSet() Dim t As Table Dim r As Long Dim tc As Long Dim a As String Dim b As String Dim c As String Dim cel As Cell If MsgBox("Would you like to split the only table in this current document into several tables each time the macro hits a row where two specific cells are blank?" & vbCrLf & vbCrLf & _ "A blank table cell has two characters, Chr(13) & Chr(7)!", vbQuestion + vbYesNo, "Split Table into several tables") = vbNo Then Exit Sub End If 'Right at the beginning, insert two spaces into blank cells of the only table, necessary for the macro to work 'This is the header row with column headers For Each cel In ActiveDocument.Tables(1).rows(1).Cells If Len(cel.Range.Text) = 2 Then cel.Range.Text = " " Next tc = 1 Set t = ActiveDocument.Tables(1) For r = 1 To t.rows.Count a = Len(t.Cell(r, 3).Range.Text) b = Len(t.Cell(r, 4).Range.Text) 'A blank cell has two characters: Chr(13) & Chr(7) If a = 2 And b = 2 Then 'That is cells in columns 3 and 4 are blank t.Cell(r, 4).Select Selection.InsertBreak Type:=wdPageBreak tc = tc + 1 Set t = ActiveDocument.Tables(tc) r = 2 End If Next r End Sub