Vba全面修改Word段落属性有效代码

2024-10-31

下面的WAPP是事先定义的word文档工程变量。

以下代码为通过VBA代码修改Word段落的缩进、段落间距、行距、分页等。

//段落格式设定

WApp.Selection.ParagraphFormat.LeftIndent = WApp.CentimetersToPoints(float.Parse("0"));//左缩进

WApp.Selection.ParagraphFormat.RightIndent = WApp.CentimetersToPoints(float.Parse("0"));//右缩进

WApp.Selection.ParagraphFormat.SpaceBefore =float.Parse("0");//段前间距

WApp.Selection.ParagraphFormat.SpaceBeforeAuto =0;//

WApp.Selection.ParagraphFormat.SpaceAfter = float.Parse("0");//段后间距

WApp.Selection.ParagraphFormat.SpaceAfterAuto = 0;//

WApp.Selection.ParagraphFormat.LineSpacingRule = Microsoft.Office.Interop.Word.WdLineSpacing.wdLineSpaceSingle;//单倍行距

WApp.Selection.ParagraphFormat.Alignment = Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphJustify;//段落2端对齐

WApp.Selection.ParagraphFormat.WidowControl = 0;//孤行控制

WApp.Selection.ParagraphFormat.KeepWithNext = 0;//与下段同页

WApp.Selection.ParagraphFormat.KeepTogether = 0;//段中不分页

WApp.Selection.ParagraphFormat.PageBreakBefore = 0;//段前分页

WApp.Selection.ParagraphFormat.NoLineNumber = 0;//取消行号

WApp.Selection.ParagraphFormat.Hyphenation = 1;//取消段字

WApp.Selection.ParagraphFormat.FirstLineIndent = WApp.CentimetersToPoints(float.Parse("0"));//首行缩进

WApp.Selection.ParagraphFormat.OutlineLevel = Microsoft.Office.Interop.Word.WdOutlineLevel.wdOutlineLevelBodyText;

WApp.Selection.ParagraphFormat.CharacterUnitLeftIndent = float.Parse("0");

WApp.Selection.ParagraphFormat.CharacterUnitRightIndent = float.Parse("0");

WApp.Selection.ParagraphFormat.CharacterUnitFirstLineIndent = float.Parse("0");

WApp.Selection.ParagraphFormat.LineUnitBefore = float.Parse("0");

WApp.Selection.ParagraphFormat.LineUnitAfter = float.Parse("0");

WApp.Selection.ParagraphFormat.AutoAdjustRightIndent = 1;

WApp.Selection.ParagraphFormat.DisableLineHeightGrid =0;

WApp.Selection.ParagraphFormat.FarEastLineBreakControl =1;

WApp.Selection.ParagraphFormat.WordWrap = 1;

WApp.Selection.ParagraphFormat.HangingPunctuation = 1;

WApp.Selection.ParagraphFormat.HalfWidthPunctuationOnTopOfLine = 0;

WApp.Selection.ParagraphFormat.AddSpaceBetweenFarEastAndAlpha = 1;

WApp.Selection.ParagraphFormat.AddSpaceBetweenFarEastAndDigit = 1;

WApp.Selection.ParagraphFormat.BaseLineAlignment = Microsoft.Office.Interop.Word.WdBaselineAlignment.wdBaselineAlignAuto;

TAG：

上一篇 : VBA批量替换多个WORD文档中的内容

下一篇 : #实践笔记#本地配置PHPnow与WordPress运行环境

文章标签

文档加密软件

文档信息安全管理软件

上网行为管理软件

应用程序管控软件

敏感文件管理软件

U盘设备管控软件

文件分发软件

IT资产管理软件

电脑操作记录软件

远程控制软件

聊天管控软件

敏感信息报警

屏幕管控

内网管理

深度行为分析

电脑屏幕录像

实时管控

补丁管理

网络准入控制管理系统