Find Replace text inWord from Vb.net

[Zeljko]

Searching this group i found interesting solutions and couple of problems.
I need to search from VB.net, text in Word and replace that text with replacement text. I need to replace 500+ words!
-VB.net 2005 express
-word 2003
-PIA reference added

Imports Word = Microsoft.Office.Interop.Word
 
Public Function DoFindReplace()
        Dim oWord As New Word.Application
        Dim oDoc As Word.Document
        Dim sFind As String
        Dim sReplace As String
 
        oDoc = oWord.ActiveDocument.Content
        Dim rngRange As Word.Range = ActiveDocument.Range 'Problem: Not Declared
 
        With rngRange.Find
            .ClearFormatting()
            .Replacement.ClearFormatting()
            .Text = sFind
            .Replacement.Text = sReplace
            .Forward = True
            .Wrap = Word.WdFindWrap.wdFindContinue
            .Format = False
            .MatchCase = True
            .MatchWholeWord = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute(Replace:=Word.WdReplace.wdReplaceAll)
        End With
    End Function
 
    Private Sub subsubTran_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles subsubTran.Click
        Dim oWord As New Word.Application
        Dim oDoc As Word.Document
        Dim path As String = Me.TextBox1.Text
        oWord.Visible = False
        oDoc = oWord.Documents.Open(path)
 
        Call DoFindReplace("System", "Computer", ActiveDocument.Range)'Problem: Not Declared
        Call DoFindReplace("test", "tempo", ActiveDocument.Range)'Problem: Not Declared
        Call DoFindReplace("car", "bus", ActiveDocument.Range)'Problem: Not Declared
 
        'etc. etc.
 
        oDoc.SaveAs(path)
        oDoc.Close()
        oDoc = Nothing
        oWord.DisplayAlerts = Word.WdAlertLevel.wdAlertsNone
        oWord.Quit()
        oWord = Nothing
    End Sub

Till now the only problem is "ActiveDocument" not declared, but when I play with it, I gort more errors...

Any help appriciated. And yes, this is my first encounter with VB.net or similar. Sorry for bad english.
Zeljko

[malik641]

Hey Zeljko,

I'm not familiar with VB.net either...but I believe you could just use:

oWord.ActiveDocument.Range

Hope this helps

[Zeljko]

yes, I tried that before. That solves first Error

' old line
' Dim rngRange As Word.Range = ActiveDocument.Range
' new line        
Dim rngRange As Word.Range = oWord.ActiveDocument.Range

But then problem transfers to:

.Text = sFind 'now Null, before ok
.Replacement.Text = sReplace 'now Null, before ok

end like before:

Call DoFindReplace("System", "Computer", ActiveDocument.Range)
Call DoFindReplace("test", "tempo", ActiveDocument.Range)
Call DoFindReplace("car", "bus", ActiveDocument.Range)

I'm working on that almost ten days and still nothing.
More sugestions?

[RobDog888]

I would recommend not using the "Active" property of the WOM as it can produce undesired effects if a user accidentally clicks or activates a different document.

oDoc = oWord.ActiveDocument.Content
'To
oDoc = oWord.Documents("Document1").Content ' Or whatever your document name is


What are the current errors left?

Have you looked at my Office FAQ?
http://vbforums.com/showthread.php?t=358585

How to automate an office app with vb.net

[Zeljko]

"Active" to "Documenth(path). I agree with accidental click. Done.

Problems are still there
1. Dim rngRange As Word.Range = ActiveDocument.Range 'function
---
1. Call DoFindReplace("System", "Computer", ActiveDocument.Range) 'sub
2. Call DoFindReplace("System", "Computer", ActiveDocument.Range) 'sub
3. etc etc

Notice that if I use "oDoc.Range" (instead of ActiveDocument.Range)then error becomes:
.Text = sFind 'error: null value
.Replacement.Text = sReplace 'error: null value

[RobDog888]

#1

Dim rngRange As Word.Range = oWord.Documents("Document1").Range

#2 and #3

Call DoFindReplace("System", "Computer", rngRange) 'sub

[Zeljko]

I'm still having errors like before. Maybe its my bad english and i cant explain it to you very well, but I'l try:
First, thanks all for trying to help me.
Second, as somebody on group sugested i tried with record macro in word (year ago) and that worked with help on google, so here is copy of that macro (with 2 subs: one with calls, one with conditions) that I'm trying to translate to VB.NET:

'[B]VBA Word[/B]
'SUB for all replacement in Document
Sub DoFindReplace(FindText As String, ReplaceText As String)
With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = FindText
    .Replacement.Text = ReplaceText
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = True
    .MatchWholeWord = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
End With
End Sub

'[B]VBA Word[/B]
'SUB with words and calls
Sub Translate_Words()
Application.ScreenUpdating = False
Selection.WholeStory
  Call DoFindReplace("^t^t", "^t")
  Call DoFindReplace("^p^p", "^p")
  Call DoFindReplace("bus", "car")
  'etc...
End Sub

VBA code works perfect in Word!
------
For now I have this 2 subs in VB.NET 2005 express (function with conditions, sub with calls):

'[B]VB.NET[/B]
'FUNCTION for all replacement in Document
Public Function DoFindReplace()
        Dim oWord As New Word.Application
        Dim oDoc As Word.Document
        Dim path As String
        Dim sFind As String
        Dim sReplace As String
 
        oDoc = oWord.Documents(path)
 
        Dim rngRange As Word.Range = oWord.Documents(path).Range
 
        With rngRange.Find
            .ClearFormatting()
            .Replacement.ClearFormatting()
            .Text = sFind
            .Replacement.Text = sReplace
            .Forward = True
            .Wrap = Word.WdFindWrap.wdFindContinue
            .Format = False
            .MatchCase = True
            .MatchWholeWord = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute(Replace:=Word.WdReplace.wdReplaceAll)
        End With
End Function

'[B]VB.NET[/B]
'SUB with words and calls
Private Sub subsubTran_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles subsubTran.Click
        Dim oWord As New Word.Application
        Dim oDoc As Word.Document
        Dim path As String = Me.TextBox1.Text
 
        oWord.Visible = False
        oDoc = oWord.Documents.Open(path)
 
        Call DoFindReplace("System", "Computer", rngRange)
        Call DoFindReplace("test", "tempo", rngRange)
        Call DoFindReplace("car", "bus", rngRange)
        'etc. etc.
 
        oDoc.SaveAs(path)
        oDoc.Close()
        oDoc = Nothing
        oWord.DisplayAlerts = Word.WdAlertLevel.wdAlertsNone
        oWord.Quit()
        oWord = Nothing
End Sub

On My Form I have Text Box "TextBox1" with path to Word document. Button "subsubTran" to open document and run this sub (and call this function).
Opening document and similar worked.

Problems:
In Function:
Null reference on ...oWord.Documents(path) & ...sFind & ...sReplace
In Sub:
Call DoFind...., rngRange) not declared
If I declare rngRange in Sub then I get error in call DoFindReplace("here is error") line:
To many arguments to Public Function DoFindReplace()as object

Anyone?

[Zeljko]

Someone! Anyone! Please, help!

[RobDog888]

Couple of things...

Your creating two instances of the word application when you can do with just one and one instance of the open document.

Your calling your sub and passing parameters but the sub does not have any parameters defined in the subs signature.


Call DoFindReplace("System", "Computer", rngRange)

Public Function DoFindReplace() 'No arguments defined in the parenthesis.

Define rngRange.

You can pass the word application and open document object variables to the DoFindReplace function if you add these two arguments. Then there will be no need to open a second instance of word.