正则表达式求助

kerry786032

  \bibitem[{\color[^1]{purple}AA]{Jaffe:2005}
  R~L.~Jaffe,
  ``The Casimir effect and the quantum vacuum'',
  Phys.\ Rev.\ D {\bf 72} (2005) 021301\\
  doi:10.1103/PhysRevD.72.021301  

  \bibitem[{\color{purple}ss]{002} N.~Graham, R.~L.~Jaffe, V.~Khemani, M.~Quandt, M.~Scandurra, and H.~Weigel,\\
  ``Casimir energies in light of quantum field theory'',
  Phys.\ Lett.\ B {\bf 572} (2003) 196\\
  doi:10.1016/j.physletb.2003.03.003

\bibitem{Graham}
  N.~Graham, R.~L.~Jaffe, V.~Khemani, M.~Quandt, O.~Schroeder, and H.~Weigel,\\
  ``The Dirichlet Casimir problem
如上所示三个段落，我想把紫色高亮的部分取出来，奈何自己技术太低，尝试多次无果，所以来论坛想求助下各位前辈，万分感谢

kerry786032

\\bibitem(\[.+\])?(\{.+\})

vbee

Sub VBEE()

    b = "\bibitem{Graham}"
    With CreateObject("VBScript.RegExp")
        .Pattern = "bibitem(\[.+\])?(\{.+\})"
        .IgnoreCase = True
        .Global = True
        Set MATCHES = .Execute(b)
        S = MATCHES(0).SUBMATCHES(MATCHES(0).SUBMATCHES.Count - 1)
        
        Debug.Print S

    End With
End Sub