C#設(shè)置Word文本框中改變文字方向的方法

更新時間：2021年06月24日 09:04:54 作者：E-iceblue

在Word中可插入文本框，默認(rèn)情況下插入的文本框中的文字方向為橫向排列，對于一些特殊文檔的設(shè)計要求，需要改變文字方向，本文就詳細(xì)的介紹一下使用，感興趣的可以了解一下

在Word中可插入文本框，默認(rèn)情況下插入的文本框中的文字方向為橫向排列，對于一些特殊文檔的設(shè)計要求，需要改變文字方向，如本次測試中的文檔排版為考生試卷類型，考生信息欄的內(nèi)容為下圖中的這種，

本文將以C#程序代碼為例，展示如何來實現(xiàn)這種排版。另附VB.NET代碼供參考。

測試程序環(huán)境如下：

Visual Studio 2017
.net framework 4.8
Free spire.doc.dll 7.11
測試word文檔：.docx2013

關(guān)于dll安裝：在程序中通過nuget搜索Free Spire.Doc安裝即可。

設(shè)置文字方向時，可支持多種方式，如圖：

本次需要實現(xiàn)的目標(biāo)格式使用LeftToRight類型即可，如需設(shè)置豎排顯示則選擇LeftToRightRotated類型，其他文字旋轉(zhuǎn)類型同理。

C#

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

namespace SetTextDirection
{
    class Program
    {
        static void Main(string[] args)
        {
            //實例化document對象
            Document doc = new Document();

            //添加一個section
            Section section = doc.AddSection();

            //設(shè)置頁面邊距
            section.PageSetup.Margins.Left = 90;
            section.PageSetup.Margins.Right = 90;
            Paragraph paragraph = section.AddParagraph();

            //添加第一個文本框
            TextBox textBox1 = paragraph.AppendTextBox(section.PageSetup.Margins.Left - 20, section.PageSetup.PageSize.Height + 20);

            //設(shè)置文本框為固定定位
            textBox1.Format.HorizontalOrigin = HorizontalOrigin.Page;
            textBox1.Format.HorizontalPosition = 0;
            textBox1.Format.VerticalPosition = -10f;
            textBox1.Format.VerticalOrigin = VerticalOrigin.Page;

            //設(shè)置文字旋轉(zhuǎn)方向
            textBox1.Format.TextAnchor = ShapeVerticalAlignment.Center;
            textBox1.Format.LayoutFlowAlt = TextDirection.LeftToRight;//旋轉(zhuǎn)文字方向
            //textBox1.Format.LayoutFlowAlt = TextDirection.LeftToRightRotated;//豎排顯示       

            //添加文字并設(shè)置字體
            Paragraph textboxPara1 = textBox1.Body.AddParagraph();
            TextRange txtrg = textboxPara1.AppendText("姓名______________學(xué)號______________班級______________");
            txtrg.CharacterFormat.FontName = "等線";
            txtrg.CharacterFormat.FontSize = 10;
            txtrg.CharacterFormat.TextColor = Color.Black;
            textboxPara1.Format.HorizontalAlignment = HorizontalAlignment.Center;

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

VB.NET

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

Namespace SetTextDirection
         Class Program
                   Private Shared Sub Main(args As String())
                            '實例化document對象
                            Dim doc As New Document()

                            '添加一個section
                            Dim section As Section = doc.AddSection()

                            '設(shè)置頁面邊距
                            section.PageSetup.Margins.Left = 90
                            section.PageSetup.Margins.Right = 90
                            Dim paragraph As Paragraph = section.AddParagraph()


                            '添加第一個文本框
                            Dim textBox1 As TextBox = paragraph.AppendTextBox(section.PageSetup.Margins.Left - 20, section.PageSetup.PageSize.Height + 20)

                            '設(shè)置文本框為固定定位
                            textBox1.Format.HorizontalOrigin = HorizontalOrigin.Page
                            textBox1.Format.HorizontalPosition = 0
                            textBox1.Format.VerticalPosition = -10F
                            textBox1.Format.VerticalOrigin = VerticalOrigin.Page


                            '設(shè)置文字旋轉(zhuǎn)方向
                            textBox1.Format.TextAnchor = ShapeVerticalAlignment.Center
                            textBox1.Format.LayoutFlowAlt = TextDirection.LeftToRight'旋轉(zhuǎn)文字方向
                            'textBox1.Format.LayoutFlowAlt = TextDirection.LeftToRightRotated; '豎排顯示


                            '添加文字并設(shè)置字體
                            Dim textboxPara1 As Paragraph = textBox1.Body.AddParagraph()
                            Dim txtrg As TextRange = textboxPara1.AppendText("姓名______________學(xué)號______________班級______________")
                            txtrg.CharacterFormat.FontName = "等線"
                            txtrg.CharacterFormat.FontSize = 10
                            txtrg.CharacterFormat.TextColor = Color.Black
                            textboxPara1.Format.HorizontalAlignment = HorizontalAlignment.Center


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

到此這篇關(guān)于C#設(shè)置Word文本框中改變文字方向的方法的文章就介紹到這了,更多相關(guān)C# Word改變文字方向內(nèi)容請搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家！

您可能感興趣的文章: