Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 17.11.2019, 13:37   #1
Samyrro
 
Регистрация: 08.12.2014
Сообщений: 6
По умолчанию Извлечь текст между двумя таблицами в Word

Здравствуйте, реально ли средствами VBA извлечь весь текст до первой таблицы и между остальными таблицами (но не после последней таблицы)?
Вложения
Тип файла: docx Пример.docx (13.2 Кб, 11 просмотров)
Samyrro вне форума   Ответить с цитированием
Старый 17.11.2019, 14:55   #2
Samyrro
 
Регистрация: 08.12.2014
Сообщений: 6
По умолчанию решение

Код:
Dim r As Word.Range
Set r = ActiveDocument.Range(1, ActiveDocument.Tables(1).Range.Start)
MsgBox r.Text
Visual BasicВыделить код
Код:
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
Samyrro вне форума   Ответить с цитированием
Ответ
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Копировать текст между двумя фразами catniponfire Microsoft Office Word 4 24.12.2016 00:31
Связь между двумя таблицами Yanaso91 Microsoft Office Access 5 21.06.2011 22:54
Связи между таблицами Excel и Word OMEN_6666 Microsoft Office Excel 1 26.11.2010 16:44
Вопрос про связь между двумя таблицами Vit@L БД в Delphi 8 21.07.2009 06:37
Связь между двумя таблицами. megaten Microsoft Office Access 5 17.05.2009 14:17