using System;
using Spire.Doc;
using Spire.Doc.Documents;
using Spire.Doc.Fields;

namespace changecase
{
class Program
{
static void Main(string[] args)
{
//Create a new document and load from file
string input = @"D:\testp\test.docx"; ;
Document doc = new Document();
doc.LoadFromFile(input);
TextRange textRange;
//Get the second paragraph and set its characters to AllCaps
Paragraph para1 = doc.Sections[0].Paragraphs[2];

foreach (DocumentObject obj in para1.ChildObjects)
{
if (obj is TextRange)
{
textRange = obj as TextRange;
textRange.CharacterFormat.AllCaps = true;
}
}

//Get the third paragraph and set its characters to IsSmallCaps
Paragraph para2 = doc.Sections[0].Paragraphs[3];
foreach (DocumentObject obj in para2.ChildObjects)
{
if (obj is TextRange)
{
textRange = obj as TextRange;
textRange.CharacterFormat.IsSmallCaps = true;
}
}

//Save the document to a new Word file
string output = "ChangeCase.docx";
doc.SaveToFile(output, FileFormat.Docx2013);
}
}
}

【VB.NET】

Imports System
Imports Spire.Doc
Imports Spire.Doc.Documents
Imports Spire.Doc.Fields

Module Program
Sub Main(args As String())
' Create a new document and load from file
Dim input As String = "D:\testp\test.docx"

Dim doc As New Document()
doc.LoadFromFile(input)
Dim textRange As TextRange
'Get the second paragraph and set its character to AllCaps
Dim para1 As Paragraph = doc.Sections(0).Paragraphs(2)

For Each obj As DocumentObject In para1.ChildObjects
If TypeOf obj Is TextRange Then
textRange = TryCast(obj, TextRange)
textRange.CharacterFormat.AllCaps = True
End If
Next obj

'Get the third paragraph and set its character to IsSmallCaps
Dim para2 As Paragraph = doc.Sections(0).Paragraphs(3)
For Each obj As DocumentObject In para2.ChildObjects
If TypeOf obj Is TextRange Then
textRange = TryCast(obj, TextRange)
textRange.CharacterFormat.IsSmallCaps = True
End If
Next obj

'Save the document to a new Word file
Dim output As String = "ChangeCase.docx"
doc.SaveToFile(output, FileFormat.Docx2013)
End Sub
End Module

以上便是在spire.doc中如何在 Word 中將文本大小寫更改為全部大寫，如果您有其他問題也可以繼續瀏覽本系列文章，獲取相關教程，你還可以給我留言或者加入我們的官方技術交流群。

歡迎下載|體驗更多E-iceblue產品