Reading Word document by using Excel Macro

[Arvind Mane]

Can anyone tell me how to read each character from the word document by using
the Excel Macro.

 

[Joel]

Here is three very similar methods

by characters

Sub getcharacters()

Set WdObj = GetObject("c:\temp\test.doc")

RowCount = 1
For Each Char In WdObj.Characters
For CharCount = 1 To Len(Wd)
Range("A" & RowCount) = Mid(Wd, CharCount)
RowCount = RowCount + 1
Next CharCount
Next Char
WdObj.Close
End Sub

By Word

Sub getwords()

Set WdObj = GetObject("c:\temp\test.doc")

RowCount = 1
For Each Wd In WdObj.Words
Range("A" & RowCount) = Wd
RowCount = RowCount + 1
Next Wd
WdObj.Close
End Sub


To use the words to get the characters

Sub getletters()

Set WdObj = GetObject("c:\temp\test.doc")

RowCount = 1
For Each Wd In WdObj.Words
For CharCount = 1 To Len(Wd)
Range("A" & RowCount) = Mid(Wd, CharCount)
RowCount = RowCount + 1
Next CharCount
Next Wd
WdObj.Close
End Sub

 

[Arvind Mane]

Thank you Joel, its working fine.

Here is three very similar methods

by characters

Sub getcharacters()

Set WdObj = GetObject("c:\temp\test.doc")

RowCount = 1
For Each Char In WdObj.Characters
For CharCount = 1 To Len(Wd)
Range("A" & RowCount) = Mid(Wd, CharCount)
RowCount = RowCount + 1
Next CharCount
Next Char
WdObj.Close
End Sub

By Word

Sub getwords()

Set WdObj = GetObject("c:\temp\test.doc")

RowCount = 1
For Each Wd In WdObj.Words
Range("A" & RowCount) = Wd
RowCount = RowCount + 1
Next Wd
WdObj.Close
End Sub


To use the words to get the characters

Sub getletters()

Set WdObj = GetObject("c:\temp\test.doc")

RowCount = 1
For Each Wd In WdObj.Words
For CharCount = 1 To Len(Wd)
Range("A" & RowCount) = Mid(Wd, CharCount)
RowCount = RowCount + 1
Next CharCount
Next Wd
WdObj.Close
End Sub