I have spent an good deal of time trying to get the following code to select each item in a word table cell, but no luck yet.
Would someone please take a look at this and hopefully provide insight? I have attached a word document that explains the
detail of what I am trying to do.
Public Sub EstablishVol1Bookmarks(strDocName)
Dim objApp As Word.Application, wdoc As Word.Document, rng As Range, mySentenceCount As Integer, i As Integer, _
myString1 As Variant, myString2 As Variant, myLastString As String
Set objApp = CreateObject("Word.Application")
Set wdoc = objApp.Documents.Open(CurrentProject.Path & "" & strDocName) 'Forms!frmMain!cboChapter
objApp.Visible = True
Set rng = ActiveDocument.Tables(3).Rows(9).Cells(8).Range
mySentenceCount = rng.Sentences.Count
For i = 1 To mySentenceCount
Set wdoc = Nothing
Set objApp = Nothing
thanks, please see attachment