массовое открытие гиперссылок в браузере

[angels_777_dreams]

Добрый день! Может кто-нибудь решал уже подобную задачу, или у кого-то уже есть похожий на этот макрос для MS Excel (https://excelvba.ru/code/OpenHyperlinksInBrowser), требуется аналогичный макрос для массового открытия выделенных гиперссылок во вкладках браузера, но только для MS Word?!

[Ципихович Эндрю]

Сообщение от 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

[angels_777_dreams]

Да, все отлично работает. Спасибо огромное!