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.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Thanks
WonHop