The macro could be fairly simple. For example, suppose the 'Document Number' paragraph is the always first in the document and the table is always the last table in the document:
Code:
Sub Demo()
Application.ScreenUpdating = False
Dim StrTmp As String, i As Long
With ActiveDocument
StrTmp = Replace(Split(.Paragraphs(1).Range.Text, ": ")(1), vbCr, "")
With .Tables(.Tables.Count)
For i = 0 To 5
.Cell(5, i + 2).Range.Text = Split(StrTmp, "-")(i)
Next
End With
End With
Application.ScreenUpdating = True
End Sub
There's a bit of guesswork in the above regarding your table, as I'm not quite sure of its layout.