Sub TestText()

  Dim miDoc As MODI.Document
  Dim miLayout As MODI.Layout
  Dim strText As String
  Dim strWord as String

  Set miDoc = New MODI.Document
  miDoc.Create "C:\document1.tif"
  miDoc.Images( 0 ).OCR
  Set miLayout = miDoc.Images( 0 ).Layout
  strText = miLayout.Text
  strWord = miLayout.Words( 0 ).Text
  Debug.Print strWord
  Debug.Print strText

  Set miLayout = Nothing
  Set miDoc = Nothing

End Sub

Private Sub Кнопка2_Click()
On Error Resume Next
Me!f1 = OpenDialogFileName
fdate = Date
ftime = Time
Dim rst As Recordset

Set rst = CurrentDb.OpenRecordset("Doc")

With rst
.AddNew
![Login] = fOSUserName
![FIO] = DLookup("[FIO]", "Login", "[Login] = '" & fOSUserName & "' ")
![Doc] = Me!f1
![DateDoc] = CDate(fdate + ftime)
.Update
End With

rst.Close

MsgBox "Ссылка на документ загружена в программу !"
Me.f1 = Null
End Sub

Private Declare Function GetOpenFileName Lib "comdlg32.dll" _
   Alias "GetOpenFileNameA" (pOpenFileName As OpehFileName) As Long
Public Function OpenDialogFileName(Optional strStartDir As String) As Variant
Dim d As OpehFileName, Res As Long, S As String, SS As String
Dim I As Byte
Dim a As Integer
d.lpstrInitialDir = strStartDir  ' Здесь твой каталог по умолчанию
d.lpStructSize =  76 
d.nMaxFile =  256 
d.lpstrFile = String( 255 ,  32 )
d.hWndOwner = Application.hWndAccessApp


d.lpstrTitle = "Выбоp файла"
'd.Flags = &H200 Or &H1000 Or &H80000

Res = GetOpenFileName(d)
S = ""
For I =  1  To  255 
 SS = Mid(d.lpstrFile, I,  1 )
 If SS <> Chr( 0 ) Then S = S & SS Else Exit For
Next I
OpenDialogFileName = S
End Function

Function txtOCR(fName as string) as String

  Dim miDoc As MODI.Document
  Dim miLayout As MODI.Layout
  Dim strText As String
  Dim strWord as String

  Set miDoc = New MODI.Document
  miDoc.Create fName
  miDoc.Images( 0 ).OCR
  Set miLayout = miDoc.Images( 0 ).Layout
  txtOCR = miLayout.Text
  
  Set miLayout = Nothing
  Set miDoc = Nothing

End Function


Private Sub Кнопка2_Click()
On Error Resume Next
Me!f1 = OpenDialogFileName
fdate = Date
ftime = Time
Dim rst As Recordset

Set rst = CurrentDb.OpenRecordset("Doc")

With rst
.AddNew
![Login] = fOSUserName
![FIO] = DLookup("[FIO]", "Login", "[Login] = '" & fOSUserName & "' ")
![Doc] = Me!f1
![DateDoc] = CDate(fdate + ftime)
![TextDoc] = txtOCR(Me!f1)
.Update
End With

rst.Close

MsgBox "Ссылка на документ загружена в программу !"
Me.f1 = Null
End Sub

txtOCR = miLayout.Words( 37 ) & Space( 1 ) & miLayout.Words( 38 )