Replacement Text not being replaced.

[kpearson]

I am using a form in vb that has a print command button. This pulls up a word doc with text from my form's textboxes. It works fine except in this 'if then' instance. I don't understand why it doens't work. When I place a breakpoint in the code and walk through it, I can see with the text tool tip box that my variable has the right text in, but it will not appear on the word document. It is just blank. Can anybody help?

strlotarea = Text1(12).Text 
Set objWdApp = New Word.Application 
Set objWdDoc = objWdApp.Documents.Open(FileName:="\\Taft\gis\test.doc") 
Set objwdRange = objWdDoc.Content 
With objwdRange.Find 
  .Replacement.ClearFormatting 
  .Text = "lotarea" 
  .Replacement.Text = strlotarea        ‘works fine 
   .Execute Replace:=wdReplaceAll 
        If Text1(6).Text = "R6" Then 
        strlotarea = "6,000" 
        objwdRange.Find.Text = "lotarea" 
        objwdRange.Find.Replacement.Text = strlotarea    ‘left blank on doc. 
        objwdRange.Find.Execute Replace:=wdReplaceAll 
        End If

[TheBionicOrange]

Only a guess but do you need some kind of document refresh after doing that ?

[kpearson]

There isn't a refresh event/method for the objwdRange. How else can you write it so that it would refresh?

[cssriraman]

Hi,

With objwdRange.Find 
  .Replacement.ClearFormatting 
  .Text = "lotarea" 
  .Replacement.Text = strlotarea        ‘works fine 
   .Execute Replace:=wdReplaceAll

Here you replaced all the text "lotarea". Now there will be no text "lotarea" in the document.

        If Text1(6).Text = "R6" Then 
        strlotarea = "6,000" 
        objwdRange.Find.Text = "lotarea" 
        objwdRange.Find.Replacement.Text = strlotarea    ‘left blank on doc. 
        objwdRange.Find.Execute Replace:=wdReplaceAll 
        End If

How you will find & replace the same text here again.