C# 设置Word文本框中的文字旋转方向

在Word中可插入文本框,默认情况下插入的文本框中的文字方向为横向排列,对于一些特殊文档的设计要求,需要改变文字方向,如本次测试中的文档排版为考生试卷类型,考生信息栏的内容为下图中的这种,

本文将以C#程序代码为例,展示如何来实现这种排版。另附VB.NET代码供参考。

 

测试程序环境如下:

关于dll安装:在程序中通过nuget搜索Free Spire.Doc安装即可。

 

设置文字方向时,可支持多种方式,如图:

本次需要实现的目标格式使用LeftToRight类型即可,如需设置竖排显示则选择LeftToRightRotated类型,其他文字旋转类型同理。

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();

            //设置页面边距
            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);

            //设置文本框为固定定位
            textBox1.Format.HorizontalOrigin = HorizontalOrigin.Page;
            textBox1.Format.HorizontalPosition = 0;
            textBox1.Format.VerticalPosition = -10f;
            textBox1.Format.VerticalOrigin = VerticalOrigin.Page;

            //设置文字旋转方向
            textBox1.Format.TextAnchor = ShapeVerticalAlignment.Center;
            textBox1.Format.LayoutFlowAlt = TextDirection.LeftToRight;//旋转文字方向
            //textBox1.Format.LayoutFlowAlt = TextDirection.LeftToRightRotated;//竖排显示       

            //添加文字并设置字体
            Paragraph textboxPara1 = textBox1.Body.AddParagraph();
            TextRange txtrg = textboxPara1.AppendText("姓名______________学号______________班级______________");
            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()

                            '设置页面边距
                            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)

                            '设置文本框为固定定位
                            textBox1.Format.HorizontalOrigin = HorizontalOrigin.Page
                            textBox1.Format.HorizontalPosition = 0
                            textBox1.Format.VerticalPosition = -10F
                            textBox1.Format.VerticalOrigin = VerticalOrigin.Page


                            '设置文字旋转方向
                            textBox1.Format.TextAnchor = ShapeVerticalAlignment.Center
                            textBox1.Format.LayoutFlowAlt = TextDirection.LeftToRight'旋转文字方向
                            'textBox1.Format.LayoutFlowAlt = TextDirection.LeftToRightRotated; '竖排显示


                            '添加文字并设置字体
                            Dim textboxPara1 As Paragraph = textBox1.Body.AddParagraph()
                            Dim txtrg As TextRange = textboxPara1.AppendText("姓名______________学号______________班级______________")
                            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
复制代码

 

—End—

 

posted @   E-iceblue  阅读(1130)  评论(1编辑  收藏  举报
编辑推荐:
· 一个奇形怪状的面试题:Bean中的CHM要不要加volatile?
· [.NET]调用本地 Deepseek 模型
· 一个费力不讨好的项目,让我损失了近一半的绩效!
· .NET Core 托管堆内存泄露/CPU异常的常见思路
· PostgreSQL 和 SQL Server 在统计信息维护中的关键差异
阅读排行:
· DeepSeek “源神”启动!「GitHub 热点速览」
· 我与微信审核的“相爱相杀”看个人小程序副业
· 上周热点回顾(2.17-2.23)
· 如何使用 Uni-app 实现视频聊天(源码,支持安卓、iOS)
· C# 集成 DeepSeek 模型实现 AI 私有化(本地部署与 API 调用教程)
历史上的今天:
2020-06-23 Java 在PDF中添加文本水印、图片水印(基于Spire.Cloud.SDK for Java)
2015-06-23 关于CLR、CIL、CTS、CLS、CLI、BCL和FCL 的区分与总结
点击右上角即可分享
微信分享提示