杜先生请进：公文中文标题四个层次自动设置（宏）

菜菜行者 · 发表于 2017-5-17 23:13

duquancai 发表于 2017-5-17 13:18
Sub 公文_自动排版_只排文字不排表格_正则处理方式()
Dim doc As Document, a, b
Set doc = ...

厉害了，先收藏

413191246se · 发表于 2017-5-18 05:34

本帖最后由 413191246se 于 2017-5-20 11:12 编辑

杜先生：辛苦了！太感谢了！函数数组使宏运行更快，测试.167秒。

wdpfox · 发表于 2017-6-13 10:23

收藏学习，多谢杜老师慷慨分享好资料！
　　　　　　Oooo
　　　　　　(___)
　　oooO 　 )_/
　　(___) 　 (_/
　　 \_(
　　　\_)

chenwenming · 发表于 2017-10-14 21:03

duquancai 发表于 2017-5-17 13:18
Sub 公文_自动排版_只排文字不排表格_正则处理方式()
Dim doc As Document, a, b
Set doc = ...

学习了，受益菲浅！

kerry786032 · 发表于 2017-10-16 14:53

学习了，多谢分享.

eastiger · 发表于 2020-11-19 17:12

duquancai 发表于 2017-5-17 13:18
Sub 公文_自动排版_只排文字不排表格_正则处理方式()
Dim doc As Document, a, b
Set doc = ...

非常优秀的老大！

xj123321 · 发表于 2021-11-23 11:49

学习一下

numen1014 · 发表于 2023-4-17 12:24

本帖最后由 numen1014 于 2023-4-17 12:26 编辑

duquancai 发表于 2017-5-16 09:30
纯文本和有表格通用（不处理表格中的标题层次），没有图片、图形、域等
同时也把段首空白去掉吧！！！！ ...

请问杜先生，我的标题层次是：标题 1：第[0-9一二三四五六七八九十]章、；标题 2：第[0-9一二三四五六七八九十]节、；标题 3：\d+[、.．][!0-9]；标题 4：\d+[、.．]\d+[、.．][!0-9]。循环查找时，.movewhile不能正确识别标题。

我感觉问题出在.movewhile的使用上，能不能详细的讲解一下.MOVEWHILE的用法。

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

[求助] 杜先生请进：公文中文标题四个层次自动设置（宏）