【求助】查找WORD中特定字符串前后的字符并保存

fypm1009

新手请教一个问题，向从一个WORD中，找出特定字符串前后的词，并保存，如附件中，
通过WORD中逐个查找\upcite{，得到它前后的词为Aubin和A78；
然后在查找\bibitem{A78}后的第一个词并进行判断，如果也时Aubin，则将\upcite{前Aubin标注为绿色，否则标为红色。
完成在查找下一个\upcite{，并进行相同操作，直到WORD全部查找完成。

fypm1009

求助求助，不要沉下去

weiyingde

fypm1009 发表于 2020-2-14 14:22
求助求助，不要沉下去

重复的要不要算？

weiyingde

看是不是这样：
Sub 查找()
Set RegEx = CreateObject("VBscript.RegExp")
    RegEx.Pattern = "([A-Za-z]+)(\s\\upcite\{)([A-Z1-9]+)"
    RegEx.Global = True
    RegEx.MultiLine = True
    With ActiveDocument
         sr = .Content.Text
         Set mh = RegEx.Execute(sr)
         For Each mt In mh
          N = N + 1
         sr1 = sr1 & mt.submatches(0) & Space(4) & mt.submatches(2) & Chr(13)
          MsgBox mt
         Next
         .Content.InsertAfter Chr(13) & "查到的有" & 2 * N & "个:" & Chr(13) & sr1
    End With
    sr = ""
End Sub

fypm1009

weiyingde 发表于 2020-2-14 15:02
重复的要不要算？

要计算，所有出现的都要判断一下是否正确

fypm1009

weiyingde 发表于 2020-2-14 15:24
看是不是这样：
Sub 查找()
Set RegEx = CreateObject("VBscript.RegExp")

谢谢，很强大，我吸收吸收再修改一下

fypm1009

weiyingde 发表于 2020-2-14 15:24
看是不是这样：
Sub 查找()
Set RegEx = CreateObject("VBscript.RegExp")

大神，您给我的我细细学习了一下，单层的使用正则我已经理解了，但是如果按照我上面的说法，想要两层嵌套的去查找是否可以实现

即第一次使用RegEx.Pattern = "([A-Za-z]+)(\s\\upcite\{)([A-Za-z1-9]+)"去判断，每次判断到的语句，计算出
mt.submatches(2)，如上文为A78，然后再用另一个正则去匹配出\bibitem{A78} Aubin，词中的Aubin和第一次正则后的mt.submatches(0)比对，相同原文标绿色，不相同标红色；

正则在判断的时候都是从前至后的，这种遍历可以嵌套吗？个人想着比较混乱，求解

weiyingde

fypm1009 发表于 2020-2-15 12:04
大神，您给我的我细细学习了一下，单层的使用正则我已经理解了，但是如果按照我上面的说法，想要两层嵌套 ...

可以实现，稍复杂一些，有时间给你写一个。

fypm1009

weiyingde 发表于 2020-2-15 13:13
可以实现，稍复杂一些，有时间给你写一个。

谢谢，受累了  

weiyingde

fypm1009 发表于 2020-2-15 23:15
谢谢，受累了

你这个例子看不出效果，因为四个都不相同，换个例子或许可行。思路是第一次将找到的各项装入字典，
第二次再以字典中与找到的各项进行匹配，如果相同则改变字色。