OK, as a barebones solution, this macro will put the results into your VBA Immediate Window. You can then copy/paste that output it to Excel and do a global search and replace to remove the (tool: ) bits.
Code:
Sub ToolTime()
Dim sNum As String, sTool As String, iPos As Integer
Dim aPara As Paragraph, sParaText As String, sData As String
For Each aPara In ActiveDocument.Paragraphs
If aPara.Range.ListFormat.ListString <> "" Then sNum = aPara.Range.ListFormat.ListString
sParaText = aPara.Range.Text
iPos = InStr(sParaText, "(tool:")
If iPos > 0 Then
sTool = Mid(sParaText, iPos)
sData = sData & sNum & vbTab & sTool
End If
Next aPara
Debug.Print sData
End Sub