You may have to tweak this:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 9/18/2018
Dim arrWords() As String
Dim oRow As Row
Dim oRng As Range
Dim bClip As Boolean
For Each oRow In ActiveDocument.Tables(1).Rows
If oRow.Cells.Count = 4 Then
bClip = False
arrWords = Split(oRow.Cells(2).Range.Text, " ")
If Len(arrWords(0)) < 6 Then
If Left(arrWords(0), 1) = "(" Then bClip = True
If Right(arrWords(0), 1) = ")" Then bClip = True
If Right(arrWords(0), 1) = "." Then bClip = True
If arrWords(0) = "Note:" Then bClip = True
If bClip Then
Set oRng = oRow.Cells(1).Range
oRng.Collapse wdCollapseEnd
oRng.Move wdCharacter, -1
oRng.Text = " " & arrWords(0)
oRng.Font.Bold = False
Set oRng = oRow.Cells(2).Range
oRng.Collapse wdCollapseStart
oRng.MoveEnd wdCharacter, Len(arrWords(0)) + 1
oRng.Delete
End If
End If
End If
Next
lbl_Exit:
Exit Sub
End Sub