C#/VB.NET：Word で強調マークを適用する方法

PM> Install-Package Spire.Doc

using Spire.Doc;
using Spire.Doc.Documents;

namespace applyemphasismark
{
    class Program
    {
        static void Main(string[] args)
        {
            //ドキュメントインスタンスを作成する
            Document document = new Document();

            //ディスクからWord文書をロードする
            document.LoadFromFile(@"C:\Users\Administrator\Desktop\sample.docx");

            //強調したいテキストを探す
            TextSelection[] textSelections = document.FindAllString("Spire.Doc for .NET", false, true);

            //見つかったテキストに強調マークを付ける
            foreach (TextSelection selection in textSelections)
            {
                selection.GetAsOneRange().CharacterFormat.EmphasisMark = Emphasis.DotBelow;
            }

            //ドキュメントを別のWordファイルに保存する
            string output = "ApllyEmphasisMark.docx";
            document.SaveToFile(output, FileFormat.Docx);
        }
    }
}

Imports Spire.Doc
Imports Spire.Doc.Documents
 
Namespace applyemphasismark
    Class Program
        Shared  Sub Main(ByVal args() As String)
            'ドキュメントインスタンスを作成する
            Dim document As Document =  New Document() 
 
            'ディスクからWord文書をロードする
            document.LoadFromFile("C:\Users\Administrator\Desktop\sample.docx")
 
            '強調したいテキストを探す
            Dim textSelections() As TextSelection =  document.FindAllString("Spire.Doc for .NET",False,True) 
 
            '見つかったテキストに強調マークを付ける
            Dim selection As TextSelection
            For Each selection In textSelections
                selection.GetAsOneRange().CharacterFormat.EmphasisMark = Emphasis.DotBelow
            Next
 
            'ドキュメントを別のWordファイルに保存する
            Dim output As String =  "ApllyEmphasisMark.docx" 
            document.SaveToFile(output, FileFormat.Docx)
        End Sub
    End Class
End Namespace