Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11648
Последний выпуск: 19.06.2015

Как получить коллекцию найденного из myRange.Find.Execute?

210
20 июля
Dmitry2064
582 / / 06.12.2006
Мне надо узнать на каких страницах находятся найденные вхождения нужного текста. Как это можно записать.
Остановился тут:
 
Код:
mText = Selection.Range.Text ' [B]выделил искомое слово[/B]
    Set myRange = ActiveDocument.Content
    myRange.Find.Execute FindText:=mText, Forward:=True, MatchWildcards:=True
    If myRange.Find.Found = True Then
        First = myRange.Text [B]' а тут бы узнать номер страницы, а потом и номера остальных вхождений[/B]
    End If
210
24 июля
Dmitry2064
582 / / 06.12.2006
Цитата: UserNet2008
По ходу Вам по барабану ведь был ответ с кодом. Раз так - только sreenshot

Спасибо за картинку - похоже то, что надо. А подскажите, пжл, где тот самый ответ? Или по какому запросу его найти на форуме?

Заранее спасибо.

313
22 июля
UserNet2008
710 / / 03.04.2010
По ходу Вам по барабану веть был ответ с кодом раз так только sreenshot

P/S
Ну право чел задаёт вопрос и в пропасть
P/S to P/S
Поймайте муху и абайти ей мозг.
210
24 июля
Dmitry2064
582 / / 06.12.2006
UserNet2008, большое спасибо! Нашел исходный код в письме. Сейчас будем разбираться)))
313
05 августа
UserNet2008
710 / / 03.04.2010
Dmitry2064
Я не чево Вам не посылал на мыло
Вот Вам вариант макроса


Шаг 1) Запуск макроса
frm_Find - имя главной формы макроса
Не модальное окно , что-бы видеть результат
 
Код:
Sub ShowFind()
  frm_Find.Show vbModeless
End Sub
Шаг 2) Remark to code.
cbo_ResultFind - ComboBox
txt_Find - TexeBox
fra_ResultFind - Frame
chk_MatchCase - CheckBox
chk_WordSymbol - CheckBox
cmd_Start - CommandButton
cmd_ResetSearchColorSelection - CommandButton
Код:
Option Explicit

Private Sub cbo_ResultFind_DropButtonClick()
Dim str_Split$()
'получить номер страницы
str_Split = Split(cbo_ResultFind.Value, Space(1))
'переход на другую страницу
Selection.GoTo wdGoToPage, wdGoToAbsolute, Val(str_Split(1))

End Sub

Private Sub chk_MatchCase_Change()
  'reset color Black
  ResetColorBlack
 
End Sub

Private Sub chk_WordSymbol_Change()

If chk_WordSymbol.Value Then
  chk_WordSymbol.Caption = "Поиск слова"
  txt_Find.MaxLength = 25
  txt_Find.Text = ""
Else
  chk_WordSymbol.Caption = "Поиск символа"
  txt_Find.MaxLength = 1
  txt_Find.Text = ""
End If

'reset color Black
ResetColorBlack

End Sub

Private Sub cmd_Start_Click()

If txt_Find.TextLength = 0 Then Exit Sub
RemovingItemsComboBox

'отключить экран (во время выполнения макроса)
Application.ScreenUpdating = False

Dim int_SearchResultOnPage%
Dim DocumentPages%()
Dim rng_Range As Range
Dim int_MemPageStart%

int_MemPageStart = 1

Set rng_Range = ActiveDocument.Range

ReDim DocumentPages(rng_Range.Information(wdActiveEndPageNumber), 0)

With rng_Range.Find
  .Text = txt_Find.Text                   'Что искать
  .MatchCase = chk_MatchCase              'Учитывать регистр
  .MatchWholeWord = chk_WordSymbol.Value  'Words/Characters
    Do While .Execute
      DoEvents
     
      If rng_Range.Information(wdActiveEndPageNumber) = int_MemPageStart Then
        'подщет совпадений на стронице
        int_SearchResultOnPage = int_SearchResultOnPage + 1
      Else
        'переход на другую страницу
        int_MemPageStart = rng_Range.Information(wdActiveEndPageNumber)
        int_SearchResultOnPage = 1
      End If
      'запись в массив совпадений на странице
      DocumentPages(rng_Range.Information(wdActiveEndPageNumber), 0) = int_SearchResultOnPage
    Loop
End With

'проверка
If int_SearchResultOnPage = 0 Then Exit Sub

fra_ResultFind.Enabled = True

Dim var_SetSearchColorSelect
Set rng_Range = ActiveDocument.Range

'reset color Black
For Each var_SetSearchColorSelect In rng_Range.Characters
  If var_SetSearchColorSelect.Font.ColorIndex = wdRed Then
    var_SetSearchColorSelect.Font.ColorIndex = wdBlack
  End If
Next

'выбор Words/Characters
If chk_WordSymbol.Value Then
  'поиск слов
  For Each var_SetSearchColorSelect In rng_Range.Words
    If RTrim(var_SetSearchColorSelect.Text) = txt_Find.Text Then
      var_SetSearchColorSelect.Font.ColorIndex = wdRed
    End If
  Next
Else
  'поиск Characters
  For Each var_SetSearchColorSelect In rng_Range.Characters
    If var_SetSearchColorSelect.Text = txt_Find.Text Then
      var_SetSearchColorSelect.Font.ColorIndex = wdRed
    End If
  Next
End If

'удалить объест
Set rng_Range = Nothing

'настройка ComboBox
With cbo_ResultFind
  .ColumnCount = UBound(DocumentPages)
  .ColumnWidths = "45;20;80"
  .ColumnHeads = False
  .RowSource = ""
End With

Dim int_CountPageFind%

'заполнить ComboBox
For int_SearchResultOnPage = 1 To UBound(DocumentPages)
  'не показывать страницы, где нет "Совпадений"
  If DocumentPages(int_SearchResultOnPage, 0) <> 0 Then
    cbo_ResultFind.AddItem "Страница" & Str(int_SearchResultOnPage)
    cbo_ResultFind.List(int_CountPageFind, 1) = Str(int_SearchResultOnPage)
    cbo_ResultFind.List(int_CountPageFind, 2) = "Совпадений " & DocumentPages(int_SearchResultOnPage, 0)
    int_CountPageFind = int_CountPageFind + 1
  End If
 
Next

cbo_ResultFind.ListIndex = 0

End Sub

Private Sub cmd_ResetSearchColorSelection_Click()
Dim rng_Range As Range
Dim var_ResetSearchColSel

'reset color Black
ResetColorBlack

RemovingItemsComboBox

'удалить объест
Set rng_Range = Nothing

End Sub

Private Sub RemovingItemsComboBox()
  'Removing Items ComboBox
  Do While cbo_ResultFind.ListCount > 0
    cbo_ResultFind.RemoveItem (0)
  Loop
  cbo_ResultFind.Text = ""
  fra_ResultFind.Enabled = False
 
End Sub

Private Sub ResetColorBlack()

Dim rng_Range As Range
Dim var_SetSearchColorSelect
Set rng_Range = ActiveDocument.Range

'reset color Black
For Each var_SetSearchColorSelect In rng_Range.Characters
  If var_SetSearchColorSelect.Font.ColorIndex = wdRed Then
    var_SetSearchColorSelect.Font.ColorIndex = wdBlack
  End If
Next

'удалить объест
Set rng_Range = Nothing

End Sub
313
05 августа
UserNet2008
710 / / 03.04.2010
Вдогонку
Этот макрос напечатан слету и без теста и имеет ряд проблем с big doc
P/S
Если будет интерес доработаю только нужно время!!!
210
05 августа
Dmitry2064
582 / / 06.12.2006
Цитата: UserNet2008
Я не чево Вам не посылал на мыло

Просто на почте было оповещение о наличии ответа в теме и показан сам ответ (код макроса). А на странице форума я этого кода не увидел.

Цитата: UserNet2008
Вдогонку
Этот макрос напечатан слету и без теста и имеет ряд проблем с big doc
P/S
Если будет интерес доработаю только нужно время!!!

Большое спасибо за работу. Сразу разобраться в логике сложнова-то. + Интерфейс скорее для учебных целей полезен (у меня макросы все молчаливые). И задачка немного видоизменилась (да еще и с учетом непонятного поведения поиска Ворда).
Итак. В тексте есть как бы содержание, - просто перечисление тем, рубрик и название статей. В некоторых абзацах в скобках указаны уровни заголовка - (раздел) (4-5 вхождений) и (рубрика) (штук 10).
Надо найти, указанные в содержании тексты разделов и рубрик и далее (в основном тексте) подставить к ним теги типа Rubrika и Razdel.
Я запускаю поиск по слову "(раздел)" - находится абзац (в содержании). Слово "(раздел)" из этого найденного удаляется, что бы не находиться снова в этом же месте, "запоминается" текст абзаца, который и ищется в документе. В идеале на втором вхождении и надо ставить тег. Так у меня и сделан макрос. Но поиск в ворде происходит не сначала, а с места последнего найденного. Поэтому второе вхождение второго образца текста (рубрика) находится не в осн. тексте, а в содержании, и туда дописывается тег.
То есть задача: найти все вхождения текста рубрики (по логике их должно быть всего два, одно - в содержании) и поставить тег на то вхождение, у которого наибольшой номер страницы. То есть похоже, требуется двумерный массив. В результате окончательно запутался, как это записать.

313
06 августа
UserNet2008
710 / / 03.04.2010
По ходу мои знания Русского не позваляют понять суть идеи.
Что я понял это
Цитата:
В тексте есть как бы содержание, - просто перечисление тем, рубрик и название статей.

Содержание
рубрика1
рубрикаN
название статей1
название статейN

Вот тут бы и далее на палъцах

Цитата:
В некоторых абзацах в скобках указаны уровни заголовка - (раздел) (4-5 вхождений) и (рубрика) (штук 10).

P/S
Напоминает гиперссылки в документе формата RTF

210
28 августа
Dmitry2064
582 / / 06.12.2006
Прошу прощения за НЕоперативный ответ - не видел оповещения о наличии ответа).
Структура текста такая:

СОДЕРЖАНИЕ

МНЕНИЕ (раздел)
Иванов Л. А.
Название статьи

ВЕКТОР (раздел)
Петрова О. А.
Название другой статьи

ЦЕЛИ И ЗАДАЧИ (рубрика)
Сидоров С. В.
Название третьей статьи

ПРАКТИКА (рубрика)
Иванов Е. С.
Название четвертой статьи


МНЕНИЕ (раздел)
Название статьи
Текст статьи…

ВЕКТОР (раздел)
Название другой статьи
Текст статьи…

Цели и задачи (рубрика)
Название третьей статьи
Текст статьи…

Практика (рубрика)
Название четвертой статьи
Текст статьи…
-------------
В тексте присутствует 3-5 разделов и 5-10 рубрик. Они не нумерованы, а просто отмечены словом в скобках (раздел,рубрика).
Задача:
1. найти все разделы [вне содержания] и подставить к ним метку Zag1 (инструкция insertBefore)
2. найти все рубрики [вне содержания] и подставить к ним метку Zag2.
Проблема в том, что макрос может считать, что находит "новые" вхождения заданного текста, при этом оставаясь на одном и том же месте. Поэтому мне надо отделять найденное вхождение на той же странице (№1) от случаев на страницах с большим номером. Иначе часть меток приписывается к рубрикам и разделам в самом содержании.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог