精华内容
下载资源
问答
  • word一键排版

    2018-07-06 10:15:46
    word格式一键排版,很好用的一种软件,实现排版的繁琐解放
  • Word一键排版

    千次阅读 2019-01-06 13:57:06
    Word一键排版宏 Sub 自动排版() ' ' 自动排版 宏 ' ' Application.ScreenUpdating = False '更改所有硬回车为软回车 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With ...

     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 = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ,./<>?;’:[]{}\|=-+_)(*%$#@!`~&"
            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
    
    

     

    展开全文
  • 作者 |易雪龙来源 | ...来看看我是如何一键排版的吧!下图是默认文档格式。快速进行排版。看下效果!设置标题1创建标题1样式,进入「开始」-「样式」-「创建样式」,设置好名称后「修改」,在这里我们设置「样式基...

    c004939a97373be40315082e1a6ffad3.png

    作者 |  易雪龙

    来源 | Word联盟(ID:Wordlm)

    许多文档都有着不同的样式规定,字体、字号、颜色等。根据不同的文档规范,我们可以创建特定的样式集,要用的时候,只需一键,就能够轻松搞定排版,非常方便!

    来看看我是如何一键排版的吧!下图是默认文档格式。

    bad028b28b810bb121d07dcf00a88c2a.png

    快速进行排版。

    9a6ad5e63e7210f2b8c8ded4ac57d6bf.gif

    看下效果!

    b818e6a1493ff60ec191078f58958e3e.png

    b8ee0d85367f4f7dc039aa31162f2f5b.png

    设置标题1

    创建标题1样式,进入「开始」-「样式」-「创建样式」,设置好名称后「修改」,在这里我们设置「样式基准」为“无样式”,然后再来设置字体、字号、颜色等格式。(根据自己所需来设置)

    f878bb420e65a62f81c0416e4d2a6c07.gif

    bccaaf6c590e5f9e661f1e7561196f6b.png

    设置标题2

    创建标题2样式,同样的方式,我们在来创建标题2,设置样式。

    664b512f059febecf59fe2bef1b28ff1.gif

    51b21dd5c5dc95f1a5fea7972c4b036e.png

    创建编号

    文中如果出现编号,那么我们需要设定成什么样的格式?我们事先在这里设置好。

    8df3729fc4abc2d991d9271efda3ab88.gif

    51292b85f2cb1d7e2c1729fcf9759325.png

    正文样式

    设置好字体、颜色、字号后,我们可以进入「格式」-「段落」,添加一个“首行缩进”。

    1e07ea9ee970d1bdeb27b858fc8e41c0.gif

    c9840a180631ffb62cb9eedd27fa0995.png

    保存样式

    将标题、正文、编号等所有的样式全部设定好后,我们可以进入「设计」-「文档格式」点击下拉三角按钮,选中「另存为新样式集」,命名,保存一下即可。

    688f433e2d96e0fb244fbfae6c961b65.gif

    a95e5bdaf8a03ad7df92fa6cf9abad09.png

    如何使用样式?

    如何使用我们创建的样式?创建一个新文档,可以看到默认情况下,是没有我们先前做好的样式集。我们可以进入「设计」-「文档格式」,点击下拉选项按钮,在「自定义」中,可以看到我们命名的样式,点击一下。再回到「开始」-「样式」中,就有了。

    ffa0337244c66117dbf2d3f6148f7bba.gif

    ab93096a30837f49919144da46679a1f.png

    一键排版

    看看利用设置好的样式集来排版,多么方便!

    51d8d269e17bacf9df34d5ff7d924a63.gif

    小能手说:今天的分享就到这里了,都学会了吗?

    e69e5f3daa679524e21e47e26a9149a0.pngf3dc9633e187859d4ec5f663e1399445.pngf2d0c1677eeaa6fb62d4cf268be5a40f.pnga626117177b7e60fb46e7e077b970cdc.png

    展开全文
  • WORD一键排版工具

    2011-04-28 10:09:05
    WORD一键排版工具(word文档编辑后很乱,结合这个软件就可以把排版做得很精美了)
  • 来看看我是如何一键排版的吧!下图是默认文档格式。快速进行排版。看下效果!01设置标题1创建标题1样式,进入「开始」-「样式」-「创建样式」,设置好名称后「修改」,在这里我们设置「样式基准...

    快点这里bf29be78d2ab914db83b6fe15e8af3e2.gif订阅最有趣有料的3D/VR/AR/Ai数字化资讯

    9c39fadecf3fdab258761cd49765d009.gif

    许多文档都有着不同的样式规定,字体、字号、颜色等。根据不同的文档规范,我们可以创建特定的样式集,要用的时候,只需一键,就能够轻松搞定排版,非常方便!

    来看看我是如何一键排版的吧!下图是默认文档格式。

    33986ae7a2b65c616e45093139fa909e.png

    快速进行排版。

    d700e6b66ec6c579720222fd080d2d8b.gif

    看下效果!

    52bca66e486e6cd612fb57feeeaaae03.png

    01设置标题1

    创建标题1样式,进入「开始」-「样式」-「创建样式」,设置好名称后「修改」,在这里我们设置「样式基准」为“无样式”,然后再来设置字体、字号、颜色等格式。(根据自己所需来设置)

    47a08fb14a098b254aca3053b4cfe299.gif

    02设置标题2

    创建标题2样式,同样的方式,我们在来创建标题2,设置样式。

    cb02e69e0a59060ec8a7546fabf81424.gif

    03创建编号

    文中如果出现编号,那么我们需要设定成什么样的格式?我们事先在这里设置好。

    e08a7eba8fbc31309c12ec444ae38122.gif

    04正文样式

    设置好字体、颜色、字号后,我们可以进入「格式」-「段落」,添加一个“首行缩进”。

    a107289bee11b5e51bcd2430df418501.gif

    05保存样式

    将标题、正文、编号等所有的样式全部设定好后,我们可以进入「设计」-「文档格式」点击下拉三角按钮,选中「另存为新样式集」,命名,保存一下即可。

    4adcde21f5bb34b04667c0ff867ecbf7.gif

    06如何使用样式?

    如何使用我们创建的样式?创建一个新文档,可以看到默认情况下,是没有我们先前做好的样式集。我们可以进入「设计」-「文档格式」,点击下拉选项按钮,在「自定义」中,可以看到我们命名的样式,点击一下。再回到「开始」-「样式」中,就有了。

    b613f7555c8acfa2388f40b1c181fdd8.gif

    07一键排版

    看看利用设置好的样式集来排版,多么方便!

    e18bc53efdd4a438a172dfa2bab7ae48.gif

    ——【END】——

    9063ee74695323f37121154722f4097a.png

    0fbd9fb21397d7f2754bf08db2301e86.png

    3D大赛• 创新中国•数字宣言

    2f4bb2bc3bbaeae1d54642adfefcacaa.png1be55f944ed8f7947edd807eff9e5173.png

    VR|AR|3D打印|CPS等数字化技术

    3D大赛资讯分享平台

    有趣!有料!

    长按扫码可关注

    dc4f6f6761121cb85653ed223b214ea5.gif

    展开全文
  • 在工作和生活中,我们总是要不断的收集很多文章和资料,但是经常格式混乱,一堆乱码,这个时候要是一个个去修改排版,非常浪费时间,这篇文章例举出5个一键排版工具和1个常用有效的文章排版办法,有一款工具是智能化...

    fe92f9f4d3b5f1cef6662b52fc68310d.png

    在工作和生活中,我们总是要不断的收集很多文章和资料,但是经常格式混乱,一堆乱码,这个时候要是一个个去修改排版,非常浪费时间,这篇文章例举出5个一键排版工具和1个常用有效的文章排版办法,有一款工具是智能化一键修改,非常方便和节省时间和精力,适合大众需要。这些工具都是免费的。

    haoii123

    是一款在线排版工具,拥有一键排版,删除空行,添加空行,文章字数统计的功能,可以实现论文自动排版,文字自动排版,文字排版,网页排版的功能。是国内首款安全、无广告的排版工具。

    4b95bdec11e6b6a2b971fa80d1ba0c17.png

    悦读文排版工具

    是一款在线优秀的一键安全、无广告的排版工具,功能比haoli123多一些,具有:清除HTML格式、自动排版、添加空行、替换标点、检查错别字、简->繁字体转换、统计字数的功能,实用性很强。

    f67e76d6147b14a4fd2f2bd914047460.png

    小发猫Al智能写作

    智能AI排版工具,比前两个更加智能化,真的是一键修改,智能写作助手,对于自媒体人员和专职写手来说是巨大的福利。小发猫文章最高输入是1300个字,对于大部分人是满足需求了,对于一些经常写1500以上的人来说,可以分为两次或者使用其它几款吧。

    aeecc147624c4ff08bc1b3b58462c4dc.png

    在线排版工具1

    这个排版工具功能有点类似haoli123和悦读文排版工具,具有一键排版的功能,同时能除空行、添加空行、文章字数统计、替换英文标点。具体在使用过程中的区别,需要自己尝试,多测试几篇文章,就可看出结果来。

    39bb2e46afecfb368f26a74810d6c2f6.png

    在线排版工具2

    这个排版工具的功能较为丰富,可以实现中英文字符替换、改变空格类型、控制段前空格数量和段落间的行数修改,简体和繁体互换,同时能字数统计,替换关键词,还能够签名。相对于其它几个一键排版工具,这个的功能说的更加细致化。

    ee1d1ff4b015f36a5e2c22d9b2776ecc.png

    wps一键排版方式

    WPS能一键排版?是的,很多人还不知道,这里我说一下,将文本复制到wps后,在开始菜单下面找到文字工具,里面就有排版工具,具有功能有:

    段落重排(R)

    智能格式整理(F)

    转为空段分割风格(M)

    删除空段(E)

    删除段首空格(P)

    删除空格(W)

    删除换行符(S)

    换行符转为回车(B)

    段落首行缩进2字符

    段落首行缩进转为空格(C)

    增加空段(A)

    这些功能对于排版好一篇文章来说简直是绰绰有余了,只要用得好,绝对是有巨大的帮助。

    fc0eb58f1d953824d0e72db6e8543cf6.gif

    文章提出了6种一键排版工具,对于提升写作和工作的效率是非常有帮助的,希望能帮到大家。

    展开全文
  • 根据人工智能应用,paperfree独立产品研发了一键论文排版工具,客户只必须挑选适合的模版,发送写好的毕业论文,系统软件会依据发送的毕业论文內容,急速转化成文件格式规范的毕业论文,让客户尽享急速排版设计感受...
  • 不论是在工作中还是在学习中Word一直都是我们比较常用的工具尤其是在写论文、报告等可以让我们省一大半的时间但你知道么在Word排版是最为重要的写一下午的论文可能排版得用上一天时间而快捷排版的秘诀就是使用...
  • Word中表格的自动处理技巧本文系统介绍Word人工智能软件中涉及表格部分的自动处理功能1 表格自动排版启动:排版→对应功能(1)一键排版表格/表标题排版功能集成于一键排版中,在处理文档时,可以根据需要勾选(2)选中...
  • 之前给大家安利过一个牛逼的ppt插件...这里推荐一下小恐龙公文助手这款Word排版插件,相信对你有帮助。软件介绍根据《党政机关公文格式国家标准》(GB/T 9704—2012)的格式要求,快速设置页面版式、快速设置常用文字...
  • 又到年尾,各种工作总结、工作规划、述职、求职都来了,为什么别人能做出优秀的文案而你只会word搬到ppt?“工欲善其事必先利其器”,其实你缺的可能只是几款好用的工具,本文就针对制作文案经常碰到10个问题来逐一...
  • 有不少小伙伴习惯了在word文档里面编辑好文章内容和图片,然后再复制到编辑器里添加排版样式,最后排版完成再粘贴到公众号里面。从文档到编辑器再到公众号后台,两次复制粘贴耗费时间不说,就怕复制的过程中格式错误...
  • Word中图形的自动处理技巧本文系统介绍Word人工智能软件中涉及图形部分的自动...由于浮动式图形位置容易出现窜动,长文档中建议只使用嵌入式图形,必须使用浮动式图形时,也应该组合或者放入画布1 图形自动排版启...
  • 点击蓝字关注我获取高效/实用/好玩的工具软件和教程前言现在学习和...「小恐龙公文排版助手」是一款专业的 Word 公文排版插件,可以帮助我们快速搞定 Word 排版问题,既高效又方便。小恐龙公文排版助手插件根据国家...
  • 大家好,我是海掌柜,一位专注...备注:【软件下载地址在最后面】01word插件 —— 小恐龙公文排版助手今天给大家一个有关解决 「WORD排版问题」的工具,它是一个插件,虽然只有2M,但是却包含了许多WORD 小技巧,...
  • 况且word只能算一种基础排版,想要更上一层楼,我们就必须得借助各种微信排版工具。我用过135编辑器和秀米编辑器。最早期的时候,秀米最符合我的想象,所以,我用了好几年秀米。标题、配图、段落细节,秀米模块更新....
  • 软件将重复劳动变为自动化处理,降低人员劳动强度,助力设计、咨询企业高质量发展注:软件无需安装,就像Word工具条一样方便,软件尽量减少Word高级技巧的使用,默认模式处理后的文档,交叉复制粘贴到其他文档中格式...
  • 日常工作中,经常会遇到以下几个问题:如何把PDF文件转换为Word文档或者PPT?如何取出PDF文档中的某几页?如何把几个PDF文档合并成一个?……网上搜索的工具不是要收费就是转换效果不好,有没有什么工具可以免费转换...
  • Word 最早的版本可以追溯到 1983 年,距今已经接近 40 ...Word 容易遇到文件修改后反复发送,错字难改版本众多,管理困难只能文本+图片经常遇到不兼容、打不开文件丢失、损坏在线Word能完美解决以上问题文档可以一键...
  • 上次分享了 帮助提高效率办公软件插件及网站(☜ 点击查看),今天就来说说日常使用频率最高的Word、Powerpoint、Excel软件的使用技巧。希望能为你与日常的报告、数据、汇报等工作内容斗智斗勇,献上一份绵薄之力。...
  • 之前同事一直给我推荐Office插件,说插件有多方便多好用,我:用什么插件啊,没有插件我不也照样用了这么多年Office...PPT、Excel、Word都有!一、PPT插件1、美化大师第一个插件是我最常用的一个插件,简直是手残党...
  • 大家好,这里是@秋叶PPT~今天我们给大家分享 ...老规矩,还是先上目录:01:万能的 F4 键02:想看哪里点哪里03:批量更新标题格式04:自动设置多级编号05:一键将文本转表格06:一键将长表格排版一页纸07:一键将文...
  • 排版一直对不齐?图片点击居中了却没有真的居中?表格始终无法居中对齐?猜你的Word文档还在使用空格控制缩进,其实最标准最快捷的办法是利用标尺,以上的问题都可以轻松解决。标尺是啥?相信不熟悉WORD的你一脸懵逼...
  • 微信扫码观看全套Excel、Word、PPT视频在使用Word进行图文排版的过程中,文本框是必不可少的元素,它不仅承载着储存图文的功能。同时,还能布局、排版、美化Word文档版面,让文档效果灵活多变,从而快速传递图文信息...
  • 今天老Y就给大家带来一款好用到爆的word排版插件小恐龙公文排版助手它是一个专注于公文排版而又不局限于公文的小插件,不管是对于需要写公文的朋友,还是使用word编辑文字的朋友它都是一个神器!安装好的效果如下:...
  • 这次也是关于排版的:一键排版只需要一个插件——小恐龙公文排版助手下载后其实和PPT插件类似,会多出一个选项卡“公文”。下载地址:以上是官网截图。对于经常排版公文的人来说当然是福音了。公文需要的样式直接在...
  • 我一想,完蛋,看完这些大纲都要花好长时间,而且还要想PPT的风格、排版、还要找素材!怎么做的完?!老王看我万念俱灰,偷偷告诉了我一个绝招,结果1份PPT不到1分钟就完成!今天果断要把这个方法告诉大家!真的超...
  • 在做CMS系统的时候,用户常常会从word粘贴一些东西到编辑器中,早起的富文本编辑器也都提供了去除word格式的功能(尽管有时候比较难用),甚至有时候用户要求打开一个...网络上有很多自称为“一键排版”的小工具,只是...
  • [TOC]宏和VBA的区别宏是一个或多个指令的...VBA宏会被VB编辑器记录为一个VBA过程一键排版宏举例Sub typeset()'' typeset 宏' Author : 李佳成' Time : 2018.5.1''' 清除格式Selection.WholeStorySelection.ClearP...
  • 今天老Y就给大家带来一款好用到爆的word排版插件小恐龙公文排版助手它是一个专注于公文排版而又不局限于公文的小插件,不管是对于需要写公文的朋友,还是使用word编辑文字的朋友它都是一个神器!安装好的效果如下:...

空空如也

空空如也

1 2 3 4 5 ... 10
收藏数 187
精华内容 74
关键字:

word一键排版