小编Hap*_*aMO的帖子

我在活动窗口标题栏中的parens之间提取文本.那部分工作得很好(感谢我之前收到的一些帮助!).现在我想创建两个单独的宏 - 一个只返回第一个名称,另一个只返回姓氏.

我的活动窗口标题栏看起来像这样:

左边有一些文字(HENDERSON,TOM)右边有一些文字(逗号后面没有空格)

姓氏宏工作得很好.它看起来像这样:

Sub a1LastName()
    'Extract last name of patient from title bar (between parens)
    Dim strPatientName As String
    Dim OpenPosition As Integer '(open paren marker)
    Dim closeposition As Integer '(close paren marker)
    OpenPosition = InStr(ActiveDocument.ActiveWindow.Caption, "(")
    closeposition = InStr(ActiveDocument.ActiveWindow.Caption, ")")
    strPatientName = Mid(ActiveDocument.ActiveWindow.Caption, _
        OpenPosition + 1, closeposition - OpenPosition - 1)
    Dim c As Long
    c = InStr(strPatientName, ",")
    strPatientName = Left(strPatientName, c - 1)
    Selection.TypeText strPatientName
End Sub

第二个宏与第一个宏相同,只是倒数第二行的代码有一个"Right"而不是"Left"指令:

Sub a1FirstName()
    'Extract first name …