如何通過VBA批驗證Word文檔中的所有超鏈接

Word解決方案 2025 年 9 月 28 日

在本文中，我們將向您展示一種自動方式，可以通過VBA快速批量驗證Word文檔中的所有超鏈接。

Word文檔可以包含許多超鏈接，甚至可以包含數百個。其中，有些是無效的鏈接，無法將您引導至正確的網頁。因此，我們希望為您提供一種通過VBA快速檢查文檔中所有鏈接的方法。

安裝並保存Word宏

首先，使用“ Alt + F11”打開VBA編輯器。
然後單擊“普通”項目。
接下來，單擊工具欄菜單上的“插入”選項卡。
然後在菜單上選擇“模塊”。
雙擊模塊以打開編輯空間，並在其中粘貼以下代碼：

Function CheckURL(strURL As String) As Boolean
  Dim objDemand As Object
  Dim varResult As Variant
 
  On Error GoTo ErrorHandler
  Set objDemand = CreateObject("WinHttp.WinHttpRequest.5.1")
 
  With objDemand
    .Open "GET", strURL, False
    .Send
    varResult = .StatusText
  End With
 
  Set objDemand = Nothing
 
  If varResult = "OK" Then
    CheckURL = True
  Else
    CheckURL = False
  End If
 
ErrorHandler:
End Function

Sub ReturnURLCheck()
  Dim objLink As Hyperlink
  Dim strLinkText As String
  Dim strLinkAddress As String
  Dim strResult As String
  Dim nInvalidLink As Integer, nTotalLinks As Integer
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  nTotalLinks = objDoc.Hyperlinks.Count
  nInvalidLink = 0
 
  With objDoc
    For Each objLink In .Hyperlinks
      strLinkText = objLink.Range.Text
      strLinkAddress = objLink.Address
 
      If Not CheckURL(strLinkAddress) Then
        nInvalidLink = nInvalidLink + 1
        strResult = frmCheckURLs.txtShowResult.Text
        frmCheckURLs.txtShowResult.Text = strResult & nInvalidLink & ". Invalid Link Information:" & vbNewLine & _
                                          "Displayed Text: " & strLinkText & vbNewLine & _
                                           "Address: " & strLinkAddress & vbNewLine & vbNewLine
      End If
    Next objLink
 
    frmCheckURLs.txtTotalLinks.Text = nTotalLinks 
    frmCheckURLs.txtNumberOfInvalidLinks.Text = nInvalidLink
    frmCheckURLs.Show Modal
 
  End With
  Application.ScreenUpdating = True
End Sub

Sub HighlightInvalidLinks()
  Dim objLink As Hyperlink
  Dim strLinkAddress As String
  Dim strResult As String
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  With objDoc
    For Each objLink In .Hyperlinks
      strLinkAddress = objLink.Address
 
      If Not CheckURL(strLinkAddress) Then
        objLink.Range.HighlightColorIndex = wdYellow
      End If
    Next objLink
  End With
End Sub

接下來點擊“保存”。
然後為宏分配一個按鈕。您可以參考以下文章以獲取詳細信息：

如何刪除Word中帶有宏和VBA的粘貼文本的格式

創建一個用戶表格

使用用戶表單，您可以清楚地看到當前文檔中的鏈接總數，無效鏈接的數量以及更多詳細信息。

首先，再次單擊工具欄上的“插入”。但是這次，選擇“ UserForm”。
接下來，按“ F4”以在左下角打開“屬性窗口”。窗口大小可調。
現在將用戶表單命名為“ frmCheckURLs”。
將標題設置為“檢查URL”。
然後正確設置字體。
接下來單擊工具欄上的“工具箱”按鈕。
現在，在工具箱上單擊“標籤”。使用鼠標在用戶窗體上拖動一個矩形標籤。
單擊標籤以激活其屬性窗口。將標籤名稱設置為“ lblInvalidURLs”，並將標籤標題設置為“ Invalid URLs：”。
接下來，為標籤標題文本選擇適當的字體和前色。
在工具箱上選擇“文本框”，然後在用戶表單上插入一個文本框。調整其大小。
然後將文本框名稱設置為“ txtShowResult”。
根據需要設置字體和前色。
找到“ MultiLine”，並將其設置為“ True”。
找到“滾動條”，然後選擇一個垂直條。
接下來，再創建兩個標籤和文本框。
然後將第一個標籤命名為“ lblTotalLinks”，並將標題設置為“此文檔中的總鏈接”。
並將第二個標籤命名為“ lblNumberOfInvalidLinks”，並將標題設置為“無效鏈接數”。
將第一個文本框命名為“ txtTotalLinks”，第二個文本框命名為“ txtNumberOfInvalidLinks”。
然後在工具箱上找到命令按鈕控件。創建兩個命令按鈕，例如波紋管：
將第一個按鈕命名為“ cmdbtnClose”，其標題文本命名為“ Close”。
將第二個按鈕命名為“ btnCloseAndHighlightInvalidURLs”，其標題文本命名為“ Close＆Highlight Invalid URLs”。
接下來，分別雙擊“關閉”按鈕和“關閉並突出顯示無效的URL”按鈕。輸入代碼如下：