We help IT Professionals succeed at work.

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

WonHop
WonHop asked
on
126 Views
Last Modified: 2019-02-22
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

Retired
CERTIFIED EXPERT
Top Expert 2012
Commented:
This one is on us!
(Get your first solution completely free - no credit card required)
UNLOCK SOLUTION

Author

Commented:
That worked perfectly.

Thanks
WonHop
Unlock the solution to this question.
Join our community and discover your potential

Experts Exchange is the only place where you can interact directly with leading experts in the technology field. Become a member today and access the collective knowledge of thousands of technology experts.

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.