I need to generate a word document with some syntax inside it. It find and replace for the whole document except for the footer. Please help me. Thanks in advanced!
Public Sub WordDocumentReminder4(fileName As Object, NewFileName As Object)
Dim missing As Object = System.Reflection.Missing.Value
Dim wordApp As Microsoft.Office.Interop.Word.Application = New Microsoft.Office.Interop.Word.Application
Dim aDoc As Microsoft.Office.Interop.Word.Document = Nothing
Try
aDoc = wordApp.Documents.Open(fileName, missing, missing, missing, missing, missing, _
missing, missing, missing, missing, missing, missing, _
missing, missing, missing, missing)
Dim Dtable4 As New DataTable
Dtable4 = ObjDBConn.GetDataTable("Exec Aduan.ReminderLetter3DataGET " & _
"'" & txtcomplaintid.Text.ToString & "','" & txtexplanationid.Text.ToString & "'")
aDoc.Activate()
If Dtable4.Rows.Count > 0 Then
Me.FindAndReplace(wordApp, "<<OurRefNo>>", Dtable4.Rows(0).Item("OurRefNo").ToString)
Me.FindAndReplace(wordApp, "<<LetterIssueDate>>", Dtable4.Rows(0).Item("LetterIssueDate").ToString)
Me.FindAndReplace(wordApp, "<<TO>>", Dtable4.Rows(0).Item("TO").ToString)
Me.FindAndReplace(wordApp, "<<AlamatTO>>", Dtable4.Rows(0).Item("AlamatTO").ToString)
Me.FindAndReplace(wordApp, "<<StateTO>>", Dtable4.Rows(0).Item("StateTO").ToString)
Me.FindAndReplace(wordApp, "<<ComplaintNo>>", Dtable4.Rows(0).Item("ComplaintNo").ToString)
Me.FindAndReplace(wordApp, "<<ReminderSubj3>>", Dtable4.Rows(0).Item("ReminderSubject3").ToString)
Me.FindAndReplace(wordApp, "<<ReminderRefNo3>>", Dtable4.Rows(0).Item("ReminderRefNo3").ToString)
Me.FindAndReplace(wordApp, "<<ReminderDate3>>", Dtable4.Rows(0).Item("ReminderDate3").ToString)
Me.FindAndReplace(wordApp, "<<CmpnrName>>", Dtable4.Rows(0).Item("ComplainantName").ToString)
Me.FindAndReplace(wordApp, "<<FooterDate>>", Dtable4.Rows(0).Item("ReminderDate3").ToString)
aDoc.SaveAs(NewFileName, missing, missing, missing, missing, missing, _
missing, missing, missing, missing, missing, missing, _
missing, missing, missing, missing)
End If
aDoc.Close(missing, missing, missing)
wordApp.Quit(Type.Missing, Type.Missing, Type.Missing)
Catch ex As Exception
aDoc.Close(missing, missing, missing)
wordApp.Quit(Type.Missing, Type.Missing, Type.Missing)
End Try
End Sub
Private Sub FindAndReplace(WordApp As Microsoft.Office.Interop.Word.Application, findText As Object, replaceWithText As Object)
Dim matchCase As Object = True
Dim matchWholeWord As Object = True
Dim matchWildCards As Object = False
Dim matchSoundsLike As Object = False
Dim nmatchAllWordForms As Object = False
Dim forward As Object = True
Dim format As Object = False
Dim matchKashida As Object = False
Dim matchDiacritics As Object = False
Dim matchAlefHamza As Object = False
Dim matchControl As Object = False
Dim read_only As Object = False
Dim visible As Object = True
Dim replace As Object = 2
Dim wrap As Object = 1
WordApp.Selection.Find.Execute(findText, matchCase, matchWholeWord, matchWildCards, matchSoundsLike, nmatchAllWordForms, _
forward, wrap, format, replaceWithText, replace, matchKashida, _
matchDiacritics, matchAlefHamza, matchControl)
End Sub