Указатель для однокоренных слов

[krendel34rus]

Как сделать такой указатель, чтобы он указывал слово в именительном падеже, а ссылался на все однокоренные слова. Я так понимаю проблема в том, как отметить эти разные слова одной командой. Ну, допустим, мне не лень отметить каждое слово. Но как их потом объединить в указателе, с тем же условием отсутствия повторений номеров страниц?

[viter.alex]

{XE "слово:слова:слову:слово:словом :на слове"}
Но, к сожалению в список войдут все формы, а не только те, которые есть в документе

[krendel34rus]

А как пометить ВСЕ?

[Sasha_Smirnov]

krendel34rus! Вам viter.alex это и предложил, пожалев лишь об излишествах данного способа.

Я и сам мечтаю научиться — всю ночь (раз в 4-й) перечитывал книжку; многое понял. Опять.

Начните, пожалуй, с нажатия альт-шифт-икс (Alt+Shift+X).

(Я заполнил диалоговое окно от балды, а в книге Word 2000 всё это разжёвано на 9 страницах + ещё сборка на 1 страницу.)

Сообщение от krendel34rus

Sasha_Smirnov, а почему в диапазоне указывается закладка?

Это на случай, когда нужен в указателе диапазон страниц. Выделяешь его, «закладываешь» (по Ctrl-Shift-F5) и вводишь имя.
Впоследствии не только Word, но и его пользователь может это место найти также по Ctrl-G. Если вспомнит имя.

[krendel34rus]

Sasha_Smirnov, а почему в диапазоне указывается закладка? Эту закладку, а точнее закладки нужно сначала "заложить". А закладки делаются по одной, "поштучно".

Так это, трактат не нужно Вообще интересно, цитата: "Я и сам мечтаю научиться", получилось?

[viter.alex]

Закладку указывать не обязательно, оставьте параметр «текущая страница»

[krendel34rus]

Похоже, что лишь инструментом Указатель, добиться поставленной задачи довольно трудоемко.
http://www.cyberforum.ru/ms-word/thr...tml#post380732
Однако, есть простой способ решения этой проблемы с помощью макроса.
http://www.cyberforum.ru/vba/thread6...tml#post383064

[viter.alex]

Что ж, согласен. Решение неплохое, но не оптимальное. Перебирать каждое слово в тексте, это очень и очень напряжная работа. Думаю, что поиском будет проще:

Sub MarkSameCoreIndexes()
  Dim sCore As String
  Dim sIndex As String
  Dim oFootnote As Footnote
  
  sCore = InputBox("Введите корень", "Производим пометку")
  If sCore = Empty Then Exit Sub
  sIndex = InputBox("Введите слово, которое должно быть в Указателе", "Производим пометку")
  If sIndex <> Empty Then Exit Sub
  
  Application.ScreenUpdating = False
  ActiveWindow.ActivePane.View.ShowAll = False
  With ActiveDocument.Range.Find
    .Text = sCore
    While .Execute
      ActiveDocument.Indexes.MarkEntry .Parent.Words(1), sIndex
    Wend
  End With
  For Each oFootnote In ActiveDocument.Footnotes
    With oFootnote.Range.Find
        .Text = sCore
      While .Execute
        ActiveDocument.Indexes.MarkEntry .Parent.Words(1), sIndex
      Wend
    End With
    DoEvents
  Next oFootnote
  Application.ScreenUpdating = True
End Sub

[krendel34rus]

Действительно, такой метод работает намного быстрее. Это особенно заметно, когда большой документ. Мало того, такой метод регистра не зависим, в отличие от предыдущего варианта.