VB code to search and modify text in the first column of multiple tables

[hubs]

Hi,

I have got a Word document with several tables, and in between each table is text.

I need to be able to search the first column of each table, and replace any blank entries in the first column of each table with "Person A", and to replace text in just the first column which has "Me" to "Person B".

Is this possible, any help would be very much appreciated?

[gmaxey]

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oTbl As Word.Table
Dim lngRow As Long
  For Each oTbl In ActiveDocument.Tables
    For lngRow = 1 To oTbl.Rows.Count
      If Len(oTbl.Cell(lngRow, 1).Range.Text) = 2 Then
        oTbl.Cell(lngRow, 1).Range.Text = "Person A"
      End If
      If InStr(UCase(oTbl.Cell(lngRow, 1).Range.Text), "ME") > 0 Then
        oTbl.Cell(lngRow, 1).Range.Text = "Person B"
      End If
    Next
  Next
lbl_Exit:
  Exit Sub
  
End Sub

[hubs]

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oTbl As Word.Table
Dim lngRow As Long
  For Each oTbl In ActiveDocument.Tables
    For lngRow = 1 To oTbl.Rows.Count
      If Len(oTbl.Cell(lngRow, 1).Range.Text) = 2 Then
        oTbl.Cell(lngRow, 1).Range.Text = "Person A"
      End If
      If InStr(UCase(oTbl.Cell(lngRow, 1).Range.Text), "ME") > 0 Then
        oTbl.Cell(lngRow, 1).Range.Text = "Person B"
      End If
    Next
  Next
lbl_Exit:
  Exit Sub
  
End Sub

Greg, many thanks, that worked perfectly, that was hugely appreciated