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

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

* 相见，你好！——谢谢夸奖！跟论坛各位老师学到不少，但跟他们比，还差得远，咱们互相学习吧！
* 不知你这样做过没有？新建文档后，全选，录制一个宏，内容是：点击“格式”菜单——字体——确定。这样可得到“字体”格式的 VBA 语句。如果没有，可以尝试做一下。
* 同理，新建文档后，全选，录制——格式菜单——段落——确定，这样会得到“段落”格式的 VBA 语句。
* 同样，新建文档后，全选，录制——页面设置——确定，这样会得到“页面设置”的 VBA 语句，这样学到一些基本的语句语法。
* 标题4，公文的标准是：数字+齐线墨点（即 1．）。数字是西文，齐线墨点（实际上是小数点的全角格式）是中文，字体不是一样的。——齐线墨点打着费劲，平时打小数点或顿号就可以了，用程序自动转换为齐线墨点。用我的《Word2003&2007自动排版宏》就可以自动转换了。

Sub test标题4自动编号()
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 & "．"
'''
With ActiveDocument.Range(Start:=.Characters(1).Start, End:=.Characters(InStr(.Text, "．")).End).Font
.NameFarEast = "黑体"
.NameAscii = "Arial"
.Size = 14 '四号(请自行修改-----16三号/15小三/14四号/12小四/10.5五号)
' .Bold = True '加粗
.Color = wdColorBrown '褐色
End With
'''
With ActiveDocument.Range(Start:=.Characters(InStr(.Text, "．")).End, End:=.Characters.Last.End).Font
.NameFarEast = "宋体"
.NameAscii = "Times New Roman"
.Size = 16 '三号(请自行修改)
' .Bold = True '加粗
.Color = wdColorOrange '橙色
End With
End If
End With
Next
End Sub

复制代码

413191246se · 发表于 2019-8-14 10:15

补充一下：相见，我觉得你是没掌握 Range 的用法（和函数 Instr 的用法），多看看 Range 对象/方法/属性，《微软 VBA 官方帮助》文档，有时间请多学习学习（如果没有，到我的帖子中的链接下载）。

相见是缘8 · 发表于 2019-8-15 06:57

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

413191246se 发表于 2019-8-14 10:15
补充一下：相见，我觉得你是没掌握 Range 的用法（和函数 Instr 的用法），多看看 Range 对象/方法/属性， ...

老师好！

你说的是，我只有一点手动查找替换的基础，对VBA还是个门外汉，老师的建议和例举是个好方法我会尝试，感谢老师的代码！谢谢！

你11楼的代码是“编码整个段落”设置格式的，我想要的只是“编码及编码后的标点”设置格式，就是你9楼2号的代码，再增加一个“编码及编码后的顿号”设置格式。

413191246se · 发表于 2019-8-15 08:44

相见，第 19 行——25行屏蔽即可，请重新试试。

相见是缘8 · 发表于 2019-8-15 09:15

413191246se 发表于 2019-8-15 08:44
相见，第 19 行——25行屏蔽即可，请重新试试。

老师好！
不行。

413191246se · 发表于 2019-8-15 14:07

本帖最后由 413191246se 于 2019-8-15 19:48 编辑

相见，将 19-25 行代码屏蔽/注释后就是你要的代码了！请重新测试。

相见是缘8 · 发表于 2019-8-16 07:08

413191246se 发表于 2019-8-15 14:07
相见，将 19-25 行代码屏蔽/注释后就是你要的代码了！请重新测试。

老师好！
抱歉！抱歉！是OK的，是我算错行了，你的意思是按你11楼代码左边标示的代码行数算，而我是在代码窗口内算的。
感谢老师！

413191246se · 发表于 2019-8-16 09:50

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

* 是的，是的。咱们两个参照标准不一样。相见，你对标题4进行编号有什么目的呢？
* 我最新的 8-15 版本，请下载试用，目前，它是排版最快速的了。
* 另外，今后也不改了，我觉得现在已经是最好的排版流程了。
* 有时间，你可以在 VBE 中按 F8 对我的代码逐行调试，学习一下排版流程及方法、属性等。
* 最后建议：反复学习一下《微软 VBA 官方帮助》文档，即 VBAWD10.CHM，掌握一些初步 VBA 操作（如果没有此文档，可到我 7月9日帖子中的下载链接点击下载）；还有，有一本电子书叫《VBA从入门到精通（第二版）》，你也可以学习学习。

相见是缘8 · 发表于 2019-8-16 11:01

413191246se 发表于 2019-8-16 09:50
* 是的，是的。咱们两个参照标准不一样。相见，你对标题4进行编号有什么目的呢？
* 我最新的 8-15 版本， ...

老师好！
对标题4进行编号的目的，因我是在一家大型的仓储公司打工，那个“测试附件”里面其实是公司里部分仓储的东西（里面包括它们的产地、型号、性能、价格…等），原来它们的编号是条形码，在实际操作中我感觉不方便，所以自已编个号再与原来的条形码对应上，这样方便一些。
感谢你的建议，我知道你是为我好，可我不想深学：一、学这个太难了，不是短时间能学会的。二、即使学会了，在现实生活中用处也不太。三、生存的压力，这点我和你徒弟139相似。所以我也只能是“弱水三千、只取一瓢饮”！有兴趣有时间就来看一下，没兴趣没时间就放下。

413191246se · 发表于 2019-8-16 14:18

好的，现在你已经会用宏代码了，这点是最基本的；不想深学也好，好好享受生活吧！
有问题就上来问，我能帮到你就帮你；工作中，在 Word 文档处理上，用宏能提高效率。

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

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