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
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