PM> Install-Package Spire.PDF

using Spire.Pdf;
using Spire.Pdf.Actions;
using Spire.Pdf.Interactive.Annotations;
using Spire.Pdf.Texts;
using System.Drawing;

namespace ChangeHyperlink
{
    internal class Program
    {
        static void Main(string[] args)
        {
            //创建一个PdfDocument的对象
            PdfDocument pdf = new PdfDocument();

            //载入PDF文件
            pdf.LoadFromFile("示例.pdf");

            //获取文档第一页
            PdfPageBase page = pdf.Pages[0];

            //创建一个PdfTextFinder的对象并设置查找器选项
            PdfTextFinder finder = new PdfTextFinder(page);
            finder.Options.Parameter = TextFindParameter.WholeWord;

            //在页面中查找指定文本并获取第二个查找结果
            List<PdfTextFragment> collection = finder.Find("气候变化");
            PdfTextFragment fragment = collection[1];

            //循环遍历第二个查找结果的文本范围
            foreach (RectangleF bounds in fragment.Bounds)
            {
               /创建一个PdfLinkAnnotation对象，并指定其PdfURIAction动作
                PdfURIAction act = new PdfURIAction("https://www.ccchina.org.cn/");
                PdfLinkAnnotation url = new PdfLinkAnnotation(page, bounds, act);

                //设置超链接的边框
                url.Border.Width = 1f;
                //设置边框颜色
                url.Color = Color.Blue;
                //将超链接插入到页面上
                page.AnnotationsV2.Add(url);
            }

            //保存PDF文件
            pdf.SaveToFile("添加超链接.pdf");
            pdf.Dispose();
        }
    }

}

Imports System.Drawing
Imports Spire.Pdf
Imports Spire.Pdf.Actions
Imports Spire.Pdf.Texts

Namespace ChangeHyperlink
    Friend Class Program
        Shared Sub Main(ByVal args() As String)
            '创建一个PdfDocument的对象
            Dim pdf As PdfDocument = New PdfDocument()

            '载入PDF文件
            pdf.LoadFromFile("示例.pdf")

            '获取文档第一页
            Dim page As PdfPageBase = pdf.Pages(0)

            '创建一个PdfTextFinder的对象并设置查找器选项
            Dim finder As PdfTextFinder = New PdfTextFinder(page)
            finder.Options.Parameter = TextFindParameter.WholeWord

            '在页面中查找指定文本并获取第二个查找结果
            Dim collection As List(Of PdfTextFragment) = finder.Find("气候变化")
            Dim fragment As PdfTextFragment = collection(1)

            '循环遍历第二个查找结果的文本范围
            Dim bounds As RectangleF
            For Each bounds In fragment.Bounds
                '创建一个PdfLinkAnnotation对象，并指定其PdfURIAction动作
                Dim act As New PdfURIAction("https://www.ccchina.org.cn/")
                Dim url As New Interactive.Annotations.PdfLinkAnnotation(page, bounds, act)
                '设置超链接的边框宽度
                url.Border.Width = 1.0F
                '设置边框颜色
                url.Color = Color.Blue
                '将超链接插入到页面的注释集中
                page.AnnotationsV2.Add(url)
            Next

            '保存PDF文件
            pdf.SaveToFile("添加超链接.pdf")
            pdf.Dispose()
        End Sub
    End Class
End Namespace