Макрос для добавления выделенного текста в библиографический список Word

Sub AddToBibliography()
    
Dim selectedText As String
Dim author As String, year As String, title As String, journal As String, volume As String, issue As String, pages As String
Dim sourceXML As String
Dim uniqueTag As String
Dim parts() As String
 
    ' Танланган текстни олиш
    If Selection.Type = wdSelectionIP Then
        MsgBox "Пожалуйста, сначала выделите текст!", vbExclamation
        Exit Sub
    End If
 
    selectedText = Trim(Selection.text)
 
' Текстни парс ?илиш
    On Error GoTo ParseError
    parts = Split(selectedText, "(")
    author = Trim(parts(0)) ' Автор
    parts = Split(selectedText, "(")
    year = Mid(parts(UBound(parts) - 1), 1, 4) ' Год
    parts = Split(selectedText, ").")
    parts = Split(parts(1), ".")
    title = Trim(parts(0)) ' Название статьи
    parts = Split(selectedText, ").")
    parts = Split(parts(1), ",")
    parts = Split(parts(0), ".")
    journal = Trim(parts(1)) ' Журнал
    parts = Split(selectedText, ",")
    volume = Trim(Split(parts(2), "(")(0)) ' Том
    issue = Trim(Replace(Split(Split(parts(2), "(")(1), ")")(0), " ", "")) ' Номер
    parts = Split(selectedText, ",")
    parts = Split(parts(UBound(parts)), ".")
    pages = Trim(parts(0)) ' Страницы
 
    On Error GoTo 0
' Уникал тег ясаш (ва?т там?аси билан)
    uniqueTag = "Ref_" & Replace(author, " ", "") & year & "_" & Format(Now, "hhmmss")
 
' XML манбасини шакллантириш
    sourceXML = "<b:Source xmlns:b=""http://schemas.openxmlformats.org/officeDocument/2006/bibliography"">" & _
                "<b:Tag>" & uniqueTag & "</b:Tag>" & _
                "<b:SourceType>JournalArticle</b:SourceType>" & _
                "<b:Author>" & _
                    "<b:Author>" & _
                        "<b:NameList>" & _
                            "<b:Person>" & _
                                "<b:Last>" & Split(author, ",")(0) & "</b:Last>" & _
                                "<b:First>" & Replace(author, Split(author, " ")(0) & " ", "") & "</b:First>" & _
                            "</b:Person>" & _
                        "</b:NameList>" & _
                    "</b:Author>" & _
                "</b:Author>" & _
                "<b:Year>" & year & "</b:Year>" & _
                "<b:Title>" & title & "</b:Title>" & _
                "<b:JournalName>" & journal & "</b:JournalName>" & _
                "<b:Volume>" & volume & "</b:Volume>" & _
                "<b:Issue>" & issue & "</b:Issue>" & _
                "<b:Pages>" & pages & "</b:Pages>" & _
                "</b:Source>"
 
' Word'нинг встроенный механизм Citation ?ўшиш
    With ActiveDocument.Bibliography.Sources
        .Add sourceXML
    End With
 
' Адабиётлар рўйхатини янгилаш
    ActiveDocument.Fields.Update
 
    MsgBox "Выделенный текст добавлен в список литературы.", vbInformation
    Exit Sub
 
ParseError:
    MsgBox "Неверный формат текста! Формат: Автор, И.О. (Год). Название статьи. Журнал, Том(Номер), Страница-Страница.", vbExclamation
End Sub