将数据添加到表中

Sub Demo()
Application.ScreenUpdating = False
Dim oTbl As Table, i As Long, r As Long, Rng As Range
For Each oTbl In ActiveDocument.Tables
  With oTbl
    If InStr(.Cell(1, 2).Range.Text, "#CPT") > 0 Then
      Set Rng = .Cell(2, 1).Range
      With Rng
        Rng.Text = "Text to replace contents with"  
      End With
      End With
    Next
    End If
  End With
Next
Set Rng = Nothing
Application.ScreenUpdating = True
End Sub