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