文档内篮色字符开头的段落前面编序号

相见是缘8 · 发表于 2019-8-10 08:46

分二种情况：

第一种情况是：

从文档内，字号为小三的红色字符段落，到下一个字号为小三的红色字符段落止，区间篮色字符开头的段落前面依次编序号，如：第一个字号为小三的红色字符段落，到下一个字号为小三的红色字符段落区间有77个篮色字符开头的段落，编序号依次为1、～77、止。第二个区间有85个篮色字符开头的段落，编序号依次为1、～85、止。第三个区间……

注：如字号为小三的红色字符段落，到下一个字号为小三的红色字符段落，区间没有篮色字符开头的段落，则跳过。

第二种情况是：从文档内第一个篮色字符开头的段落到文档结束，区间的篮色字符开头的段落前面依次编序号，如：总共有1229篮色字符开头的段落，依次编序号为1、～1229、止。

求各位老师帮忙写2个代码，谢谢！

413191246se · 发表于 2019-8-10 10:57

* 相见，代码中 n=0 是开关，注释/去掉注释=重新编号！

Sub test()
Dim i As Paragraph, n&
For Each i In ActiveDocument.Paragraphs
With i.Range
If .Font.Color = wdColorRed And .Font.Size = 15 Then
' n = 0
ElseIf .Characters(1).Font.Color = wdColorBlue Then
n = n + 1
.InsertBefore Text:=n & "．"
End If
End With
Next
End Sub

复制代码

duquancai · 发表于 2019-8-10 23:17

本帖最后由 duquancai 于 2019-8-11 00:14 编辑

周末了！做了第一个小题，第二个小题就非常简单了，就不做了！！！
下载附件打开点击按钮，ok！

相见是缘8 · 发表于 2019-8-11 08:23

413191246se 发表于 2019-8-10 10:57
* 相见，代码中 n=0 是开关，注释/去掉注释=重新编号！

老师好！
代码不但精准加序号！还一码二用！高级！感谢老师！

相见是缘8 · 发表于 2019-8-11 08:26

duquancai 发表于 2019-8-10 23:17
周末了！做了第一个小题，第二个小题就非常简单了，就不做了！！！
下载附件打开点击按钮，ok！

杜老师好！
代码精准加序号！您的代码总是高级得让人望尘莫及！感谢老师援手！

相见是缘8 · 发表于 2019-8-13 07:38

413191246se 发表于 2019-8-10 10:57
* 相见，代码中 n=0 是开关，注释/去掉注释=重新编号！

老师好！
如果想把编号及编号后的顿号改为黑色，这个代码要怎样修改？

wdpfox · 发表于 2019-8-13 11:35

下载学习，谢谢分享！学会变通，举一反三。

莫愁前路无知己，天下谁人不识君！只道是：海内存知己，天涯若比邻！

wdpfox · 发表于 2019-8-13 11:46

本帖最后由 wdpfox 于 2019-8-13 11:47 编辑

是一码二鸟

413191246se · 发表于 2019-8-13 14:23

本帖最后由 413191246se 于 2019-8-16 09:54 编辑

略。。。。

相见是缘8 · 发表于 2019-8-14 08:05

本帖最后由相见是缘8 于 2019-8-14 08:39 编辑

413191246se 发表于 2019-8-13 14:23
* 相见，未发现顿号！

老师好！
老师的代码越来越和杜老师的一样高级，现在我一点都看不懂了！感谢老师给了二个代码，代码2也可实现我想要的部分结果，这个怪我没说清楚，其实我想要的是你在2楼的代码中，再增加一个对编号及编号后的标点设置颜色及字形（非加粗）语句的代码。

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

[求助] 文档内篮色字符开头的段落前面编序号