Data:
    ObjType type TOAV0-SAP_OBJECT,
    IbjID   type TOAV0-OBJECT_ID,
    it_Connections type table of TOAV0 with header line.

  ObjType = 'PREL'.
  IbjID   = PERNR-PERNR.

  Call function 'ARCHIV_GET_CONNECTIONS'
    EXPORTING
      OBJECTTYPE  = ObjType
      OBJECT_ID   = IbjID
    TABLES
      CONNECTIONS = it_Connections
    EXCEPTIONS
      others      = 1.

  If sy-subrc = 0.
    Read table it_Connections index 1.
    Concatenate TempDir '\' PERNR-PERNR '-' SY-TIMLO '.' it_Connections-RESERVE
      into FlName.

    CALL FUNCTION 'ARCHIVOBJECT_GET_DT_VIA_TABLE'
      EXPORTING
        ARCHIV_ID     = it_Connections-ARCHIV_ID
        ARCHIV_DOC_ID = it_Connections-ARC_DOC_ID
        DOC_TYPE      = ' '
        DTPATH        = FlName
      EXCEPTIONS
        OTHERS        = 2.
    If sy-subrc = 0.
      Append FlName.
      SetLine 'Место_вывода' count_loop '[photo]' '' FlName.
      SetLine 'Место_вывода' count_loop '' 'M' 'Photo'.
    EndIf.
  EndIf.

Sub Photo(r As Range)
  Dim FlName As String, R2 As Range, T As Range
 
  On Error Resume Next
  Set T = r.Tables.Item(1).Range
  Set R2 = T.Cells(2).Range
  For I = 1 To Len(R2.Text)
    s = Mid(R2.Text, I, 1)
    If s <> Chr(13) And s <> Chr(7) And s <> Chr(10) Then
      FlName = FlName + s
    End If
  Next
  R2.Text = ""
  ActiveDocument.InlineShapes.AddPicture FlName, , , R2
  T.Cells.DistributeHeight
End Sub

Sub Photo([b]r As Range[/b])
  Dim FlName As String, R2 As Range, T As Range
.................................