Hi Saneman,
Presumably the licence # is in the same position for every licence. In that case, it's simply a matter of using a Range statement (eg StrName = .Range(1050,1060)). With the document you posted, for example, you can retrieve the licence # with:
Msgbox Activedocument.Range(104, 113)
To find where the licence #s appear in each Section, select the first one and use:
Code:
Sub test()
Dim StrName As String, i As Long, j As Long
With ActiveDocument
i = .Range(Selection.Start).Start
j = .Range(Selection.End).Start
StrName = .Range(i, j)
MsgBox "Start" & vbTab & "end" & vbTab & "String" & vbCr & i & vbTab & j & vbTab & StrName
End With
End Sub