Automating msword to extract the email id from several records to exelsheet

Automating msword to extract the email id from several records to exelsheet - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: UFT / QTP Regular Expressions (https://www.learnqtp.com/forums/Forum-UFT-QTP-Regular-Expressions)
+--- Thread: Automating msword to extract the email id from several records to exelsheet (/Thread-Automating-msword-to-extract-the-email-id-from-several-records-to-exelsheet)

Automating msword to extract the email id from several records to exelsheet - narasimha - 02-07-2012

Hi iam looking for the way to get the email id from the msword document to execl file
iam having several files of customers in a folder called records where i need to automate msword to get email id of customers into an exel file.

i run the below script but iam getting errors.....plz help

Code:
Set wrdApp = CreateObject(“Word.Application”)

Set wrdDoc = wrdApp.Documents.Open(“C:\Records\abc.doc”) 

searchString = “@gmail.com”

With wrdDoc

For p = 1 To .Paragraphs.Count

startRange = .Paragraphs(p).Range.Start

endRange = .Paragraphs(p).Range.End

Set tRange = .Range(startRange, endRange)

‘ tString = tRange.Text

tRange.Find.Text = searchString

tRange.Find.Execute

Next

.Close ‘ close the document

End With

wrdApp.Quit ‘ close the Word application

Set wrdDoc = Nothing

Set wrdApp = Nothing

RE: Automating msword to extract the email id from several records to exelsheet - basanth27 - 02-07-2012

what error messages?