Color table cell based on string

[gmaxey]

"Some text" and "Some color" is not very specific:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Range
Dim oTbl As Table
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = "some text"
    While .Execute
      Set oTbl = Nothing
      On Error Resume Next
      Set oTbl = oRng.Tables(1)
      If Not oTbl Is Nothing Then
        oRng.Cells(1).Shading.BackgroundPatternColor = wdColorBrightGreen
        oRng.Collapse wdCollapseEnd
      End If
    Wend
  End With
lbl_Exit:
  Exit Sub