Microsoft Office Forums - View Single Post - [Solved] find and replace a number that's always in a table and always adjacent to a cell with known text

macropod · 04-01-2021, 02:42 PM

Quote:

Originally Posted by mbcohn

The number of tables in the document varies, but the changes that I want to make are always to the first table. always to the second column, and the table itself is never more than about five rows tall.

In which case:

Code:

Dim r As Long
  With wdDoc.Tables(1)
    For r = 1 To .Rows.Count
      Select Case Trim(Split(.Cell(r, 1).Range.Text, vbCr)(0))
        Case "Revision No.": .Cell(r, 2).Range.Text = "2.5"
        Case "Published": .Cell(r, 2).Range.Text = "2 April 2021"
      End Select
    Next
  End With