Reading Word document by using Excel Macro
 

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

Reading Word document by using Excel Macro
 

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" wrote:

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

Reading Word document by using Excel Macro
 

Thank you Joel, its working fine.

"Joel" wrote:

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" wrote:

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