Word macro to check url exists

Hi Macropod
It is a particular URL that is in my company intranet. The URL have to be a working hyperlink. Thanks for the help.

Here's a Word VBA macro that checks if URLs exist in the document and displays a message if a URL is not found:

mathematica
Copy code
Sub CheckURLs()

Dim i As Integer
Dim URL As Hyperlink
Dim URLFound As Boolean

Set URLFound to False by default
URLFound = False

Loop through all hyperlinks in the document
For Each URL In ActiveDocument.Hyperlinks
If InStr(1, URL.Address, "http") > 0 Then
URLFound = True
Exit For
End If
Next URL

' Display a message if no URLs were found
If URLFound = False Then
MsgBox "No URLs were found in this document."
ActiveDocument.Close False
End If

End Sub
To use this macro, follow these steps:

Open the Word document that you want to check for URLs.
Press Alt + F11 to open the Visual Basic Editor.
In the Visual Basic Editor, click Insert > Module.
Paste the macro code into the new module.
Press F5 to run the macro.
The macro will loop through all hyperlinks in the document and check if the address starts with "http". If it finds a URL, it will set URLFound to True and exit the loop. If no URLs are found, it will display a message and close the document.