fastnest怎么一键排版_一个简单的宏实现一键排版（整理复盘）

[TOC]

宏和VBA的区别

宏是一个或多个指令的集合，控制word执行一连串的操作

VBA是高级语言，通过面向对象的方法来完成宏不能完成的工作。

VBA宏会被VB编辑器记录为一个VBA过程

一键排版宏举例

Sub typeset()

'

' typeset 宏

' Author : 李佳成

' Time : 2018.5.1

'

'

' 清除格式

Selection.WholeStory

Selection.ClearParagraphDirectFormatting

On Error Resume Next

' 首行缩进

With Selection.ParagraphFormat

.LeftIndent = CentimetersToPoints(0)

.RightIndent = CentimetersToPoints(0)

.SpaceBefore = 0

.SpaceBeforeAuto = False

.SpaceAfter = 0

.SpaceAfterAuto = False

.LineSpacingRule = wdLineSpaceSingle

.Alignment = wdAlignParagraphJustify

.WidowControl = False

.KeepWithNext = False

.KeepTogether = False

.PageBreakBefore = False

.NoLineNumber = False

.Hyphenation = True

.FirstLineIndent = CentimetersToPoints(0)

.OutlineLevel = wdOutlineLevelBodyText

.CharacterUnitLeftIndent = 0

.CharacterUnitRightIndent = 0

.CharacterUnitFirstLineIndent = 2

.LineUnitBefore = 0

.LineUnitAfter = 0

.MirrorIndents = False

.TextboxTightWrap = wdTightNone

.AutoAdjustRightIndent = True

.DisableLineHeightGrid = False

.FarEastLineBreakControl = True

.WordWrap = True

.HangingPunctuation = True

.HalfWidthPunctuationOnTopOfLine = False

.AddSpaceBetweenFarEastAndAlpha = True

.AddSpaceBetweenFarEastAndDigit = True

.BaseLineAlignment = wdBaselineAlignAuto

End With

' 清除段落前后空格

For a = 1 To ActiveDocument.Paragraphs.Count

Set sutRng = ActiveDocument.Paragraphs(a).Range

sutRng.MoveEnd wdCharacter, -1

sutRng.Text = Trim(sutRng.Text)

sutRng.MoveEnd wdCharacter, 1

ActiveDocument.Paragraphs(a).Range.Text = sutRng.Text

Next a

' 清除空行，空格

Dim i As Paragraph, n As