Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

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

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

Код:
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 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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