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(wdAc
Selection.Goto wdGoToPage, wdGoToAbsolute, pdPage
pageNumberText = FindRange.Sections(1).Foot
hInTable) = True Then
ll = I need to capture all if the data in the cell once the TBD is found.
strColumn = FindRange.Information(wdSt
strRow = FindRange.Information(wdSt
strSectionNumberText = Trim(Selection.Range.ListF
String) & " " & Selection.Paragraphs(1).Ra
Selection.MoveLeft wdCharacter, 1, wdExtend
strTableTitle = Selection.Text