Hogyan lehet hyperlinkesíteni wordben makróval?

Sub AutoHyperlinkAllFilePaths()

    Do

        Selection.Find.ClearFormatting

        With Selection.Find

            .Text = "[A-z]:\\*\\*.*>"

            .Replacement.Text = ""

            .Forward = True

            .Wrap = wdFindStop

            .Format = False

            .MatchCase = False

            .MatchWholeWord = False

            .MatchByte = False

            .MatchAllWordForms = False

            .MatchSoundsLike = False

            .MatchWildcards = True

        End With

        Selection.Find.Execute

        If Selection.Find.Found Then

        Else

            Exit Do

        End If

        Selection.Copy

        Dim FilePath

        FilePath = Selection.Text

        On Error Resume Next

        Err.Clear

        Dim fs, f, s

        Set fs = CreateObject("Scripting.FileSystemObject")

        Set f = fs.GetFile(FilePath)

        s = f.DateCreated

        If Err.Number = 0 Then ' Hyperlink only existing files.

            If Selection.Range.Hyperlinks.Count = 0 Then

                ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _

                    FilePath, SubAddress:="", ScreenTip:="", TextToDisplay:= _

                    FilePath

            End If

        End If

        f.Close

    Loop

End Sub