Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.06.2024, 08:39   #1
angels_777_dreams
Новичок
Джуниор
 
Регистрация: 06.06.2024
Сообщений: 2
По умолчанию массовое открытие гиперссылок в браузере

Добрый день! Может кто-нибудь решал уже подобную задачу, или у кого-то уже есть похожий на этот макрос для MS Excel (https://excelvba.ru/code/OpenHyperlinksInBrowser), требуется аналогичный макрос для массового открытия выделенных гиперссылок во вкладках браузера, но только для MS Word?!
angels_777_dreams вне форума Ответить с цитированием
Старый 09.06.2024, 10:18   #2
Ципихович Эндрю
Старожил
 
Регистрация: 24.01.2011
Сообщений: 3,069
По умолчанию

Цитата:
Сообщение от angels_777_dreams Посмотреть сообщение
требуется аналогичный макрос для массового открытия выделенных гиперссылок во вкладках браузера, но только для MS Word?
пробуйте, не проверял))
Код:
Sub OpenHyperlinksInBrowser()
    ' macro to open hyperlinks in default browser
    ' © 2022 ExcelVBA.ru (modified for Word)
    On Error Resume Next
    Dim hl$, coll As New Collection, msg$, link, i&
 
    ' iterate through all hyperlinks in the selection
    For Each link In Selection.Hyperlinks
        hl$ = link.Address
        If hl$ Like "http*://?*.?*" Then coll.Add hl$
        If coll.Count > 20 Then Exit For ' limit to 20 hyperlinks
    Next link
 
    If coll.Count > 6 Then ' ask for confirmation if many links are selected
        msg$ = "Are you sure you want to open " & coll.Count & " links in the browser?"
        If MsgBox(msg$, vbDefaultButton2 + vbOKCancel) = vbCancel Then Exit Sub
    End If
 
    For Each link In coll ' iterate through the collected hyperlinks
        CreateObject("WScript.Shell").Run link ' open the link in the default browser
    Next
End Sub
Ципихович Эндрю на форуме Ответить с цитированием
Старый 10.06.2024, 09:16   #3
angels_777_dreams
Новичок
Джуниор
 
Регистрация: 06.06.2024
Сообщений: 2
По умолчанию

Да, все отлично работает. Спасибо огромное!
angels_777_dreams вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Открытие ссылки в браузере OmegaBerkut C# (си шарп) 27 31.01.2017 19:12
массовое изменение адресов гиперссылок в книге Kazakoff88 Microsoft Office Excel 12 20.06.2014 10:30
Поиск и открытие txt в браузере vaneeeek Общие вопросы C/C++ 8 17.08.2012 17:15
Поиск и открытие txt в браузере(C++) vaneeeek Помощь студентам 2 17.08.2012 15:19
Как задать открытие файла в браузере? da487 HTML и CSS 2 20.04.2011 15:55