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

413191246se · 发表于 2019-5-15 09:41

楼上朋友，你好！——这次《集成版》本着快速的理念，没有将过去的一些宏加入进来，只是排版文档表面，文档里面的标点符号不予排版，所以就有些问题存在。你说的问题，在《2019元旦版》中有宏可以解决。关于这个“仿宋_GB2312“字体，它是XP的，WIN7是”仿宋“字体。当然如果两个系统字体互相拷贝来使用也是可以的。标题里面的英文，其实是标题1的默认样式，英文是Times New Roman，正常情况下是不会有问题的，但如果样式有问题，会导致标题1字体中英文字体有变化。请试用下面的宏（有问题可以继续交流）：

Sub Full2Half()
Dim i As Paragraph, mt, r As Range, n%, m%
With CreateObject("vbscript.regexp")
.Pattern = "[Ａ-Ｚａ-ｚ０-９“”]"
.Global = True
.IgnoreCase = False
.MultiLine = True
For Each i In ActiveDocument.Paragraphs
For Each mt In .Execute(i.Range.Text)
m = mt.FirstIndex: n = mt.Length
With ActiveDocument.Range(i.Range.Start + m, i.Range.Start + m + n)
If .Text Like "[“”]" Then .CharacterWidth = wdWidthFullWidth Else .CharacterWidth = wdWidthHalfWidth
End With
Next
Next
End With
End Sub

复制代码

413191246se · 发表于 2019-5-15 09:43

楼上，第4行和第12行代码中的双引号，如果不是中文双引号，请打开中文输入法，重新键入中文的双引号（左、右），把第4行和第12行的双引号均改为正常的中文双引号，再应用。

413191246se · 发表于 2019-6-4 00:10

顶一顶。。。。。。

413191246se · 发表于 2019-6-7 20:37

顶一顶。。。

413191246se · 发表于 2019-6-10 20:54

顶一顶。。。

458863601 · 发表于 2019-8-2 23:34

可以帮我写一个排版的代码吗？？

413191246se · 发表于 2019-8-3 02:26

楼上朋友，你好！——你可以说明一下具体排版要求，我试试看能否帮到你。

413191246se · 发表于 2019-8-3 07:26

楼上朋友，你好！——请详细说一下具体排版要求，看我能否帮到你。

413191246se · 发表于 2019-8-3 08:09

本帖作废！——有问题请到 2019-7-9 的帖子中发言，谢谢！

wsyzxxn · 发表于 2020-2-21 10:28

十分感谢！我的邮箱：yueshigou@163.com 《Word2003VBA自动排版宏（集成版）2019-3-22》

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

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

评分