Форум программистов, компьютерный форум, киберфорум
MS Office Word
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 20.01.2016
Сообщений: 28
1

Поиск внутри глав (заголовков)

09.06.2020, 12:03. Просмотров 836. Ответов 2
Метки нет (Все метки)

Здравствуйте.
Подскажите как решить такую проблему:
Есть два открытых документа с одинаковой структурой.
Заголовок 1.
Текст 1.
Заголовок 2.
Текст 2.
Заголовок 3.
Текст 3.
В активном документе я выделяю нужное слово, например, в Тексте 2 и хочу найти его в другом документе. И скажем закрасить.
Но проблема в том, что слово не уникальное, а мне нужно найти нужное слово в том же тексте, т.е. Тексте 2.
А в текстах 1 и 3 не искать и не закрашивать. То есть нужно ограничить область поиска (oRng) текстом между двумя заголовками соответствующим номерам заголовков из текущего документа.
В справке не могу найти какие команды относятся к работе со структурой документа и заголовками (номера, количество).

Код
Sub FindComp()
Dim tempS As String
Dim oRng As Range
tempS = Selection.Text
Set oRng = ???  'Documents("Doc2")
With oRng.Find
 .ClearFormatting
  Do While .Execute(FindText:=tempS, Wrap:=wdFindContinue) = True
    While .Execute
        .Parent.Font.ColorIndex = wdBlue
    Wend
  Loop
End With
End Sub
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.06.2020, 12:03
Ответы с готовыми решениями:

Квадратная матрица. Поиск чисел <7.5 выше глав. диагонали.
Дана квадратная матрица 6х6. Найти количество чисел &lt;7.5 среди элементов матрицы, лежащих выше...

Поиск в системе окон без заголовков
Здравствуйте,у меня такой вопрос имеется несколько окон с одинаковыми именами классов которые не...

Поиск файла внутри каталога, внутри поиска каталогов
Доброго времени суток, помогите пожалуйста с задачей: - Есть основная папка. - Нужно...

Поиск внутри папки и внутри файла
Добрый день, в связи с нуждами по работе начал изучать С# и нахожусь пока на начальном уровне....

2
627 / 126 / 33
Регистрация: 18.01.2014
Сообщений: 220
09.06.2020, 16:23 2
Лучший ответ Сообщение было отмечено Azrailll как решение

Решение

Цитата Сообщение от Azrailll Посмотреть сообщение
то есть нужно ограничить область поиска (oRng) текстом между двумя заголовками соответствующим номерам заголовков из текущего документа.
Задачу можно решить, используя предопределенные закладки (Predefined Bookmarks) Ворд

Пример кода
Visual Basic
1
2
3
4
5
6
7
8
9
Sub A1()
    Dim orng As Range
    Selection.Bookmarks("\HeadingLevel").Select
'\HeadingLevel The heading that contains the insertion point or selection,
'plus any subordinate headings and text. If the current selection is body text,
'the "\HeadingLevel" bookmark includes the preceding heading,
'plus any headings and text subordinate to that heading.
    Set orng = Selection.Range
End Sub
Добавлено через 8 минут
Перевод комментария (Гугл в помощь)
\HeadingLevel Заголовок, который содержит точку вставки или выделение, плюс любые подчиненные заголовки и текст. Если текущим выделением является основной текст, закладка "\HeadingLevel" включает в себя предшествующий заголовок, плюс любые заголовки и текст, подчиненный этому заголовку.
1
0 / 0 / 0
Регистрация: 20.01.2016
Сообщений: 28
09.06.2020, 19:10  [ТС] 3
Спасибо. Понятно в какую сторону копать.
А в Word вообще можно узнать количество и номера заголовков? Т.е. н-р стиля Заголовок 2. Есть же статистика для страниц, абзацев и т.п.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.06.2020, 19:10

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Из подч формы в глав
Добрый день! Как привоить значение из подчненной форме к эл главной формы?

Удаление Глав книги
Кратко. Как удалить Глав книги? Пример, Глава 1 (2-3-4-5-6-7-8-9...) Т.е. меняется только числа...

Пять авторов должны написать книгу из 14 глав
1. Пять авторов должны написать книгу из 14 глав. Два автора напишут по 2 главы, два других - по 3,...

Скрипт для выкачивания глав книги с сайта
Небольшая предыстория: читая перевод, наткнулся на его первоисточник, который переведен намного...

Поиск внутри facebook
Добрый день! Стандартный поисковик facebook не способен находить открытые для всех записи и...

Outlook [Поиск внутри файла]
Друзья, Может ли outlook искать искать текст/слова внутри прикрепленных документов, или он только...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.