Hi Doug,
Unfortunately this does not work and it may be my fault in my explanation.
I inserted this code right after I insert the file. The file I am inserting
is 2 pages.
Results: I added the file and my formfields were still Text1 through Text10.
When I added this file twice, the 2nd formfields were all blank.

Also,
Since users can add this file multiple times as they could be requesting id
cards for many vehicles, how can I get the section number?
Since I will be updating the formfields with specific information of the
vehicle for each id card, I will need to know which section I am dealing
with. I am also assuming that the 'm' number starts at 1 for each file added.

Here is my code in adding the file along with trying to rename right after:
If ActiveDocument.FormFields("IDCard").Result <> "" Then
Dim myDoc As Document
Dim docrange As Range
Dim array2()
Dim strInfo
 i = 0
 k = 0
 j = 0
 str1 = ActiveDocument.FormFields("IDCard").Result
 array1 = Split(str1, ",")
  For Each Item In array1
   If IsNumeric(Item) Then
    ReDim Preserve array2(i)
    array2(i) = Item
    i = i + 1
   Else
    pos = InStr(1, Item, "-")
    startnum = Mid(Item, 1, pos - 1)
    endnum = Mid(Item, pos + 1, Len(Item))
    num = startnum
     
      For j = (startnum) To (endnum)
       ReDim Preserve array2(i)
       array2(i) = num
       num = num + 1
       
       i = i + 1
      Next
     
    End If
   
  Next

For Each Item In array2
strInfo = getinfo(Item)
array3 = Split(strInfo, ",")
strrkst = array3(0)
If strrkst = "22" Then
 strIDCard = "U:\CL Templates\P1004707\MN Vehicle Insurance Identification
Card.doc"
Else
 strIDCard = "U:\CL Templates\P1004707\Non MN Vehicle Insurance
Identification Card.doc"
End If
Set myDoc = ActiveDocument
With myDoc
    .Unprotect
     Set docrange = .Range
     docrange.Collapse wdCollapseEnd
     docrange.InsertBreak wdPageBreak
     Set docrange = .Range
     docrange.Collapse wdCollapseEnd
     docrange.InsertFile strIDCard
     '
Dim z As Long
With ActiveDocument.Sections.Last.Range
   For z = 1 To .FormFields.Count
       .FormFields(i).Name = "Section" & ActiveDocument.Sections.Count & z
   Next z
End With
     .Protect wdAllowOnlyFormFields, NoReset
End With



strvyr = array3(1)
strmake = array3(2)
strmodl = array3(3)
strvin = array3(4)
'ActiveDocument.FormFields("text9").Result = strvyr & " " & strmake & " " &
strmodl
'ActiveDocument.FormFields("text10").Result = Trim(strvin)


Dim oField As Field
 Dim oStory As Range
 For Each oStory In ActiveDocument.StoryRanges
 
   Do
   For Each oField In oStory.Fields
     If oField.Type = wdFieldRef Then
       oField.Update
     End If
   Next oField
   Set oStory = oStory.Next
   Loop Until oStory Is Nothing
 Next oStory
Next
End If

End Sub

Thanks,
Bryan