利用C#實現在Word中更改字型顏色

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

namespace ChangeFontColorForParagraph
{
    class Program
    {
        static void Main(string[] args)
        {
            //建立一個Document範例
            Document document = new Document();
            //Load a Word document
            document.LoadFromFile("生死疲勞.docx");

            //獲取第一節
            Section section = document.Sections[0];

            //更改第一段文字顏色
            Paragraph p1 = section.Paragraphs[0];
            ParagraphStyle s1 = new ParagraphStyle(document);
            s1.Name = "Color1";
            s1.CharacterFormat.TextColor = Color.Blue;
            document.Styles.Add(s1);
            p1.ApplyStyle(s1.Name);

            //更改第二段文字顏色
            Paragraph p2 = section.Paragraphs[1];
            ParagraphStyle s2 = new ParagraphStyle(document);
            s2.Name = "Color2";
            s2.CharacterFormat.TextColor = Color.Green;
            document.Styles.Add(s2);
            p2.ApplyStyle(s2.Name);

            //儲存結果檔案
            document.SaveToFile("更改段落字型顏色.docx", FileFormat.Docx);
        }
    }
}

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

Namespace ChangeFontColorForParagraph
    Friend Class Program
        Private Shared Sub Main(ByVal args As String())
            '建立一個Document範例
            Dim document As Document = New Document()
            'Load a Word document
            document.LoadFromFile("生死疲勞.docx")

            '獲取第一節
            Dim section As Section = document.Sections(0)

            '更改第一段文字顏色
            Dim p1 As Paragraph = section.Paragraphs(0)
            Dim s1 As ParagraphStyle = New ParagraphStyle(document)
            s1.Name = "Color1"
            s1.CharacterFormat.TextColor = Color.Blue
            document.Styles.Add(s1)
            p1.ApplyStyle(s1.Name)

            '更改第二段文字顏色
            Dim p2 As Paragraph = section.Paragraphs(1)
            Dim s2 As ParagraphStyle = New ParagraphStyle(document)
            s2.Name = "Color2"
            s2.CharacterFormat.TextColor = Color.Green
            document.Styles.Add(s2)
            p2.ApplyStyle(s2.Name)

            '儲存結果檔案
            document.SaveToFile("更改段落字型顏色.docx", FileFormat.Docx)
        End Sub
    End Class
End Namespace

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

namespace ChangeFontColorForText
{
    class Program
    {
        static void Main(string[] args)
        {
            //建立一個Document範例
            Document document = new Document();
            //載入 Word 檔案
            document.LoadFromFile("生死疲勞.docx");

            //查詢指定文字
            TextSelection[] text = document.FindAllString("生死疲勞", false, true);

            //更改特定文字的字型顏色
            foreach (TextSelection seletion in text)
            {
                seletion.GetAsOneRange().CharacterFormat.TextColor = Color.HotPink;
            }

            //儲存結果檔案
            document.SaveToFile("更改特定文字字型顏色.docx", FileFormat.Docx);
        }
    }
}

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

Namespace ChangeFontColorForText
    Friend Class Program
        Private Shared Sub Main(ByVal args As String())
            '建立一個Document範例
            Dim document As Document = New Document()
            '載入 Word 檔案
            document.LoadFromFile("生死疲勞.docx")

            '查詢指定文字
            Dim text As TextSelection() = document.FindAllString("生死疲勞", False, True)

            '更改特定文字的字型顏色
            For Each seletion As TextSelection In text
                seletion.GetAsOneRange().CharacterFormat.TextColor = Color.HotPink
            Next

            '儲存結果檔案
            document.SaveToFile("更改特定文字字型顏色.docx", FileFormat.Docx)
        End Sub
    End Class
End Namespace