Excel это не сложно

Основные форумы => Вопросы по Word и VBA => Тема начата: Samyrro054 от 17.11.2019, 12:35:33

Название: Извлечь текст между двумя таблицами в Word
Отправлено: Samyrro054 от 17.11.2019, 12:35:33

Здравствуйте, реально ли средствами VBA извлечь весь текст до первой таблицы и между остальными таблицами (но не после последней таблицы)?

Название: Re:Извлечь текст между двумя таблицами в Word
Отправлено: Samyrro054 от 17.11.2019, 13:54:25

Нашёл решение

Код: (vb)

Dim r As Word.Range
Set r = ActiveDocument.Range(1, ActiveDocument.Tables(1).Range.Start)
MsgBox r.Text

Код: (vb)

Dim d As Word.Document, i&, t$
Set d = ActiveDocument
For i = 1 To d.Tables.Count - 1
    t = t & d.Range(d.Tables(i).Range.End, d.Tables(i + 1).Range.Start)
Next
MsgBox t