Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
29.03.2024, 00:08:00

Войти
Интересные и полезные статьи по работе с Excel и VBA можно найти в разделе ХИТРОСТИ
33 233 Сообщений в 5 454 Тем от 6 750 Пользователей
Последний пользователь: Alex1210
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по Word и VBA
| | |-+  Извлечь текст между двумя таблицами в Word
Страниц: [1]   Вниз
Печать
Автор Тема: Извлечь текст между двумя таблицами в Word  (Прочитано 11514 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Samyrro054
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 6


Просмотр профиля E-mail
« : 17.11.2019, 12:35:33 »

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

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 6


Просмотр профиля E-mail
« Ответ #1 : 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
Записан
Страниц: [1]   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru