法律条文格式排版

zds0616

ly001 发表于 2024-6-5 17:13
助手应该是要注册，并且其word版本要求较高吧，个人对word2003使用比较习惯....

注册？有关联吗？话说现在还有多少用2003的？

ly001

zds0616 发表于 2024-6-7 09:09
注册？有关联吗？话说现在还有多少用2003的？

试了下您的办公助手，很遗憾，其中法律条文自动排版与我所要求的格式不一致........

zds0616

ly001 发表于 2024-6-7 20:54
试了下您的办公助手，很遗憾，其中法律条文自动排版与我所要求的格式不一致........

不知道你需要什么样的格式，可以根据自己换需要修改脚本中对格式的设置，用插件自动排版都需要预设定格式，你自己得知道自己要什么样的格式

过客fppt

zds0616 发表于 2024-6-7 09:09
注册？有关联吗？话说现在还有多少用2003的？

从未用过2003 ，一直以来用WPS较多

zds0616

过客fppt 发表于 2024-6-8 17:00
从未用过2003 ，一直以来用WPS较多

wps最大的好处就是vba执行速度快，但兼容性不好也是事实

zds0616

ly001 发表于 2024-6-5 17:13
助手应该是要注册，并且其word版本要求较高吧，个人对word2003使用比较习惯....

事实上，公文处理助手是可以支持2003的，只是我出于优化启动速度的考虑，没有加载2003界面

过客fppt

zds0616 发表于 2024-6-8 20:30
wps最大的好处就是vba执行速度快，但兼容性不好也是事实

确实，但是排版的话也够用了

zds0616

过客fppt 发表于 2024-6-9 11:41
确实，但是排版的话也够用了

如果WPS能解决格式方面的兼容性问题，用于排版是最好的，毕竟速度快。

过客fppt

zds0616 发表于 2024-6-9 12:50
如果WPS能解决格式方面的兼容性问题，用于排版是最好的，毕竟速度快。

这是WPS的VBA进行排版的示例，仅供参考：
http://t.csdnimg.cn/G51GD

lhteee

1. Sub 法条格式设置()
   
2. '条款标题加粗
   
3. Application.ScreenUpdating = False
   
4. With ActiveDocument.Content.Find
   
5. .Text = Chr(13) & "第[一二三四五六七八九十百千万零〇]{1,}[编章节条]"
   
6. .MatchWildcards = True
   
7. Do While .Execute
   
8.       With .Parent
   
9.               .Start = .Start + 1
   
10.      If Right(.Text, 1) = "条" Then
    
11.                  .Font.Bold = True
    
12.    Else
    
13.     With .Paragraphs(1)
    
14.              .Range.Font.Bold = True
    
15.              .Alignment = wdAlignParagraphCenter
    
16.              .CharacterUnitFirstLineIndent = 0
    
17.              .FirstLineIndent = 0
    
18. End With
    
19. End If
    
20. If .Characters.Last.Next <> " " Then .InsertAfter " "
    
21.     .Collapse 0
    
22. End With
    
23. Loop
    
24. End With
    
25. Application.ScreenUpdating = True
    
26. End Sub

复制代码