Microsoft Office Forums - View Single Post - [Solved] Define range within word table between specific text instance and end of cell content

Guessed · 03-09-2022, 04:58 PM

Try this code

Code:

Sub TableSplitter()
  Dim aTbl As Table, i As Integer, sVal As String, sValPrev As String
  
  Set aTbl = Selection.Tables(1)
  For i = aTbl.Rows.Count To 3 Step -1
    On Error Resume Next
      sVal = Split(aTbl.Rows(i).Cells(1).Range.Text, ".")(1)
      sValPrev = Split(aTbl.Rows(i - 1).Cells(1).Range.Text, ".")(1)
    On Error GoTo 0
    Debug.Print "Row:" & i, sVal, sValPrev
    If sVal = sValPrev Then
      GoTo Jumper
    Else
      aTbl.Split i
    End If
Jumper:
  Next i
End Sub