Avatar of WonHop
WonHop
Flag for United States of America asked on

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

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

Avatar of undefined
Last Comment
WonHop

8/22/2022 - Mon
ASKER CERTIFIED SOLUTION
GrahamSkan

THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
See Pricing Options
Start Free Trial
GET A PERSONALIZED SOLUTION
Ask your own question & get feedback from real experts
Find out why thousands trust the EE community with their toughest problems.
WonHop

ASKER
That worked perfectly.

Thanks
WonHop
Your help has saved me hundreds of hours of internet surfing.
fblack61