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

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.

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com

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

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