Word VBA 公文自动排版（2023元旦版）

413191246se

朋友，你说得比较抽象，应该截图上来，或重新试试。

ammyc

2个压缩包，有何区别

413191246se

* 楼上朋友，你好！——带“xp”字样的压缩包，是适合于 WinXP 系统的代码。
* 因为 WinXP 系统中，常规字体名称为“宋体”、“仿宋_GB2312”、“楷体_GB2312”、“黑体”；而非 WinXP 系统中，常规字体是“宋体”、“仿宋”、“楷体”、“黑体”（简称：“宋、仿、楷、黑”）。
* 字体名称不同，会影响排版效果。所以，WinXP 系统要用带有“xp”字样的代码，功能是一样的。

413191246se

各位朋友，Word 2019 的“快速访问工具栏”自定义文件是 Word.officeUI，Word 2007 的“快速访问工具栏”自定义文件是 Word.qat，至于其它的版本，需要自己探究一下，到底是哪一个。

ly001

烦请问楼主大神，“条文排版”中怎么修改可以把全角空格变为半角空格？谢谢

413191246se

楼上朋友，你好！——请在 Word 中按 Alt + F8 组合键，打开宏名列表，找到“Provision”宏并选中，再按右边“编辑”按钮，进入 VBE 编辑器。在“Provision”宏的倒数第二行代码“Common”后面打两下回车，拷贝粘贴下面的代码即可：
ActiveDocument.Content.Find.Execute Chr(-24159), , , 0, , , , , , "  ", 2

ly001

413191246se 发表于 2022-12-28 02:17
楼上朋友，你好！——请在 Word 中按 Alt + F8 组合键，打开宏名列表，找到“Provision”宏并选中，再按右 ...

谢谢大神！在2003上试了，好像还是达不到效果，另外，能否单独帮忙建个宏实现如附件的效果。我通常学本坛上的用如下方法来做，但效率差了些。再次谢谢大神！
(第[!章]{1,5}章)(*^13)
\1 \2

(第[!节]{1,5}节)(*^13)
\1 \2

^13(第[!条]{1,5}条)
^&

cszws

谢谢分享，宏名有点多

413191246se

17楼朋友：如果你想让“章、节、条”等量词后面不留全角留半角空格，只须按 Alt + F8 打开宏名列表，找到“ChapterOne”宏（即“第一章”宏）的大约第 15 行代码将它的全角空格改为半角空格即可（如下面语句）：
.Characters(Len(arr(j)) + 2).InsertAfter Text:=" "

ly001

413191246se 发表于 2022-12-28 20:44
17楼朋友：如果你想让“章、节、条”等量词后面不留全角留半角空格，只须按 Alt + F8 打开宏名列表，找到“ ...

谢谢！“章、节、条”后面要留半角空格，但当“章、节”后面两个字时（如总则、附则）两字中间不加半角，此时应该怎么调整呢...