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 · 03-20-2021, 03:07 AM

You could edit the code in post #2, changing:

Code:

        .Text = "Revision No."

to:

Code:

        .MatchWildcards = True
        .Text = "[PR][eu][bv][ils]{3}[ehno]{2}[ Ndo]{1,3}"

and changing:

Code:

        If .Information(wdWithInTable) = True Then .Cells(1).Next.Range.Text = "6"

to something like:

Code:

        If .Information(wdWithInTable) = True Then
          Select Case .Text
            Case "Revision No."
              .Cells(1).Next.Range.Text = "6"
            Case "Published "
              If .Cells(1).ColumnIndex = 1 Then
                .Cells(1).Next.Range.Text = Format(Now, "DDD, D MMM YYYY")
              End If
          End Select
        End If

Since you don't say how the new date is to be determined, I've used 'Format(Now, "DDD, D MMM YYYY")' to insert today's date.