Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Генератор модуля расширения клавиатуры для Word и описание программы http://www.cyberforum.ru/vba/thread2012733.html
Думаю, будет интересно для народа. http://www.tvitaly1.narod.ru/generator_modulja_rasshirenija_klaviatury2.zip
VBA Квадратичная интерполяция
как в vba реализовать квадратичную интерполяцию функций двух переменных?
VBA Отбор уникальных данных из двух диапазонов
Доброе времени суток, Господа! Помогите мне автоматизировать свод базы данных, для месячной инвентаризации.Приложил маленький пример. В примере на листе "База" Я отметил цветами(оранжевым, и красным)...
VBA Копирование листа из закрытой книги в открытую Добрые люди, пофиксите макрос, чтобы он запускался с панели инструментов для открытой книги... Sub nununu() Const fromFile = "\\___for___ribbon___\excel\IR_SERIALIZED.xlsx" Dim srcBook As... http://www.cyberforum.ru/vba/thread2012577.html
VBA Макрос - интересная производственная задача http://www.cyberforum.ru/vba/thread2012387.html
VBA Нужен код для замены фразы в ячейке
Здравствуйте, умные помощники! Помогите еще раз с написанием кода. В столбце "А" список из цифр с фразами. В столбце "В" только цифры. Нужно, чтобы при совпадении цифр столбца "А" и "В" поменялась...
VBA Необходимо в тексте убрать точку в конце типа в пунктах - типа 1.1. - заменить на 1.1 (не нумерацию, а ссылки)
With ActiveDocument.Content.Find .ClearFormatting .MatchWildcards = True .Text = "({1;}) ({1;}.)>>" With .Replacement .ClearFormatting .Text = "/1 /2" End With .Execute Replace:=wdReplaceAll...
VBA Вывод в таблицу Здравствуйте! Скажите как сделать вывод в столбец "A" - Дату, в столбец "B" - время (почти получилось у меня), а из листа "БД" подтянуть случайным образом в колонку "C" - выполняемую работу, а в "D"... http://www.cyberforum.ru/vba/thread2011797.html
VBA (VBA Excel) Удалить стоку в ячейке которой нет текста http://www.cyberforum.ru/vba/thread2011792.html
Здравствуйте, как удалить всю строку если в ячейке столбца "B" нет текста, но в ячейке могут быть пробелы (количество может быть разное). Пробовал этот макрос: Sub Row_Cleaner() Dim q As Range...
VBA Случайный вывод Всем привет. Есть случайный вывод дат и случайный вывод времени. Необходимо добавить в 3 и 4 колонке вид работ и ФИО исполнителя (тоже случайным образом). Самостоятельно справится увы не в силах.... http://www.cyberforum.ru/vba/thread2011772.html
Step_UA
1537 / 621 / 214
Регистрация: 09.06.2011
Сообщений: 1,280
02.07.2017, 22:12 0

Word. Заменить текст на ссылку

02.07.2017, 22:12. Просмотров 1115. Ответов 6
Метки (Все метки)

Лучший ответ Сообщение было отмечено Bolbine84455 как решение

Решение

имхо, при небольшом количестве текста требующего замены на ссылки (относительно всего документа) штатный поиск будет побыстрее ...
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
  Dim R As Range, tmp$()
  'Dim Start As Integer: Start = 0
    Set R = ActiveDocument.Range
    With R.Find
        .ClearFormatting
        .Text = "[[]{2}[a-zA-Z0-9]{1;}|[!]]{1;}[]]{2}"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Application.ScreenUpdating = False
    Do While R.Find.Execute
        'If R.Start < Start Then Exit Do
        tmp = Split(R.Text, "|")
        R.Hyperlinks.Add R, "http://myservice/linkid?id=" & Mid(tmp(0), 3), , , Left(tmp(1), Len(tmp(1)) - 2)
        'Start = R.End
    Loop
    Application.ScreenUpdating = True


Вернуться к обсуждению:
Word. Заменить текст на ссылку
2
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.07.2017, 22:12

Работа с MS WORD. Найти текст и заменить его на картинку.
Добрый день. В программа необходимо обратиться к вордовскому документу и заменить в нем некоторый...

Как заменить некоторый текст написанный в word при помощи C++Builder
Народ подскажите кто знает, имеется шаблон в word документе (fam 1,fam2 и т.д) вообщем нужно что бы...

Считать текст из Word посредством Microsoft.Office.Interop.Word
Необходимо считать форматированный текст из Word посредством Microsoft.Office.Interop.Word. По...

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