[RESOLVED] Replace All text in MS Word Document - does not work properly

[lianp]

before i had problems with the publisher file, but well I just converted the publisher file to a word document... as I could actually do something with it...

but now i've ran into another problem...

when I do a find and replace, it will go through all the normal texts fine... but when it comes to text within a text box (drawn within word), it only does the first one and just ignores the rest..

i'm using the same code:

Dim word As New Microsoft.Office.Interop.Word.Application 
        Dim doc As Microsoft.Office.Interop.Word.Document 
        Try 
            doc = word.Documents.Open("d:\test.docx") 
            doc.Activate() 
            Dim myStoryRange As Microsoft.Office.Interop.Word.Range 
            For Each myStoryRange In doc.StoryRanges 
                With myStoryRange.Find 
                    .Text = txtWORD_Find1.Text 
                    .Replacement.Text = txtWORD_ReplaceWith1.Text 
                    .Wrap = Microsoft.Office.Interop.Word.WdFindWrap.wdFindContinue 
                    .Execute(Replace:=Microsoft.Office.Interop.Word.WdReplace.wdReplaceAll) 
                End With 
            Next myStoryRange 

            'For Each myStoryRange In doc.StoryRanges 
            ' With myStoryRange.Find 
            ' .Text = txtWORD_Find2.Text 
            ' .Replacement.Text = txtWORD_ReplaceWith2.Text 
            ' .Wrap = Microsoft.Office.Interop.Word.WdFindWrap.wdFindContinue 
            ' .Execute(Replace:=Microsoft.Office.Interop.Word.WdReplace.wdReplaceAll) 
            ' End With 
            'Next myStoryRange 

            doc.SaveAs("d:\test1.docx") 
            word.Visible = True 
        Catch ex As Exception 
            MessageBox.Show("Error accessing Word document.") 
        End Try

which is from http://weblogs.asp.net/guystarbuck/a...ts-with-c.aspx


how can I make it go through ALL the textboxes and replace the text within them??

your assistance on the matter is greatly appreciated..

regards,

lianp..

[lianp]

yay...I found a solution.. not the fastest.. but it works..

resolved..sort of..