MS Word. Capture All Of the Data in A Table Cell

WonHop
WonHop used Ask the Experts™
on
Hello All.  I have the code below that irudyk helped me with.  It works great.  It looks for "TBD" .  If they are in a Table, it gets the Section Number and the Title of the Table.
I need another piece of code to capture all of the data in the cell with the TBD.  The cell might have "TBD <5.1>" with other text..  I need to capture all of that data in a variable.
I am running this code out of MS Access.
Please see attached file.

Dim FindRange As Word.Range
Set FindRange = ActiveDocument.Range

FindRange ' TBD"
Do While FindRange.Find.Execute() = True
        pdPage = FindRange.Information(wdActiveEndPageNumber)
        Selection.Goto wdGoToPage, wdGoToAbsolute, pdPage
        pageNumberText = FindRange.Sections(1).Footers(WdHeaderFooterIndex.wdHeaderFooterPrimary).Range.Text

        If FindRange.Information(Word.WdInformation.wdWithInTable) = True Then

            +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
            strCaptureAllDataInTableCell = I need to capture all if the data in the cell once the TBD is found.
            +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
           
            strColumn = FindRange.Information(wdStartOfRangeColumnNumber)
            strRow = FindRange.Information(wdStartOfRangeRowNumber)
            strSectionNumberText = Trim(Selection.Range.ListFormat.ListString) & " " & Selection.Paragraphs(1).Range.Text
            FindRange.Tables(1).Cell(1, 1).Select
            Selection.Previous(wdParagraph, 1).Select
            Selection.MoveLeft wdCharacter, 1, wdExtend
            strTableTitle = Selection.Text
        End If
Loop

Thanks
WonHop
EE_Sample_01.docx
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Retired
Top Expert 2012
Commented:
I can't get the rest of the code to work, but I think you need something like this:

                Dim rngCell As Range
                
                Set rngCell = FindRange.Cells(1).Range
                rngCell.MoveEnd wdCharacter, -1 'drop cell delimiter
                strTableTitle = rngCell.Text
                MsgBox strTableTitle

Open in new window

Author

Commented:
That worked perfectly.

Thanks
WonHop

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial