Hi All,

I have written the following code below which worked fine with Word 2003,
but fails with Word 2007.  Can anybody shed any light on it for me?

Dim wdApp As New Microsoft.Office.Interop.Word.Application
Dim objDoc As Microsoft.Office.Interop.Word.Document =
wdApp.Documents.Open(FileName:=FileToOpen.ToString)
Dim RS As ADODB.Recordset
Dim VarSQLGetDetails As String

RS = New ADODB.Recordset
'Make this application visible
wdApp.Visible = True
wdApp.Selection.Find.ClearFormatting()

With wdApp.Selection.Find
.Text = "<<MATTERNUMBER>>"
.Replacement.Text = Main.txbldmainmatternumber.Text
.MatchCase = False
End With

wdApp.Selection.Find.Execute(Replace:=Microsoft.Office.Interop.Word.WdReplace.wdReplaceAll)

With wdApp.Selection.Find
.Text = "<<PARALEGALLOGON>>"
.Replacement.Text = Main.cboldmainparalegal.Text
.MatchCase = False
End With

It always comes to a halt at the line .text="<<MATTERNUMBER>>".

Thanks.

Aaron.