ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: 413191246se

[分享] Word 2003 VBA 自动排版宏(集成版)更新:2019-3-22

  [复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-3-24 14:52 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 413191246se 于 2019-3-24 14:55 编辑

补充说明:

* 几年来,在学习 VBA 的过程中,参考了无数网络前辈、本坛高人、老师、大神及各位坛友的精彩代码,借鉴不少。比如:最近几年,就向 守柔版主、duquancai 老师、loquat 老师、zhanglei1371 老师、ming0018 老师、……等各位老师、朋友学习了不少先进代码。本版的发布,不是我一个人的功劳,而是包含着广大网友的心血、智慧。在此,我表示衷心的感谢!

* 本版在排版时,不处理表格中的任何文字,只处理表格外文字部分,表格可单独排版或不排版。

* 另外,我也欢迎使用更高 Word 版本的朋友们,把我的代码借鉴,或全部转化为更高版本的代码;
甚至以《Word2007/2010/2013/2016/2019自动排版宏》冠以自己的网名发布分享,供大家更加方便地使用排版 Word 文档。本版不属于我自己,我也不要什么版权,所有代码均是免费共享的。谢谢大家!


TA的精华主题

TA的得分主题

发表于 2019-3-24 21:02 | 显示全部楼层
感谢!但链接打不开,一闪而过!

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-3-25 00:41 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
Zhang.0004 发表于 2019-3-24 21:02
感谢!但链接打不开,一闪而过!

朋友,在你的空间我已留言,请阅读之……

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-3-27 23:32 | 显示全部楼层
*** 哪位朋友没有从我的《腾讯微云》下载到《Word2003VBA自动排版宏(集成版)2019-3-22》,请给我发信,我会发送邮件到你的邮箱。我的邮箱:ln1400014884@163.com

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-3-30 13:04 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
* 排版后如果只有 1-2 页,也可以把选定一个标题 2(“一、XX”)段落,右键选择“选择相似的文字”选定所有标题 2 段落,将黑体加粗变为不加粗,或变为仿宋也可(完全不必拘泥于公文标准,因为标准本身就不标准)。

TA的精华主题

TA的得分主题

发表于 2019-3-30 20:34 | 显示全部楼层
413191246se 发表于 2019-3-27 23:32
*** 哪位朋友没有从我的《腾讯微云》下载到《Word2003VBA自动排版宏(集成版)2019-3-22》,请给我发信,我 ...

谢谢!我的邮箱zhang.0004@163.com

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-3-30 23:12 | 显示全部楼层
Zhang.0004 朋友,邮件已发,请查收!

TA的精华主题

TA的得分主题

发表于 2019-3-31 09:04 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
收到,谢谢!

TA的精华主题

TA的得分主题

发表于 2019-3-31 14:20 | 显示全部楼层
第一章 xxx
第二章   xxx
一、xxx
(1)xx
(2)xx
二、xxx
第三章  xxx
前辈设置2345级标题代码非常好,不知道上面的格式的内容能不能用前辈的设置标题的代码设置第一章为1级标题,一、为2级

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-3-31 23:27 | 显示全部楼层
leedun 朋友,你好!——你的示例文本弄丢了形如“(一)XX”和“1.XX”这两种标题层次,我也不知道你是怎么想的(多级标题和编号,我从未应用过,所以,我的公文标题只有标准的四个层次,我的《集成版》你有时间可以按 F8 键逐一测试一下,就明白了我的排版思路)。但是,按照你的愿望,请试试下面的代码(只设置了样式,段落间距(即段前/段后)、与网格对齐未取消,具体格式设置请自行处理):
  1. Sub test()
  2. '第X章后加全角空格
  3.     With ActiveDocument.Content.Find
  4.         .Execute "(^13第[一二三四五六七八九十百零〇○]@章)", , , 1, , , , , , "\1 ", 2
  5.         .Execute "(^13第[一二三四五六七八九十百零〇○]@章)([  ^s^t]{1,})", , , 1, , , , , , "\1 ", 2
  6.     End With

  7. '核心
  8.     Dim s$, i As Paragraph, n&
  9.     s = "一二三四五六七八九十1234567890百零〇○"
  10.     For Each i In ActiveDocument.Paragraphs
  11.         With i.Range
  12.             n = 1
  13.             If .Text Like "[第(]*" Then n = 2
  14.             Do While InStr(s, .Characters(n)) > 0
  15.                 n = n + 1
  16.                 If .Characters(n).Text = "、" Then .Style = wdStyleHeading2: Exit Do
  17.                 If .Characters(n).Text = "章" And Not .Text Like "(#*" Then .Style = wdStyleHeading1: Exit Do
  18. '                If .Characters(n).Text = "." Then .Style = wdStyleHeading4: Exit Do
  19.                 If .Characters(n).Text = ")" And .Text Like "(#*" Then .Style = wdStyleHeading3: Exit Do
  20.             Loop
  21.         End With
  22.         Next
  23. End Sub
复制代码

评分

1

查看全部评分

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-7-18 06:27 , Processed in 0.042327 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表