Word 2003 & 2019 自动排版宏（2020 国庆珍藏版）

晨晓之黎

413191246se 老师，请教.Font.和.ParagraphFormat.这两个都是重复，怎么样修改简化的代码？

413191246se

1. Sub OptimizeDemo()
   
2. '字体格式，最好是按照 N/S/B/C 的方式来排列
   
3. '（N=Name字体名称，中文写为 .NameFarEast/英文写为 .NameAscii/
   
4. 'S=Size字号/B=Bold加粗/C=Color颜色）
   
5. 
   
6.     Set sty = ActiveDocument.Styles.Add(Name:="bdx2")
   
7.     With sty
   
8.         With .Font '字体格式
   
9.             .NameFarEast = "宋体" '中文字体名称
   
10.             .NameAscii = "Times New Roman" '英文字体名称
    
11.             .Size = 12 '字号大小12磅（小四）
    
12.             .Bold = True '加粗（True为加粗/False为不加粗，即常规）
    
13.             .Italic = False '斜体（True为斜体/False为不斜体）
    
14.             .ColorIndex = wdBlue '字体颜色（蓝色）不想要颜色，可删除/注释此行代码
    
15.         End With
    
16.         With .ParagraphFormat '段落格式
    
17.             .CharacterUnitLeftIndent = 0
    
18.             '**************
    
19.             '**************（都是用 With ... End With 结构来简化）
    
20.             '**************（把相同的 .ParagraphFormat段落格式 删除即可）
    
21.             '选择对象Selection可设置 .Font 字体格式 + .ParagraphFormat 段落格式
    
22.         End With
    
23.     End With
    
24. End Sub

复制代码

晨晓之黎

晨晓之黎 发表于 2021-5-21 23:20
413191246se 老师，请教.Font.和.ParagraphFormat.这两个都是重复，怎么样修改简化的代码？

谢谢老师指导！

46527587

Word365　这几个功能还是有问题我发图片供老师看看

413191246se

朋友，你好！——请试试，首先执行《公文》宏排版，然后执行《发文》宏，再执行《第一章》宏，这样基本就没什么问题了。

413191246se

第一章下面多一个空段，删除即可（当然我编的宏也不完美，暂时对付吧！）。

413191246se

还有前一段，我也发现，在《证书自动编号》宏执行后，如果表格中有“序号”一列，结果会出错。只须在未执行宏时，将第一列的“序号”两个字或者都删除，或者删除任意一个字后，再执行该宏即可。

xinhairen999

感谢分享，下载试用。

yulinling00

功能很多，不错，多谢分享。

46527587

413191246se 发表于 2021-7-15 21:21
第一章下面多一个空段，删除即可（当然我编的宏也不完美，暂时对付吧！）。

按照你说的方式去处理
还是不行