c#/vb.net word 中更改英文文本为全部大写-人生就是博尊龙凯时

pm> install-package spire.doc

using system;
using spire.doc;
using spire.doc.documents;
using spire.doc.fields;
namespace changecase
{
    class program
    {
        static void main(string[] args)
        {
            // 创建 document 的对象，并从文件中载入 word 文档
            string input = @"d:\testp\示例.docx"; ;
            document doc = new document();
            doc.loadfromfile(input);
            textrange textrange;
            // 获取第二段文本并将其设置为 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;
                }
            }
            // 获取第三段文本并将其设置为 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;
                }
            }
            //保存文档到新的 word 文件
            string output = "改为全部大写.docx";
            doc.savetofile(output, fileformat.docx2013);
        }
    }
}

imports system
imports spire.doc
imports spire.doc.documents
imports spire.doc.fields
module program
    sub main(args as string())
        ' 创建 document 的对象，并从文件中载入 word 文档
        dim input as string = "d:\testp\示例.docx"
        dim doc as new document()
        doc.loadfromfile(input)
        dim textrange as textrange
        '获取第二段文本并将其设置为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
        '获取第三段文本并将其设置为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
        '保存文档到新的 word 文件
        dim output as string = "改为全部大写.docx"
        doc.savetofile(output, fileformat.docx2013)
    end sub
end module