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

Автоматически сделать повторяющиеся слова в документе гиперссылками на закладку в документе

08.01.2018, 00:58. Показов 1895. Ответов 4
Метки нет (Все метки)

В документе сделана закладка. В документе слово "хлеб" встречается много раз. Как сделать "хлеба" гиперссылками на эту закладку в документе, но не вручную? ))
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.01.2018, 00:58
Ответы с готовыми решениями:

сделать так, чтобы при выборе ФИО автоматически заполнялся реквизит Телефон(в документе).
Ситуация такая. Делаю конфигурацию для работы сервисного центра по ремонту компьютеров. Имеется...

Как в Документе.ТЧ сделать чтобы при выборе в ячейке Товара , его Цена подставлялась автоматически
Подскажите пожалуйста как именно будет выглядеть код в ПриИзменении

Как в документе Word. использовать одну и ту же закладку несколько раз на странице
Здравствуйте ребята! Подскажите! Как в документе Word. использовать одну и ту же закладку несколько...

Нужно сделать что бы делфи выделяла только те слова которые на ходяться в документе словарь.тхт
procedure TForm1.Button1Click(Sender: TObject); var f:textfile; s,slovo,sdop:string; ...

4
8170 / 4429 / 1735
Регистрация: 11.02.2013
Сообщений: 9,417
08.01.2018, 02:12 2
Можно попытаться макросом: поиск по тексту закладки со всеми словоформами. Но не уверен.
0
15019 / 6347 / 1725
Регистрация: 24.09.2011
Сообщений: 9,976
08.01.2018, 12:49 3
ЕвгеНикоСок, попробовал "Все словоформы" - оказалось практически бесполезно (Word 2007).
Вариант с подстановочными знаками - к разным падежам слова "хлеб" гиперссылка добавляется, а словам "нахлебник", "хлебница" - нет.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Макрос2()
Dim r As Range
  Set r = ActiveDocument.Range
  With r.Find
    .ClearFormatting
    .Text = "<[Хх][Лл][Ее][Бб]*>"
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
    While .Execute
      If Len(r.Text) < 7 Then
        ActiveDocument.Hyperlinks.Add Anchor:=r, Address:="", SubAddress:="Закл1" 'имя закладки
        r.Collapse wdCollapseEnd
      End If
    Wend
  End With
End Sub
0
Миниатюры
Автоматически сделать повторяющиеся слова в документе гиперссылками на закладку в документе  
15019 / 6347 / 1725
Регистрация: 24.09.2011
Сообщений: 9,976
24.01.2018, 23:37 4
По просьбам трудящихся добавил работу только с выделенным диапазоном
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Макрос21()
Dim r As Range, endSel&
  Set r = Selection.Range
  endSel = r.End
  With r.Find
    .ClearFormatting
    .Text = "<[Хх][Лл][Ее][Бб]*>"
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
    While .Execute
      If r.End > endSel Then Exit Sub
      If Len(r.Text) < 7 Then
        ActiveDocument.Hyperlinks.Add Anchor:=r, Address:="", SubAddress:="Закл1" 'имя закладки
        r.Collapse wdCollapseEnd
      End If
    Wend
  End With
End Sub
0
1 / 1 / 0
Регистрация: 01.10.2015
Сообщений: 35
25.01.2018, 01:32 5
Казанский, пре-пре-преогромнейшее спасибо!
Я - самоучка, и Ваши решения мне очень помогают (думаю, не только мне)!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.01.2018, 01:32

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

Как можно удалить повторяющиеся позиции в одном документе
Как можно удалить повторяющиеся позиции в одном документе. В этом документе одна и та же позиция по...

Регулярные выражения - найти в html документе повторяющиеся символы, и выделить их жирным
Товарищи, помогите разобраться..всю голову сломал! Есть задание, найти в html документе...

Как преобразовать текст в документе из латиницы в кириллицу ("только в кавычках") во всем документе
Здравствуйте уважаемые форумчане! Собственно сабж. Нашел интересную функцию которая работает а...

Слиплись слова в документе
Документ создан в word 2003. Когда открываю в 2007 то все слова слиплись. Что делать? пакет...


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

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

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