Word 2003 VBA 自动排版宏（集成版）更新：2019-3-22

413191246se · 发表于 2019-3-24 14:52

本帖最后由 413191246se 于 2019-3-24 14:55 编辑

补充说明：

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

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

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

Zhang.0004 · 发表于 2019-3-24 21:02

感谢！但链接打不开，一闪而过！

413191246se · 发表于 2019-3-25 00:41

Zhang.0004 发表于 2019-3-24 21:02
感谢！但链接打不开，一闪而过！

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

413191246se · 发表于 2019-3-27 23:32

*** 哪位朋友没有从我的《腾讯微云》下载到《Word2003VBA自动排版宏（集成版）2019-3-22》，请给我发信，我会发送邮件到你的邮箱。我的邮箱：ln1400014884@163.com

413191246se · 发表于 2019-3-30 13:04

* 排版后如果只有 1-2 页，也可以把选定一个标题 2（“一、XX”）段落，右键选择“选择相似的文字”选定所有标题 2 段落，将黑体加粗变为不加粗，或变为仿宋也可（完全不必拘泥于公文标准，因为标准本身就不标准）。

Zhang.0004 · 发表于 2019-3-30 20:34

413191246se 发表于 2019-3-27 23:32
*** 哪位朋友没有从我的《腾讯微云》下载到《Word2003VBA自动排版宏（集成版）2019-3-22》，请给我发信，我 ...

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

413191246se · 发表于 2019-3-30 23:12

Zhang.0004 朋友，邮件已发，请查收！

Zhang.0004 · 发表于 2019-3-31 09:04

收到，谢谢！

leedun · 发表于 2019-3-31 14:20

第一章 xxx
第二章 xxx
一、xxx
（1）xx
（2）xx
二、xxx
第三章 xxx
前辈设置2345级标题代码非常好，不知道上面的格式的内容能不能用前辈的设置标题的代码设置第一章为1级标题，一、为2级

413191246se · 发表于 2019-3-31 23:27

leedun 朋友，你好！——你的示例文本弄丢了形如“（一）XX”和“1.XX”这两种标题层次，我也不知道你是怎么想的（多级标题和编号，我从未应用过，所以，我的公文标题只有标准的四个层次，我的《集成版》你有时间可以按 F8 键逐一测试一下，就明白了我的排版思路）。但是，按照你的愿望，请试试下面的代码（只设置了样式，段落间距（即段前/段后）、与网格对齐未取消，具体格式设置请自行处理）：

Sub test()
'第X章后加全角空格
With ActiveDocument.Content.Find
.Execute "(^13第[一二三四五六七八九十百零〇○]@章)", , , 1, , , , , , "\1　", 2
.Execute "(^13第[一二三四五六七八九十百零〇○]@章)([ 　^s^t]{1,})", , , 1, , , , , , "\1　", 2
End With
'核心
Dim s$, i As Paragraph, n&
s = "一二三四五六七八九十1234567890百零〇○"
For Each i In ActiveDocument.Paragraphs
With i.Range
n = 1
If .Text Like "[第（]*" Then n = 2
Do While InStr(s, .Characters(n)) > 0
n = n + 1
If .Characters(n).Text = "、" Then .Style = wdStyleHeading2: Exit Do
If .Characters(n).Text = "章" And Not .Text Like "（#*" Then .Style = wdStyleHeading1: Exit Do
' If .Characters(n).Text = "．" Then .Style = wdStyleHeading4: Exit Do
If .Characters(n).Text = "）" And .Text Like "（#*" Then .Style = wdStyleHeading3: Exit Do
Loop
End With
Next
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[分享] Word 2003 VBA 自动排版宏（集成版）更新：2019-3-22

评分