PM> Install-Package Spire.PDF

using Spire.Pdf;
using Spire.Pdf.Texts;
using System.Collections.Generic;
using System.Drawing;

namespace HighlightTextInPdf
{
    internal class Program
    {
        static void Main(string[] args)
        {
            //创建PdfDocument的对象
            PdfDocument pdf = new PdfDocument();
            //载入PDF文档
            pdf.LoadFromFile("C:/示例.pdf");

            //创建PdfTextFindOptions的对象
            PdfTextFindOptions findOptions = new PdfTextFindOptions();
            //设置文本查找参数
            findOptions.Parameter = TextFindParameter.WholeWord;

            //循环遍历文档中的页面
            foreach (PdfPageBase page in pdf.Pages)
            {
                //创建PdfTextFinder的对象
                PdfTextFinder finder = new PdfTextFinder(page);
                //设置文本查找选项
                finder.Options = findOptions;
                //查找指定文本
                List<PdfTextFragment> results = finder.Find("永恒的宇宙");
                //突出显示查找到的所有指定文本
                foreach (PdfTextFragment text in results)
                {
                    text.HighLight(Color.GreenYellow);
                }
            }

            //保存文档
            pdf.SaveToFile("突出显示文本.pdf");
        }
    }
}

Imports Spire.Pdf
Imports Spire.Pdf.Exporting.XPS.Schema
Imports Spire.Pdf.Texts
Imports System.Collections.Generic
Imports System.Drawing

Namespace HighlightTextInPdf
    Friend Class Program
        Shared Sub Main(ByVal args() As String)
            '创建PdfDocument的对象
            Dim pdf As PdfDocument = New PdfDocument()
            '载入PDF文档
            pdf.LoadFromFile("C:/示例.pdf")

            '创建PdfTextFindOptions的对象
            Dim findOptions As PdfTextFindOptions = New PdfTextFindOptions()
            '设置文本查找参数
            findOptions.Parameter = TextFindParameter.WholeWord

            '循环遍历文档中的页面
            Dim page As PdfPageBase
            For Each page In pdf.Pages
                '创建PdfTextFinder的对象
                Dim finder As PdfTextFinder = New PdfTextFinder(page)
                '设置文本查找选项
                finder.Options = findOptions
                '查找指定文本
                Dim results As List<PdfTextFragment>=  finder.Find("永恒的宇宙") 
                '突出显示查找到的所有指定文本
                Dim text As PdfTextFragment
                For Each text In results
                    text.HighLight(Color.GreenYellow)
                Next
            Next

            '保存文档
            pdf.SaveToFile("突出显示文本.pdf")
        End Sub
    End Class
End Namespace