Io gestirei l'elenco tramite excel.

Nella riga uno metterei le intestazioni (autore, anno,bibliografia).
Nelle righe successive carico tutti i dati.

A questo punto posso ordinare agevolmente per la colonna autore.

Infine lanci questa semplice macro e ottieni la visualizzazione desiderata

codice:
Sub ultima()
Dim ultimariga As Long
ultimariga = ActiveSheet.UsedRange.Rows.Count
k = ultimariga + 2
For i = 2 To ultimariga
    With ActiveSheet
        .Range("A" & k) = ActiveSheet.Range("A" & i)
        .Range("A" & k + 1) = ActiveSheet.Range("B" & i)
        .Range("B" & k + 1) = ActiveSheet.Range("C" & i)
    End With
k = k + 3
Next i
End Sub
A questo punto fai un semplice copia incolla in word.



edit. In realtà si tratta di trovare una formuletta per impaginare correttamente i dati di cui farai copia incolla da word in excel. Fatto quello la macro che ti ho scritto rimane sempre valida.