C# 給Word中的字元新增強調符號（著重號）

iceblue發表於2022-05-19
C#字元符號

在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—

 

相關文章