C# 给Word中的字符添加强调符号（着重号）

在Word中添加着重号，即强调符号，可以在选中字符后，鼠标右键点击，选择“字体”，在窗口中可直接选择“着重号”添加到文字，用以对重要文字内容起加强提醒的目的，如下图：

通过C#，我们可以查找到需要添加着重号的字符串，然后通过字符串格式的属性值来添加符号。下面，将对此做详细介绍。

 

【引入dll】

方法1：手动引入。

将 Free Spire.Doc for .NET 下载到本地，解压，安装。安装完成后，找到安装路径下BIN文件夹中的Spire.Doc.dll。然后在Visual Studio中打开“解决方案资源管理器”，鼠标右键点击“引用”，“添加引用”，将本地路径BIN文件夹下的dll文件添加引用至程序。

方法2：NuGet安装（2种方法）。

（1）可以在Visual Studio中打开“解决方案资源管理器”，鼠标右键点击“引用”，“管理NuGet包”，然后搜索“Free Spire.Doc”，点击“安装”。等待程序安装完成。

（2）将以下内容复制到PM控制台安装：

Install-Package FreeSpire.Doc -Version 10.2.0

 

【添加强调符号】

代码步骤如下，可参考该步骤来实现添加符号：

  • 创建 Document 类的对象。
  • 用 Document.LoadFromFile() 方法从本地加载Word文档。
  • 用Document.FindAllString()方法查找指定文本字符串。
  • 通过CharacterFormat.EmphasisMark属性添加强调符号到字符串。
  • 用Document.SaveToFile()方法保存文档为新的Word文档。

C#

using Spire.Doc;
using Spire.Doc.Documents;
using System.Drawing;

namespace EmphasisMark
{
    class Program
    {
        static void Main(string[] args)
        {
            //创建Document对象
            Document document = new Document();

            //加载Word文档
            document.LoadFromFile("sample.docx");

            //查找指定字符串
            TextSelection[] textSelections = document.FindAllString("分析报告", false, true);

            //添加强调符号到字符串
            foreach (TextSelection selection in textSelections)
            {
                selection.GetAsOneRange().CharacterFormat.EmphasisMark = Emphasis.DotBelow;
            }

            //保存文档
            document.SaveToFile("Result.docx", FileFormat.Docx2013);
            System.Diagnostics.Process.Start("Result.docx");
        }
    }
}

vb.net

Imports Spire.Doc
Imports Spire.Doc.Documents
Imports System.Drawing

Namespace EmphasisMark
    Class Program
        Private Shared Sub Main(args As String())
            '创建Document对象
            Dim document As New Document()

            '加载Word文档
            document.LoadFromFile("sample.docx")

            '查找指定字符串
            Dim textSelections As TextSelection() = document.FindAllString("分析报告", False, True)

            '添加强调符号到字符串
            For Each selection As TextSelection In textSelections
                selection.GetAsOneRange().CharacterFormat.EmphasisMark = Emphasis.DotBelow
            Next

            '保存文档
            document.SaveToFile("Result.docx", FileFormat.Docx2013)
            System.Diagnostics.Process.Start("Result.docx")
        End Sub
    End Class
End Namespace

添加效果：

 

 —End—

 

Tags:

VirMach 便宜 VPS

QNews

QNews