Obtendo uma lista de todos os hiperlinks?

Question

Existe algum método pelo qual uma lista de todos os hiperlinks em um documento do Microsoft Office 2010 pode ser obtida?

Eu estou tentando verificar um grande número de documentos grandes (uma sacola de documentos do Word, Excel e PowerPoint) para links quebrados, e prefiro não ter que ler cada linha de cada documento para verificar se eu tenho uma lista de todos os links.

    

Answer 1

Para MS WORD,

 Press Alt + F9 to display the fields

Ctrl + F to open the search box

Search: ^d hyperlink

Check "Highlight all items found ..."

Click on the Find All button

Close the dialog

Ctrl + C to copy everything that is highlighted

Open a new document and paste.

Para o Excel,

Close all workbooks except the one you want to find the links in.
On the Edit menu, click Find.
Click Options.
In the Find what box, enter [.
In the Within box, click Workbook.
In the Look In box, click Formulas.
Click Find All.
In the box at the bottom, look in the Formula column for formulas that contain [.
To select the cell with a link, select the row in the box at the bottom.
Links are also commonly used in names, text boxes, or chart titles.

    

Answer 2

Para listar todos os hiperlinks em um documento do Word:

Sub CheckLinks()
    Set doc = ActiveDocument
    Dim i
    For i = 1 To doc.Hyperlinks.Count
        Debug.Print doc.Hyperlinks(i).Address & " " & doc.Hyperlinks(i).SubAddress
    Next
End Sub