|
楼主 |
发表于 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 = "[A-Za-z0-9“”]"
- .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
复制代码 |
|