Dim oWord, oDoc As Object
    
    Set oWord = CreateObject("Word.Application")
    oWord.Visible = True
    Set oDoc = oWord.Documents.Open("C:\myfile.doc")
    ' Чтение ворда или ещё что-то...
    ' Нужно передвинуть Selection на ту отметку на тексте, с которой
    ' будет начинаться в следующий раз чтение (см. методы для Selection, типа Selection.MoveDown и т.п.)
    oDoc.Bookmarks.Add "myBookmark1", Selection
    oDoc.Save
    oDoc.Close
    
    Set oDoc = oWord.Documents.Open("C:\myfile.doc")
    If oDoc.Bookmarks.Exists("myBookmark1") Then
        Selection.Start = oDoc.Bookmarks("myBookmark1").End
        Selection.End = oDoc.Bookmarks("myBookmark1").End
    End If

   oDoc.Save
   oDoc.Close
   oWord.Quit
   Set oWord = Nothing