向前辈们求一个“查找文档中不成对的符号标为红色”的宏

13907933959 · 发表于 2015-11-3 07:21

本帖最后由 13907933959 于 2015-11-3 08:52 编辑

如：以下符号有不成对（有右边、缺左边，有左边、缺右边）的，标为红色。

‘’“”（）［］｛｝〔〕〈〉《》「」『』〖〗【】

其中在文档中，如段落开头或单行开头，碰到单边右括号里有数字的，如： 1）2）3）……、一）二）三）……除外。

晚辈先谢谢前辈们！

13907933959 · 发表于 2015-11-5 09:48

求路过的前辈出手相助，晚辈将万分感谢！

413191246se · 发表于 2015-11-6 16:20

本帖最后由 413191246se 于 2015-11-7 00:37 编辑

139：在 VBE（编程环境）中，右键工具栏勾选“编辑”工具栏，点击“设置注释块”按钮，可注释一行或几行代码行，下面的宏如果不喜欢《重波浪线》这两行语句可自行注释掉（该宏未加一）二）三）规避）：（略）

13907933959 · 发表于 2015-11-6 19:08

413191246se 发表于 2015-11-6 16:20
139：在 VBE（编程环境）中，右键工具栏勾选“编辑”工具栏，点击“设置注释块”按钮，可注释一行或几行代 ...

师傅好！
终于等到您的这个代码了，我知道只有您才有办法解决它，真是给力，师傅为徒弟的事总是双保险，还设有重波浪线，一目了然、准确无误，我再也不用一个一个找，一个一个对了。感谢师傅！
师傅、在保证这个效果的前题下，还有不有办法，把在文档中，如段落开头或单行开头，碰到单边右括号里有数字的，如： 1）2）3）……、1）、2）、3）、……、或一）二）三）……一）、二）、三）、……规避掉？如能、这个将又是一个十全十美的宏。

413191246se · 发表于 2015-11-7 00:32

139：试试这次的代码，一般地说是行了，但不保证绝对正确：

Sub 查找不成对符号()
Dim a, b, i As Long
a = Array("‘", "“", "（", "［", "｛", "〔", "〈", "《", "「", "『", "〖", "【")
b = Array("’", "”", "）", "］", "｝", "〕", "〉", "》", "」", "』", "〗", "】")
ActiveDocument.Content.InsertBefore Text:=vbCr
Do
'前符号
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Do While Selection.Find.Execute(findtext:=a(i), Forward:=True)
Do
Selection.MoveEnd Unit:=wdCharacter, Count:=1
If Selection.Characters.Last.Text = vbCr Then GoTo aaa
If Selection.Characters.Last.Text = b(i) Then
Exit Do
ElseIf Selection.Characters.Last.Text = a(i) Then
aaa:
Selection.Characters.First.Font.Color = wdColorRed '红色
Selection.Characters.First.Font.Underline = wdUnderlineWavyHeavy '重波浪线
Selection.MoveEnd Unit:=wdCharacter, Count:=-1
Exit Do
End If
Loop
Selection.MoveRight Unit:=wdCharacter, Count:=1
Loop
'后符号
Selection.EndKey Unit:=wdStory
Selection.Find.ClearFormatting
Do While Selection.Find.Execute(findtext:=b(i), Forward:=False)
Do
Selection.MoveStart Unit:=wdCharacter, Count:=-1
If Selection.Characters.First.Text = vbCr Then GoTo bbb
If Selection.Characters.First.Text = b(i) Then
bbb:
If Len(Selection) <= 7 And Selection Like vbCr & "*[0-9a-zA-Z０-９ａ-ｚＡ-Ｚ一二三四五六七八九十百零甲乙丙丁戊己庚辛壬癸]）" Then GoTo ccc
Selection.Characters.Last.Font.Color = wdColorRed '红色
Selection.Characters.Last.Font.Underline = wdUnderlineWavyHeavy '重波浪线
Selection.MoveStart Unit:=wdCharacter, Count:=1
Exit Do
ElseIf Selection.Characters.First.Text = a(i) Then
Exit Do
End If
Loop
ccc:
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Loop
i = i + 1
Loop Until i = 12
If ActiveDocument.Paragraphs(1).Range.Text = vbCr Then ActiveDocument.Paragraphs(1).Range.Delete
End Sub

复制代码

413191246se · 发表于 2015-11-7 00:36

139---楼上代码第3/4行是一维数组，其中的元素是由英文双引号括起来的，现在是12个元素，a 是前半个符号的集合，b 是后半个符号的集合，如果你想再增加一对成对的符号的话，需要注意每个元素之间有双引号，并且是由逗号分隔的，而且，第48行代码，要改为 Loop Until i=13。

13907933959 · 发表于 2015-11-7 08:42

本帖最后由 13907933959 于 2015-11-7 08:45 编辑

413191246se 发表于 2015-11-7 00:36
139---楼上代码第3/4行是一维数组，其中的元素是由英文双引号括起来的，现在是12个元素，a 是前半个符号的 ...

师傅好！
现在这个宏以十全十美了，真是太好用了！谢谢师傅！
师傅、您的意思是不是说：数组里面的元素有多少组的符号，第48行代码Loop Until i= ？？，后面的数字，也要相应改为多少？
师傅、再问一下，数组里面的元素最多可放多少个？

413191246se · 发表于 2015-11-7 11:51

本帖最后由 413191246se 于 2015-11-7 11:52 编辑

是的，139，数组里面的元素数值要与第48行代码的数值一样（因为用的是循环控制结构 Do...Loop语句，要准确循环才可以，否则就会产生错误了）；数组元素可能是255个吧，数组我不太熟，现在是一维数组，多维数组威力更大。

kqbt · 发表于 2015-11-7 12:04

413191246se 辛苦了！惭愧有一段时间都没来学习了，有时看到需要考虑的因素较多的问题就有力不从心的感觉。
这个问题对于长篇文档的整理比较实用，测试5楼的代码发现部分标点如 <>、[]、{} 未能标注？不知道是不是我哪里操作不对的原因。
另外有些疑问：(1)跨段落匹配的标点算不算成对？
(2)多层嵌套匹配的标点算不算成对？

413191246se · 发表于 2015-11-7 12:56

本帖最后由 413191246se 于 2015-11-7 13:04 编辑

版主谦虚！——测试有限，如 <>、[]、{} 等未加测试。——的确是将配对限制在一个段落内，跨段落情况未考虑。多层嵌套更是不敢企及（本人虽然被139称作师傅，但实际仍为VBA小菜鸟，跟论坛版主/高人们无法比）。谢谢！

*****另外，版主：我是将楼主 139 的这些符号（都是全角）直接使用，如果是半角的符号，未加考虑，须用《半角符号转全角》宏先转换。
*****现在感觉，有很多宏当时认为是正确无误完美的，但有时遇到特殊情况就出错了，不完美了，所以，感觉完美的宏很少，总不到位。

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

[求助] 向前辈们求一个“查找文档中不成对的符号标为红色”的宏

评分