使用VBA查找特定文本并将该段设置为宋体？

shuiyuan · 发表于 2016-9-12 17:20

使用VBA查找特定文本并将该段设置为宋体？
1、查找每段文字开头形如（1）。。。（n）
2、将该段文本设置为宋体四号
谢谢！

duquancai · 发表于 2016-9-12 19:15

版主，提供附件不方便吗？一般来说：查找是非常需要附件的支撑！

duquancai · 发表于 2016-9-12 19:32

本帖最后由 duquancai 于 2016-9-12 19:48 编辑

Sub shishi()
Dim mt, oRang As Range, rng As Range, n%, m%
Set rng = ActiveDocument.Content
With CreateObject("vbscript.regexp")
.Pattern = "^[（(]\s*\d+\s*[)）][^\r]*$"
.Global = True: .MultiLine = True
For Each mt In .Execute(rng)
m = mt.FirstIndex: n = mt.Length
Set oRang = ActiveDocument.Range(m, m + n)
oRang.Font.Size = 14
oRang.Font.Name = "宋体"
Next
End With
End Sub

复制代码

shuiyuan · 发表于 2016-9-13 04:06

duquancai 发表于 2016-9-12 19:32

非常感谢，非常完美的解决了我的问题。

13907933959 · 发表于 2016-9-13 08:52

本帖最后由 13907933959 于 2016-9-13 09:16 编辑

duquancai 发表于 2016-9-12 19:32

前辈好！
感谢前辈的多次出手相助！
前辈上面的代码在整理文档中，相当的实用，能否向前辈求下面7个单独的代码，查找括号内数字及标题数字开头的段落，并设置它们的：字体、字形（加粗、斜体、下划线）、字号、颜色。
（1）、（2）、（3）、……。
（一）、（二）、（三）、……。
（A）、（B）、（C）、……。
（a）、（b）、（c）、……。
⒈⒉⒊……。
①、②、③……。
㈠、㈡、㈢……。

万分感谢！

duquancai · 发表于 2016-9-13 11:17

本帖最后由 duquancai 于 2016-9-13 11:24 编辑

13907933959 发表于 2016-9-13 08:52
前辈好！
感谢前辈的多次出手相助！
前辈上面的代码在整理文档中，相当的实用，能否向前辈求下面7个单 ...

这些编号序列，我只说说带圈数字序列的代码点，其它的都简单。
就是形如：①、②、③……。这种带圈数字序列，Windows系统默认状态下：支持1-20的带圈的数字。
正则匹配这种带圈数字序列可以考虑用Unicode字符代码点进行匹配。
现举例：匹配1-20的带圈的数字Unicode字符代码点范围： [\u2460-\u2473] 更多的代码点请查阅Unicode编码。
因此结合本帖的要求其WordVBA代码如下：

Sub shishi()
Dim mt, oRang As Range, rng As Range, n%, m%
Set rng = ActiveDocument.Content
With CreateObject("vbscript.regexp")
.Pattern = "^[\u2460-\u2473][^\r]*$"
.Global = True: .MultiLine = True
For Each mt In .Execute(rng)
m = mt.FirstIndex: n = mt.Length
Set oRang = ActiveDocument.Range(m, m + n)
oRang.Font.Size = 14
oRang.Font.Name = "宋体"
Next
End With
End Sub

复制代码

13907933959 · 发表于 2016-9-13 11:43

duquancai 发表于 2016-9-13 11:17
这些编号序列，我只说说带圈数字序列的代码点，其它的都简单。
就是形如：①、②、③……。这种带圈数 ...

前辈好！
感谢回复及代码！代码准确无误！
对前辈来说简单的问题，对我来说就是超大的难题！不要说写出来，看都还看不太懂，所以、能否恳请前辈帮忙写一下其它的几个代码？谢谢！

duquancai · 发表于 2016-9-13 12:09

本帖最后由 duquancai 于 2016-9-13 15:03 编辑

13907933959 发表于 2016-9-13 11:43
前辈好！
感谢回复及代码！代码准确无误！
对前辈来说简单的问题，对我来说就是超大的难题！不要说写出 ...

（1）、（2）、（3）、……。          .Pattern = "^（\s*\d+\s*）[^\r]*$"
（一）、（二）、（三）、……。       .Pattern = "^（\s*[一二三四五六七八九十〇百千万]+\s*）[^\r]*$"
（A）、（B）、（C）、……。          .Pattern = "^（[A-Z]+）[^\r]*$"
（a）、（b）、（c）、……。          .Pattern = "^（[a-z]+）[^\r]*$"
⒈⒉⒊……。                                  .Pattern = "^[\u2488-\u249B][^\r]*$"
①、②、③……。                            .Pattern = "^[\u2460-\u2473][^\r]*$"
㈠、㈡、㈢……。                            .Pattern = "^[\u3220-\u3229][^\r]*$"

13907933959 · 发表于 2016-9-13 15:59

duquancai 发表于 2016-9-13 12:09
（1）、（2）、（3）、……。 .Pattern = "^（\s*\d+\s*）[^\r]*$"
（一）、（二）、（三） ...

前辈好！
感谢回复！公式准确无误！
前辈这几段查找公式，不但为在下整理文档真省了不少的时间，而且还受益非浅！在下拜谢前辈！！！

kszcs · 发表于 2016-10-8 21:53

留下记号，

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

使用VBA查找特定文本并将该段设置为宋体？

评分