Вытащить текст между известным текстом и таблицей

[mshak]

Добрый день.
Вот возникла необходимость в accessе вытащить текст между известной таблицей и известным предложением в тексте из документа word. саму таблицу я нахожу, могу получить некоторое количество символов до таблицы.. а вот именно до определенной строки не получается //

как нахожу таблицу:

Код: Выделить всё


'поиск требуемой таблицы
i = 0
Do
Set myTable = word_doc.Tables(word_doc.Tables.Count - i)
i = i + 1
new_value = myTable.Cell(1, 1)
Loop While Not (InStr(1, new_value, "1", vbTextCompare) > 0)

'выбираем 500 символов до таблицы
Dim objResh As Object
Set objResh = myTable.Parent.Range(myTable.Range.Start - 500, myTable.Range.Start)

'допустим вытаскиваем из этого текста последний параграф
Решение = ReplaceChr13(objResh.Paragraphs(objResh.Paragraphs.Count).Range.Text)


но текст может быть и в нескольких параграфах.. может и в двух.. а может и в 3х..

[alibek]

Какие таблицы? Какие формы Access?

[mshak]

прошу прощения, ввел в заблеждение некорректной формулировкой вопроса, собственно сам аксес в данном случае не важен, т.к. я подключаюсь к документу word

Код: Выделить всё


Set word_app = CreateObject("Word.Application")
word_app.Visible = False
   
word_app.Documents.Open FileName:=FWord, ReadOnly:=True

    If Val(word_app.Application.Version) >= 8 Then
        Set word_doc = word_app.ActiveDocument
    Else
        Set word_doc = word_app
    End If

А ведь на самом деле ларчик просто открывался, пока писал этот, второй, пост придумал работающее решение, а до этого мучался несколько дней, пытался реализовать через .Find.
Может кому и пригодится:

Код: Выделить всё


Dim objResh As Object
Set objResh = myTable.Parent.Range(myTable.Range.Start - 500, myTable.Range.Start)

For i = 0 To objResh.Paragraphs.Count - 1
    new_value = ReplaceChr13(objResh.Paragraphs(objResh.Paragraphs.Count - i).Range.Text)
    If (InStr(1, new_value, "ЗАКЛЮЧЕНИЕ ПО", vbTextCompare) > 0) Then
      Exit For
    Else
       Решение = new_value & Решение
    End If
Next i



может кто-нибуть знает более изящное решение? ... чем перебор по абзацам с поиском ключевых фраз