Microsoft Word 死連結檢視器：尋找並修復壞鏈接

Microsoft Word 的死鏈接檢查器可以幫助您找到需要檢查的鏈接，但 Word 沒有內建的批量掃描功能來測試每個網址並報告其頁面當前是否可加載。您可以手動檢查幾個連結；也可以使用本機 VBA 巨集來列出較長文件中的目標頁面。

Word 可以檢查什麼

Word 連結可以指向網站、文件、電子郵件或文件內的特定位置。 Word 可讓您檢查、編輯和刪除超鏈接，但不會確認網站是否在線上或讀者是否擁有存取權限。請參閱 Microsoft 的超連結建立和編輯指南以及刪除單一或所有超連結的說明。

舊版 Ablebits 檢查器適用於 Word 2000 至 2010；目前尚未確認其與 Microsoft 365 的兼容性。請避免使用已存檔的安裝程式和鏡像檔。若要評估其他加載項，請參考 Microsoft Office 加載項指南，查看其發佈者資訊和相容性。

檢查 Word 文件中的連結

另存一份。使用“檔案”>“另存為”在副本上進行操作。這樣，如果您需要比較或撤銷編輯，您就能得到一份乾淨的原始文件。

Word 文件副本會將連結檢查與原始文件分開儲存。 — 另一份 Word 文件副本顯示了幾個可供檢視的超連結。

檢查實際目標位置。在 Word 桌面版中，右鍵點擊連結並選擇「編輯超連結」。比較「要顯示的文字」和「地址」。例如，一個標記為「公司支援」的連結可能指向其他位置。如果您只需要檢查鏈接，請選擇“取消”；不要為了查看 URL 而打開一個不熟悉的鏈接。

右鍵單擊超鏈接，選擇“編輯超鏈接”即可在不打開目標文件的情況下檢查其目標位置。 — Word上下文功能表會在選定的片語旁邊顯示「編輯超連結」。

讀取地址中的目的地，並將其與顯示的連結文字進行比較；如果只是檢查，請選擇「取消」。 — 「編輯超連結」對話方塊將面向讀者的文字與目標位址分開。

確定連結類型。網頁連結通常以https://`<link>` 或 ` <link>` 開頭。指向「本文檔中的位置」http://的連結會跳到標題或書籤，而文件連結可能指向本機磁碟機或共用資料夾。瀏覽器無法驗證內部書籤，而且對您有效的文件路徑可能對收件者無效。
請單獨測試公共網頁連結。從對話方塊複製地址，並在檢查網域後將其貼上到瀏覽器網址列。確認顯示的是預期的組織和頁面。登入畫面、存取被拒絕訊息或重定向可能反映的是權限或網站規則問題，而非無效的 URL；請在登入或連接到正確的網路後嘗試該鏈接，然後再替換它。

在確認網域名稱與預期一致後，在瀏覽器中測試公共網頁目標。 — 瀏覽器載入完成後會顯示 example.com 目標頁面。

調查未找到的結果。如果頁面顯示找不到，請檢查拼字和路徑，然後在網站中搜尋頁面標題或更新的官方 URL。在更改文件之前，請記錄舊地址和替換地址。如果沒有可靠的替換地址，請刪除超連結或保持文字不連結。

如果頁面未找到，則需要調查該路徑，然後在網站上搜尋官方替代頁面。 — 瀏覽器顯示範例網址「頁面找不到」的結果。

使用本機 VBA 巨集列出多個目的地

對於數十個鏈接，Document.Hyperlinks可以使用 Word 的連結集合功能來建立連結清單。微軟在其Word VBA 參考和超連結參考文件中詳細介紹了連結集合和超連結的 display-text 屬性。在 Windows 版 Word 的可信任副本中，按Alt+鍵F11，選擇「插入」>「模組」，貼上巨集並執行ExportDocumentHyperlinks。此操作會產生一份單獨的報告；它不會存取 URL 或判斷其是否有效。

Sub ExportDocumentHyperlinks()
    Dim sourceDoc As Document
    Dim reportDoc As Document
    Dim link As Hyperlink
    Dim endRange As Range
    Dim labelText As String
    Dim destination As String

    Set sourceDoc = ActiveDocument
    Set reportDoc = Documents.Add
    reportDoc.Content.Text = "Link text" & vbTab & "Destination" & vbCrLf

    For Each link In sourceDoc.Hyperlinks
        labelText = link.TextToDisplay
        If Len(labelText) = 0 Then labelText = "(no display text)"
        destination = link.Address
        If Len(link.SubAddress) > 0 Then
            If Len(destination) > 0 Then destination = destination & "#"
            destination = destination & link.SubAddress
        End If

        Set endRange = reportDoc.Content
        endRange.Collapse Direction:=wdCollapseEnd
        endRange.InsertAfter labelText & vbTab & destination & vbCrLf
    Next link
End Sub

宏可能受工作場所策略限制。請勿在不受信任的文件中啟用活動內容；如有疑問，請使用手動檢查。微軟警告稱，巨集可能攜帶病毒，並建議僅在了解其功能時才啟用活動內容；請閱讀其巨集安全指南。請檢查文件中未包含網址的內部連結。