Word一键排版宏

Sub 自动排版()
'
' 自动排版 宏
'
'
    Application.ScreenUpdating = False
    '更改所有硬回车为软回车
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^l"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    '去除所有空行
    Dim i As Paragraph, n As Integer
    Application.ScreenUpdating = False
    For Each i In ActiveDocument.Paragraphs
    If Len(i.Range) = 1 Then
    i.Range.Delete
    n = n + 1
    End If
    Next
    Application.ScreenUpdating = True
    '去除半角空格
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " "
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    '去除全角空格
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "　"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    '替换非标准引号为标准引号
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = """(*)"""
        .Replacement.Text = ChrW(8220) & "\1" & ChrW(8221)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    '字母数字符号全角转半角 Macro
    Dim qjsz, bjsz As String, iii As Integer '定义qjsz(全角数字)、bjsz(半角数字)为字符串型，iii为整数型
        qjsz = "０１２３４５６７８９ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ,./<>?;’:[]{}\|=-+_)(*%$#@!`~&"
        bjsz = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ，。／《》？；'：【】｛｝＼｜＝－＋＿）（×％＄＃＠！'～＆"
        Selection.WholeStory
    For iii = 1 To 95 '循环10次
    With Selection.Find
       .Text = Mid(qjsz, iii, 1) 'mid函数：返回文本字符串中从指定位置开始的特定数目的字符，每次取一个数字
       .Replacement.Text = Mid(bjsz, iii, 1) '将用于替换的相应位置的半角数字
       .Format = False '保留替换前的字符格式
       .MatchWildcards = False
       .Execute Replace:=wdReplaceAll '用半角符号替换全角符号
    End With
    Next iii
    '修改小数点错误
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "([0-9])。([0-9])"
        .Replacement.Text = "\1.\2"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    '设置字号
    Selection.WholeStory  '全选
    Selection.ClearFormatting  '清除全文格式
    Selection.Font.Size = 14  '设置字号为14号
    '设置行距
    Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceExactly
    Selection.ParagraphFormat.LineSpacing = 25
    Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify  '设置文本为两端对齐
    Selection.ParagraphFormat.CharacterUnitFirstLineIndent = 2  '设置段首缩进2字符
    Selection.HomeKey Unit:=wdStory  '移至文首
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend  '选中首行
    Selection.ClearFormatting  '清除首行格式
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter  '设置首行居中对齐
    Selection.ParagraphFormat.LineUnitBefore = 1  '设置首行段前间距1行
    Selection.ParagraphFormat.LineUnitAfter = 1  '设置首行段后间距1行
    Selection.Font.Name = "微软雅黑"  '设置首行字体为“微软雅黑”
    Selection.Font.Size = 18  '设置首行字号为18号
    Selection.Font.Bold = wdToggle  '设置首行字形为加粗
    Application.ScreenUpdating = True
    MsgBox "文本整理完毕", , "真特么好用，哈哈哈。"

End Sub



 

	

作者 |  易雪龙
来源 | Word联盟(ID：Wordlm)
许多文档都有着不同的样式规定，字体、字号、颜色等。根据不同的文档规范，我们可以创建特定的样式集，要用的时候，只需一键，就能够轻松搞定排版，非常方便！
来看看我是如何一键排版的吧！下图是默认文档格式。
快速进行排版。
看下效果！
设置标题1
创建标题1样式，进入「开始」-「样式」-「创建样式」，设置好名称后「修改」，在这里我们设置「样式基准」为“无样式”，然后再来设置字体、字号、颜色等格式。(根据自己所需来设置)
设置标题2
创建标题2样式，同样的方式，我们在来创建标题2，设置样式。
创建编号
文中如果出现编号，那么我们需要设定成什么样的格式？我们事先在这里设置好。
正文样式
设置好字体、颜色、字号后，我们可以进入「格式」-「段落」，添加一个“首行缩进”。
保存样式
将标题、正文、编号等所有的样式全部设定好后，我们可以进入「设计」-「文档格式」点击下拉三角按钮，选中「另存为新样式集」，命名，保存一下即可。
如何使用样式？
如何使用我们创建的样式？创建一个新文档，可以看到默认情况下，是没有我们先前做好的样式集。我们可以进入「设计」-「文档格式」，点击下拉选项按钮，在「自定义」中，可以看到我们命名的样式，点击一下。再回到「开始」-「样式」中，就有了。
一键排版
看看利用设置好的样式集来排版，多么方便！
小能手说：今天的分享就到这里了，都学会了吗？

	

快点这里订阅最有趣有料的3D/VR/AR/Ai数字化资讯
许多文档都有着不同的样式规定，字体、字号、颜色等。根据不同的文档规范，我们可以创建特定的样式集，要用的时候，只需一键，就能够轻松搞定排版，非常方便！
来看看我是如何一键排版的吧！下图是默认文档格式。
快速进行排版。
看下效果！
01设置标题1
创建标题1样式，进入「开始」-「样式」-「创建样式」，设置好名称后「修改」，在这里我们设置「样式基准」为“无样式”，然后再来设置字体、字号、颜色等格式。(根据自己所需来设置)
02设置标题2
创建标题2样式，同样的方式，我们在来创建标题2，设置样式。
03创建编号
文中如果出现编号，那么我们需要设定成什么样的格式？我们事先在这里设置好。
04正文样式
设置好字体、颜色、字号后，我们可以进入「格式」-「段落」，添加一个“首行缩进”。
05保存样式
将标题、正文、编号等所有的样式全部设定好后，我们可以进入「设计」-「文档格式」点击下拉三角按钮，选中「另存为新样式集」，命名，保存一下即可。
06如何使用样式？
如何使用我们创建的样式？创建一个新文档，可以看到默认情况下，是没有我们先前做好的样式集。我们可以进入「设计」-「文档格式」，点击下拉选项按钮，在「自定义」中，可以看到我们命名的样式，点击一下。再回到「开始」-「样式」中，就有了。
07一键排版
看看利用设置好的样式集来排版，多么方便！
——【END】——
3D大赛• 创新中国•数字宣言
▼
VR|AR|3D打印|CPS等数字化技术
与3D大赛资讯分享平台
有趣！有料！
长按扫码可关注
戳

在工作和生活中，我们总是要不断的收集很多文章和资料，但是经常格式混乱，一堆乱码，这个时候要是一个个去修改排版，非常浪费时间，这篇文章例举出5个一键排版工具和1个常用有效的文章排版办法，有一款工具是智能化一键修改，非常方便和节省时间和精力，适合大众需要。这些工具都是免费的。
haoii123
是一款在线排版工具，拥有一键排版，删除空行，添加空行，文章字数统计的功能，可以实现论文自动排版，文字自动排版，文字排版，网页排版的功能。是国内首款安全、无广告的排版工具。
悦读文排版工具
是一款在线优秀的一键安全、无广告的排版工具，功能比haoli123多一些，具有：清除HTML格式、自动排版、添加空行、替换标点、检查错别字、简->繁字体转换、统计字数的功能，实用性很强。
小发猫Al智能写作
智能AI排版工具，比前两个更加智能化，真的是一键修改，智能写作助手，对于自媒体人员和专职写手来说是巨大的福利。小发猫文章最高输入是1300个字，对于大部分人是满足需求了，对于一些经常写1500以上的人来说，可以分为两次或者使用其它几款吧。
在线排版工具1
这个排版工具功能有点类似haoli123和悦读文排版工具，具有一键排版的功能，同时能除空行、添加空行、文章字数统计、替换英文标点。具体在使用过程中的区别，需要自己尝试，多测试几篇文章，就可看出结果来。
在线排版工具2
这个排版工具的功能较为丰富，可以实现中英文字符替换、改变空格类型、控制段前空格数量和段落间的行数修改，简体和繁体互换，同时能字数统计，替换关键词，还能够签名。相对于其它几个一键排版工具，这个的功能说的更加细致化。
wps一键排版方式
WPS能一键排版？是的，很多人还不知道，这里我说一下，将文本复制到wps后，在开始菜单下面找到文字工具，里面就有排版工具，具有功能有：
段落重排（R）
智能格式整理（F）
转为空段分割风格（M）
删除空段（E）
删除段首空格（P）
删除空格（W）
删除换行符（S）
换行符转为回车（B）
段落首行缩进2字符
段落首行缩进转为空格（C）
增加空段（A）
这些功能对于排版好一篇文章来说简直是绰绰有余了，只要用得好，绝对是有巨大的帮助。
文章提出了6种一键排版工具，对于提升写作和工作的效率是非常有帮助的，希望能帮到大家。