Word-VBA 公文自动排版宏 20240714 测试版

zhdqsd

又更新了，谢谢分享，以前用你的代码在WPS里，表格处理单元格内文字不居中，但是在word里就正常，不知道哪里不一样。

天地惠

下载的代码怎么没有实际可执行的内容？
我是下载后解压，用WORD打开它，看到的内容就是如下的样子。
我特别想学习“抛弃标题样式--直接将正文设置为标题12345。”这个部分是怎么做到的。

Sub 禁用_ZNote()
'极简->清爽！精简、简洁、简化、优化！少而精！（常用/高频）CleanCode!Quick & Auto!
'------------------------------------------------------------------------------
'2024新版亮点：
'1、自动取消标题--<标题2345>样式相同的相邻段落不排版！
'2、序号自动编号--<标题2345>无需人工校对！
'3、抛弃标题样式--直接将正文设置为标题12345。
'4、落款附件合并--重新梳理流程，解决日期含有空格的问题。
'---------------------------------------------------------------------
'C03/"第一，在学习中创新"
'C05/"第一阶段（5月中旬-7月中旬）："


'C09/"一是加强党组织建设。"
'C11/"实施方案"----Title1 倒数第二段是否扩展（加空格）？
'C15/"预赛分两轮："----------title1"（高中）"
'C56/"（2023年4月28日）"-->subtitle    'C55/Error for Date!  'C57/Second-Title!
'C96/Read-Only!

'附件排版不正常：C18*/C21*/C92*/---------->Error! C83/C94

'Demo-Delete: C04/C26/C27/C30/C32/C33/C34/C35/C36/C37/C38/C40/C46/C54/C56/C60
'Demo-Delete: C69/C74/C77/C81/C82/C85/C86/C88/C89/C90/C93/C95
'Demo-Delete:
End Sub


413191246se老师能否把这部分源代码提供下？谢谢老师！

413191246se

* 楼上朋友，你好！——请参见宏名列表里面的《Title2345》这个宏，特别是“‘Title4”这段。
* 思路理念就是，同样式的相邻段落不排版，继续保持正文格式。但它的标题编号是自动编号的。
* 请打开一篇 demo 文档，然后，再打开 VBE，半个窗口是文档，半个窗口是 VBE，光标落在《Official》宏，再请每次按一下 F8 键，这是调试状态、逐步执行代码的状态，这样比较能加深对公文排版的理解。
      
一级标题：大标题（也叫：标题一、标题 1）
二级标题：形如“一、XX”
三级标题：形如“（一）XX”
四级标题：形如“1、XX”或“1.XX”或“1. XX”
五级标题：形如“（1）XX”

413191246se

* 还有，“NewMacros.bas”文件必须要在 VBE 中“文件”菜单中点击“导入文件”找到并打开它才能导入VBE。

txd0920

感谢分享

rakehell78

多谢分享...

gujin162

啥也不说了，帖子就是带劲！