With wrdDoc
.Bookmarks("Post").Range.Text = rst!PositionTitle
.Bookmarks("Name").Range.Text = rst!Name
.Bookmarks("Name1").Range.Text = rst!Name
.Bookmarks("Name2").Range.Text = rst!Name
.Bookmarks("Post1").Range.Text = rst!PositionTitle
.Bookmarks("Post2").Range.Text = rst!PositionTitle
.Bookmarks("Period").Range.Text = rst!Period
.Bookmarks("Date").Range.Text = rst!StartDate
.Bookmarks("Scale").Range.Text = rst!Scale
.Bookmarks("Salary").Range.Text = Format(rst!BasicPay, "Currency")
'Save Document
strFilePath = CurrentProject.Path & "\" & "Contracts" & "\"
        If Len(Dir(strFilePath, vbDirectory)) = 0 Then
            MkDir strFilePath
            End If
strName = strFilePath & rst!Name & ".docx"
.SaveAs (strName)
.Close
End With
Set wrdDoc = Nothing
rst.MoveNext
Loop

For Each varBookmark In wrdDoc.Bookmarks
varBookmark.Range.Font.Bold = True
Next varBookmark

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim PID As String
    Dim Criteria As String
    Dim fAns As Integer
    Dim rsc As DAO.Recordset
        
        Set rsc = Me.RecordsetClone
        PID = Me.First_Name.Value
        
        Criteria = "[First_Name]=" & "'" & PID & "'"
        
        If DCount("*", "Patients", Criteria) > 0 Then
            fAns = MsgBox("This Record Already Exists! Add it Anyway?" _
                    & vbCrLf & "Click Yes to add, No to jump to existing record, " _
                    & vbCrLf & "Cancel to go back to editing this record", _
                        vbYesNoCancel)
        Select Case fAns

        Case vbYes ' do nothing, let the record be added
        
        Set rsc = Nothing
            If MsgBox("You are about to add a record." _
                & vbCrLf & vbCrLf & "Do you want to save this record?" _
                , vbYesNo, "Record Confirmation") = vbYes Then
            
            DoCmd.Save
        Else
            DoCmd.RunCommand acCmdUndo
    End If
        Case vbNo
Cancel = True
            Me.Undo
            rsc.FindLast Criteria
            Me.Bookmark = rsc.Bookmark ' move to last found record
        Case vbCancel
Cancel = True ' suppress update, return to form
End Select
End If

End Sub

Paper Record - Raw data
PID    SampleNo    Volume
123    Cal    6.1
123    1    6.3
123    2    6.1
123    Cal    6.0
123    3    6.3
123    4    6.3
123    5    6.3
123    6    6.3
123    7    6.2
123    Cal    6.2
123    8    6.3
123    9    6.3
123    10    6.3
123    11    6.3
123    12    6.3
123    13    6.3
123    14    6.3
123    15    6.3
123    16    6.3
123    17    6.3
123    18    6.3

Access Entry Form table
PID    Low High    Volume
123    Cal        6.1
123    1        6.3
123    2        6.1
123    Cal        6.0
123    3    6    6.3
123    7        6.2
123    Cal        6.2
123    8    18    6.3

Dim strSql As String

Dim myFilename1 As String
Dim myAccount1 As String
Dim datecopiedintoxpm1 As String
Dim groupname1 As String '"BANKDIRECTLETTERS"
Dim usernametransferred1 As String
Dim folderpathxpm1 As String '\\serverfolder\serverfolder\serverfolder\Operations\Misc. Documents\
Dim folderpathreject1 As String '\\serverfolder\serverfolder\serverfolder\serverfolder\serverfolder\serverfolder\serverfolder

For Each fsoFile In fsoFiles

    myFilename1 = fsoFile.Name
    myAccount1 = Left(fsoFile.Name, 17)
    datecopiedintoxpm1 = Format(Now, "[$-409]m/d/yy h:mm AM/PM;@")
    groupname1 = "BANKDIRECTLETTERS"
    usernametransferred1 = StrConv(fOSUserName, vbUpperCase)
    folderpathxpm1 = "\\serverfolder\serverfolder\serverfolder\Operations\Misc. Documents\"
    folderpathreject1 = "\\serverfolder\serverfolder\serverfolder\serverfolder\serverfolder\serverfolder\serverfolder"
    
    strSql = "INSERT INTO TRANSFERFILES (FILENAME, ACCOUNTNUMBER, DATECOPIEDINTOXPM, GROUPNAME,USERNAMETRANSFERRED, FOLDERPATHXPM, " _
    & "FOLDERPATHREJECT) VALUES " & "'" & myFilename1 & "'" & ", " & "'" & myAccount1 & "'" & ", " & "#" & datecopiedintoxpm1 & "#" & ", " _
    & "'" & groupname1 & "'" & ", " & "'" & usernametransferred1 & "'" & ", " & "'" & folderpathxpm1 & "'" & ", " _
    & "'" & folderpathreject1 & "'"
    
    myDb.Execute strSql

INSERT INTO TRANSFERFILES (FILENAME, ACCOUNTNUMBER, DATECOPIEDINTOXPM, GROUPNAME,USERNAMETRANSFERRED, FOLDERPATHXPM, FOLDERPATHREJECT) VALUES '50231112345679001.PDF', '50231112345679001', #2/8/12 4:05 PM#, 'BANKDIRECTLETTERS', 'PISORSIA', '\\Dwfprod\dropoff\dropOff\Operations\Misc. Documents\', '\\wff005602sfs002\AllAFG_5602\DOCUMENT MANAGEMENT\Analyst Shared Files\Imaging\Bank Direct Booking\Rejects'