Macro VBA Word para acrescentar texto com base na correspondência de cores da fonte no documento Word

Estou tentando criar uma macro VBA no Microsoft Word que irá:

1. Comece com uma seleção de texto que sirva como uma "chave de cores". Cada linha na seleção tem uma cor e uma sequência de texto exclusivas.

2. Armazene a cor da fonte e o texto de cada linha na seleção.

3. Procure no restante do documento por parágrafos com cores de fonte que correspondam a qualquer cor na seleção "chave de cores".

4. Adicione o texto correspondente da legenda de cores antes de qualquer parágrafo que compartilhe a mesma cor de fonte.

A saída esperada deveria ser assim, se as três linhas fossem selecionadas e a macro fosse executada.

Código, eu tentei

Sub ApplyColorKeyPrefixes()

    Dim doc As Document
    Dim selectedRange As Range
    Dim colorKeyColors As Collection
    Dim colorKeyPrefixes As Collection
    Dim para As Paragraph
    Dim line As Range
    Dim colorCode As Long
    Dim prefixText As String
    Dim i As Long

    ' Initialize document and collections for color key
    Set doc = ActiveDocument
    Set colorKeyColors = New Collection
    Set colorKeyPrefixes = New Collection
    Set selectedRange = Selection.Range

    For i = 1 To selectedRange.Paragraphs.Count
        Set line = selectedRange.Paragraphs(i).Range
        line.End = line.End - 1  ' Exclude paragraph mark

        ' Store the color and corresponding text
        colorCode = line.Font.Color
        prefixText = Trim(line.Text)

        On Error Resume Next
        colorKeyColors.Add colorCode, CStr(colorCode)
        colorKeyPrefixes.Add prefixText, CStr(colorCode)
        On Error GoTo 0
    Next i

    'oop through all paragraphs in the document (after selection) to find matches
    For Each para In doc.Paragraphs
        ' Skip paragraphs in the initial selection
        If para.Range.Start >= selectedRange.End Then
            Set line = para.Range.Words(1)  ' use first text of selection to determine color
            colorCode = line.Font.Color
            
            ' Check if color match in parag
            On Error Resume Next
            prefixText = colorKeyPrefixes(CStr(colorCode))
            On Error GoTo 0

            If prefixText <> "" Then
                para.Range.InsertBefore prefixText & ": "
                
                ' Retain color for the og text and the prefix text
                para.Range.Words(1).Font.Color = colorCode
                para.Range.Font.Color = colorCode
            End If
        End If
    Next para

    Set colorKeyColors = Nothing
    Set colorKeyPrefixes = Nothing

End Sub

O Problema O código está atualmente aplicando prefixos a todos os parágrafos, não apenas aos que têm cores de fonte correspondentes. Suspeito que pode haver um problema com a forma como estou verificando as correspondências de cores de fonte em colorKeyPrefixes, mas não tenho certeza de onde está o problema.

Como posso modificar a macro para que ela acrescente o texto do prefixo somente aos parágrafos que tenham a mesma cor de fonte de uma das linhas na "chave de cores" selecionada?

Notas Adicionais Cada linha na seleção tem a garantia de ter apenas uma cor. A chave de cores pode conter até 12 cores diferentes. Estou usando a primeira palavra de cada parágrafo para verificar a cor (assumindo que a cor se aplica ao parágrafo inteiro).