Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Extract all non-table data from Word
Hello,
I am attempting to extract text data from a Microsoft Word document into Excel. Each separate linebreak and sentence is parsed into a separate cell. The problem is that there are several portion of the document that have tables, which have text that I don't want to include. Is there any way to detect text that is embedded within a table? The code I'm using is as follows: Sub Get_Text() Dim rbreakpt As Long Dim lbreakpt As Long Dim roffset As Long Dim curr_Row As Long Dim SRS_Sent As String Dim SRS_Temp As String Dim SRS_Print As String Set ActiveWB = ActiveWorkbook Set objWord = CreateObject("Word.Application") objWord.Documents.Open "C:\Work\Stuff.doc", False, True Rem Access the document Set currentDocument = objWord.Documents(1) curr_Row = 1 lbreakpt = 1 SRS_Sent = currentDocument.TablesOfContents.Application.Activ eDocument.Content.Text SRS_Temp = SRS_Sent While ((InStr(lbreakpt, SRS_Sent, vbLf, vbTextCompare)) Or _ (InStr(lbreakpt, SRS_Sent, vbCr, vbTextCompare))) rbreakpt = InStr(lbreakpt, SRS_Sent, Chr(13), vbTextCompare) roffset = rbreakpt - lbreakpt SRS_Temp = Mid(SRS_Sent, lbreakpt, roffset) lbreakpt = rbreakpt + 1 While (InStr(1, SRS_Temp, ".", vbTextCompare) And Len(SRS_Temp) 2) SRS_Print = Trim(Left(SRS_Temp, InStr(1, SRS_Temp, ".", _ vbTextCompare))) ActiveWB.Worksheets(1).Cells(curr_Row, 1).Value = Trim(SRS_Print) SRS_Temp = Right(SRS_Temp, Len(SRS_Temp) - _ InStr(1, SRS_Temp, ".", vbTextCompare)) 'DOC filename ActiveWB.Worksheets(1).Cells(curr_Row, 2).Value = currentDocument curr_Row = curr_Row + 1 Wend 'Output rows of any data greater than 1 char If (Len(SRS_Temp) 1) Then curr_Row = curr_Row + 1 'DOC req text ActiveWB.Worksheets(1).Cells(curr_Row, 1).Value = SRS_Temp 'DOC filename ActiveWB.Worksheets(1).Cells(curr_Row, 2).Value = currentDocument End If Wend 'Close the current document currentDocument.Close Set currentDocument = Nothing End Sub Thanks in advance. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to Extract Text From Word Table Into Excel? | Excel Discussion (Misc queries) | |||
Extract MS Excel Data embedded in MS Word | Excel Discussion (Misc queries) | |||
How to extract data from Word Form into Excel | Excel Programming | |||
Extract data (not in table) from Word to Excel | Excel Discussion (Misc queries) | |||
Extract MS word data to MS Excel | Excel Programming |