[VBA Word] - Estrarre termini in grassetto da un elenco numerato

[natasha]

Ho un file in Word con un elenco numerato.
Vorrei estrarre (preferibilmente in un file di testo delimitato), per ogni voce dell'elenco numerato, i primi tre termini in grassetto.
E' possibile usando il VBA di Word?

[natasha]

Risolto:

Sub estraiTreGrassetti()
    Set elenco = ActiveDocument.Lists(1)
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("c:\prova.txt", True)
    Dim testo As String
    Dim contaGrassetto As Integer

    For Each voceElenco In elenco.ListParagraphs
        Set paroleParagrafo = voceElenco.Range
        testo = ""
        contaGrassetto = 0
        parolaPrecedente = ""
        For Each parola In paroleParagrafo.Words
            If parola.Bold = True And contaGrassetto < 3 Then
                testo = testo + parola.Text
                parolaPrecedente = parola
            Else
                If parolaPrecedente <> "" Then
                    testo = testo + ";"
                    parolaPrecedente = ""
                    contaGrassetto = contaGrassetto + 1
                End If
            End If
        Next parola
        a.WriteLine testo
    Next voceElenco
    
    a.Close
End Sub