Visual Basic

shy boi wrote:

I found this it really helped

Imports Word = Microsoft.Office.Interop.Word   
 
Public Class Form1   
  
    ' Find / Replace in Word Document   
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click   
        Dim objWordApp As New Word.Application   
        objWordApp.Visible = True  
  
        'Open an existing document.
'"C:\Trydata\1.doc" is where the document is located  
        Dim objDoc As Word.Document = objWordApp.Documents.Open("C:\Trydata\1.doc")   
        objDoc = objWordApp.ActiveDocument   
  
        'Find and replace some text   
        'Replace 'VB' with 'Visual Basic'   
        objDoc.Content.Find.Execute(FindText:="VB", ReplaceWith:="Visual Basic Express", Replace:=Word.WdReplace.wdReplaceAll)   
        While objDoc.Content.Find.Execute(FindText:="  ", Wrap:=Word.WdFindWrap.wdFindContinue)   
            objDoc.Content.Find.Execute(FindText:="  ", ReplaceWith:=" ", Replace:=Word.WdReplace.wdReplaceAll, Wrap:=Word.WdFindWrap.wdFindContinue)   
        End While  
  
        'Save and close the document   
        objDoc.Save()   
        objDoc.Close()   
        objDoc = Nothing  
        objWordApp.Quit()   
        objWordApp = Nothing  
  
    End Sub  
End Class