1 Тема от Bykva_Iob

  • Bykva_Iob
  • сержант
  • Неактивен
  • Зарегистрирован: 26.02.2012
  • Сообщений: 19

Тема: Автоматическое создание закладок и ссылок на них

Вопрос в следующем:
вот необходимая строчка поиска:

068:0099:АРРР:13ч00м17с120:         :+00042,20:+00046,70:-00002,04:   %   :нн 24

ищу ее по следующему шаблону:

patern = "<(068:[0-9]{4}:[^0032А-Я0-9]@:[0-9чмс]{12}:[0-9^0032+,-:]@:[%^0032НК]@:нн [0-9]{2})"
 With Selection.Find
        .Text = patern
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    While Selection.Find.Execute
        Selection.Range.HighlightColorIndex = wdRed
    Wend

все находится, все выделяется, каким образом найденные строки занести в закладки, а потом вывести ссылки на эти закладки (на отдельный лист). Кол-во найденных строчек может варьироваться => кол-во закладок тоже переменно.
И второй вопрос, можно ли вывести ссылки на закладки в какую нибудь область, чтобы она/(они ссылки) всегда оставались на виду.

2 Ответ от viter.alex

  • Автоматическое создание закладок и ссылок на них
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140
  • За сообщение: 1

Re: Автоматическое создание закладок и ссылок на них

Вы не указали, как формировать имя закладки. Если это не принципиально, то ваш цикл While можно изменить на такой, предварительно перед поиском объявив переменную i типа Long

    While Selection.Find.Execute
        Selection.Range.HighlightColorIndex = wdRed
      ActiveDocument.Bookmarks.Add "bm" & i, Selection.Range
      i = i + 1
    Wend
Лучше день потерять — потом за пять минут долететь!

Сайтviter.alex

3 Ответ от Bykva_Iob

  • Bykva_Iob
  • сержант
  • Неактивен
  • Зарегистрирован: 26.02.2012
  • Сообщений: 19

Re: Автоматическое создание закладок и ссылок на них

viter.alex пишет:

Вы не указали, как формировать имя закладки.

не принципиально.
Также не принципиально какой текст будет у ссылок на эти закладки. Хоть  ссылка_1.....ссылка_Н.

4 Ответ от Bykva_Iob

  • Bykva_Iob
  • сержант
  • Неактивен
  • Зарегистрирован: 26.02.2012
  • Сообщений: 19

Re: Автоматическое создание закладок и ссылок на них

Важно только чтобы ссылки на закладки располагались в области которая всегда остается видна(подобно "непотопляемому меню - остающемуся всегда сверху при прокрутке страницы") при переходе на след. закладку (если конечно это возможно) либо в на отдельной странице в начале или в конце документа.

5 Ответ от Bykva_Iob

  • Bykva_Iob
  • сержант
  • Неактивен
  • Зарегистрирован: 26.02.2012
  • Сообщений: 19

Re: Автоматическое создание закладок и ссылок на них

Разобрался.
После подсказки, спасибо.