Exactly where on the page is the name?

I think that what you will need to do is save each page of the document as a
separate file in a directory that you create for the purpose with the name
of the file being the LastNameFirstName and then use a macro to recombine
the individual files into a new document by order of the filename.  A
modification of the following macro could do the splitting:

Sub splitter()

'

' splitter Macro

' Macro created 16-08-98 by Doug Robbins to save each page of a document

' as a separate file with the name Page#.DOC

'

Dim Counter As Long, Source As Document, Target As Document

Set Source = ActiveDocument

Selection.HomeKey Unit:=wdStory

Pages = Source.BuiltInDocumentProperties(wdPropertyPages)

Counter = 0

While Counter < Pages

   Counter = Counter + 1

   DocName = "Page" & Format(Counter)

   Source.Bookmarks("\Page").Range.Cut

   Set Target = Documents.Add

   Target.Range.Paste

   Target.SaveAs FileName:=DocName

   Target.Close

Wend

End Sub

Then, the following macro should recombine the documents:

Dim MyPath As String
Dim MyName As String
Dim Source As Document
Dim Target As Document

'let user select a path
With Dialogs(wdDialogCopyFile)
   If .Display() <> -1 Then Exit Sub
   MyPath = .Directory
End With

'strip quotation marks from path

If Len(MyPath) = 0 Then Exit Sub

If Asc(MyPath) = 34 Then
   MyPath = Mid$(MyPath, 2, Len(MyPath) - 2)
End If

'get files from the selected path
'and insert them into the doc
MyName = Dir$(MyPath & "*.*")
Set Target = Documents.Add
Do While MyName <> ""
   Set Source = Documents.Open(MyName)
   Target.Range.InsertAfter Source.Range.FormattedText
   Source.Close wdDoNotSaveChanges
   MyName = Dir
Loop