Новости:

Название темы должно отражать суть задачи.
Темы типа "ПОМОГИТЕ!!!", "Срочно!" и т.п. будут удаляться без объяснения причин

Главное меню

Извлечь текст между двумя таблицами в Word

Автор Samyrro054, 17.11.2019, 12:35:33

« назад - далее »

Samyrro054

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

Samyrro054

Нашёл решение
Dim r As Word.Range
Set r = ActiveDocument.Range(1, ActiveDocument.Tables(1).Range.Start)
MsgBox r.Text


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

Яндекс.Метрика Рейтинг@Mail.ru