Search in first column in table

[auditio]

I have many table in a document. I want to search input data (stored in variable with input box) in first column of all the table and paste a variable data (stored in variable with input box) in the third column after text in the same row. I want to do the search & input data for multiple text one after another as many as.


My trying code

Dim FirstName As String
FirstName = InputBox("Type text", "")
Dim LastName As String
LastName = InputBox("Search BD No", "")
Selection.Find.ClearFormatting
With Selection.Find
.Text = LastName
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False


.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.MoveRight Unit:=wdCell
Selection.MoveRight Unit:=wdCell
Selection.MoveRight Unit:=wdCell
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=FirstName
End Sub

[gmayor]

Based on your code example, with the cursor in the table run the following macro.
It was not clear whether there was already a value in column 3. The macro writes the FirstName value after any text in the cell with a space between.

Sub ReplaceInTable()
Dim FirstName As String
Dim LastName As String
Dim oRng As Range
Dim oCell As Range
Dim oTable As Table
Dim oRow As Row
Dim bText As Boolean
Dim i As Long
    Set oTable = Selection.Tables(1)
    FirstName = InputBox("Type text", "")
    LastName = InputBox("Search BD No", "")
    For i = 1 To oTable.Rows.Count
        bText = False
        Set oRow = oTable.Rows(i)
        Set oRng = oRow.Cells(1).Range
        If InStr(1, oRng.Text, LastName) > 0 Then
            Set oCell = oRow.Cells(3).Range
            oCell.End = oCell.End - 1
            If Len(oCell) > 0 Then bText = True
            oCell.Collapse 0
            If bText = True Then
                oCell.Text = Chr(32) & FirstName
            Else
                oCell.Text = FirstName
            End If
        End If
    Next i
lbl_Exit:
    Set oTable = Nothing
    Set oRow = Nothing
    Set oCell = Nothing
    Set oRng = Nothing
    Exit Sub
End Sub

[auditio]

Thanks Gmayor, I want to search in all the table in the document. and search one after another.

[auditio]

I want to search in all the tables
Multiple search (search input stored in a array).

Want to msgbox like,

With Selection If .Information(wdWithInTable) = False Then MsgBox "The cursor must be within a table cell.", , "Cursor outside table" Exit Sub

Trial code for two input search

Dim oText As String
Dim oSrch As String
Dim oRng As Range
Dim oCell As Range
Dim oTable As Table
Dim oRow As Row
Dim bText As Boolean
Dim i As Long
Set oTable = Selection.Tables(1)
oText = InputBox(Prompt:="Enter the text", _
Title:="* Search Box *", _
Default:="")
oSrch = InputBox(Prompt:="Enter BD No", _
Title:="* Search Box *", _
Default:="")
For i = 1 To oTable.Rows.Count
bText = False
Set oRow = oTable.Rows(i)
Set oRng = oRow.Cells(1).Range
If InStr(1, oRng.Text, oSrch) > 0 Then
Set oCell = oRow.Cells(4).Range
oCell.End = oCell.End - 1
If Len(oCell) > 0 Then bText = True
oCell.Collapse 0
If bText = True Then
oCell.Text = Chr(32) & oText
Else
oCell.Text = oText
End If
End If
Next i

oSrch = InputBox(Prompt:="Enter 2nd BD No", _
Title:="* Search Box *", _
Default:="")
For i = 1 To oTable.Rows.Count
bText = False
Set oRow = oTable.Rows(i)
Set oRng = oRow.Cells(1).Range
If InStr(1, oRng.Text, oSrch) > 0 Then
Set oCell = oRow.Cells(4).Range
oCell.End = oCell.End - 1
If Len(oCell) > 0 Then bText = True
oCell.Collapse 0
If bText = True Then
oCell.Text = Chr(32) & oText
Else
oCell.Text = oText
End If
End If
Next i
lbl_Exit:
Set oTable = Nothing
Set oRow = Nothing
Set oCell = Nothing
Set oRng = Nothing
Exit Sub
End Sub