Mailmerge Search & Replace

HI,
I am using the macro to mailmerge data from Excel to word. When merge is done I am finding it difficult to find a specific word and replace it with other word. Below is the code i am using. Fins and replace string is not working in this code.

Please can any one help me on this one.

Function MMGA()
With Session
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
With objWord
Set objMMMD = objWord.Documents.Open("c:\Doc trial2.doc ")
objMMMD.Activate
objMMMD.MailMerge.OpenDataSource _
name:="C:\ABC.xls", _
SQLStatement:="SELECT * FROM [Sheet3$]"
With objMMMD.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultFirstRecord
End With
.Execute

With .Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "Ind"
    .Replacement.Text = "India"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = bWild
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
End With

End With
End With
objMMMD.Close SaveChanges:=wdDoNotSaveChanges
Set objMMMD = Nothing
If bCreatedWordInstance Then
objWord.Quit
End If
Set objWord = Nothing
' open excel and delete data
 Set Xl = GetObject("C:\ABC.xls")
    Xl.Application.Visible = True
    Xl.Parent.Windows(1).Visible = True
    Xl.activesheet.Unprotect "abc12345"
    Xl.activesheet.Cells.Clear
    Xl.activesheet.Protect "abc12345"
    Xl.Application.Workbooks("ABC.xls").save
    Xl.Application.Visible = True
    Xl.Parent.Windows(1).Visible = True
    Xl.Application.Workbooks("lpm.xls").Close

End With
End Function

Sub snb()
   with GetObject("c:\Doc trial2.doc")
      with .MailMerge
        .OpenDataSource "C:\ABC.xls",SQLStatement:="SELECT * FROM [Sheet3]"
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
           .FirstRecord = wdDefaultFirstRecord
           .LastRecord = wdDefaultFirstRecord
        End With
        .Execute
     end with       
     with .application.activedocument
        .content.find.execute " Ind", , , , , , , , , " India", 2
        .saveas "C:\test.doc"
        .close 0
     end with
     .Close
  End With
End Sub

Hello Pooh,

The reason for the code not working is simple. You can not use predefined object constants when using Late Binding. You will need to replace all the Word constants with their actual values.