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

413191246se · 发表于 2021-4-16 01:18

说了好多，忘了一句：这样处理，增加了排版时间，影响了效率；但如果确实需要，也就无所谓了。

xkqtdzj · 发表于 2021-4-16 13:48

本帖最后由 xkqtdzj 于 2021-4-18 01:01 编辑

413191246se 发表于 2021-4-16 01:18
说了好多，忘了一句：这样处理，增加了排版时间，影响了效率；但如果确实需要，也就无所谓了。

辛苦了。测试结果正是我想，再次感谢413191246se出手相助。

后来我发现StyleSeparator并非必需。

实际操作中，形如1.＊。＊。＾13。的段落。实验手动先将整段定义为“正文”样式。再将其中的首句定为标题4，竟然也行。也能正常抽取首句入目录。其间并无StyleSeparator联接。其中道理可能是WORD实际上也是能够用文字样式抽取目录而不仅限于段落样式抽取目录。目前尚在摸索中。

梅州 · 发表于 2021-4-16 21:07

多谢分享。。。

413191246se · 发表于 2021-4-30 22:50

* 谢谢梅州朋友！
* 谢谢 xkqtdzj 朋友！经试验确实如你所说，无需插入样式分隔符，只须将第一句设为标题即可制作目录。

晨晓之黎 · 发表于 2021-5-8 22:45

本帖最后由晨晓之黎于 2021-5-8 22:49 编辑

413191246se老师，好久不见！请帮忙写一个选区选中多个表格替换，不选则全选所有表格替换的代码，谢谢！

YXC01_HemosIL ST1 Report AT LIQ per L0000005939 REV 00.rar (192.73 KB, 下载次数: 3)

413191246se · 发表于 2021-5-9 14:13

* 你好！请注意休息，劳逸结合！有时间兴趣可以自学《微软官方VBA帮助文档》（VBAWD10.CHM），每天学一点，必会有进步！（我最近想学一学 Word 的帮助文档，因为有些知识，我还不会，如：题注、修订、尾注等）请试用下面的代码：

Sub Enter2Sapce()
Dim r As Range, t As Table
Set r = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
For Each t In r.Tables
t.Range.Find.Execute "^p", , , 0, , , , , , " ", 2
Next
End Sub

复制代码

413191246se · 发表于 2021-5-9 18:01

“空格”（Space）一词竟然打错了！"Enter2Space"意思是：回车符转为空格。

晨晓之黎 · 发表于 2021-5-9 22:21

413191246se 发表于 2021-5-9 14:13
* 你好！请注意休息，劳逸结合！有时间兴趣可以自学《微软官方VBA帮助文档》（VBAWD10.CHM），每天学一点， ...

测试通过！谢谢413191246se 老师！

梅州 · 发表于 2021-5-16 11:32

感谢分享，先学习。

413191246se · 发表于 2021-5-16 11:48

谢谢楼上！

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

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

评分