Sub Click(Source As Button)
    Dim session As New NotesSession, ws As New NotesUIWorkspace
    Dim doc As NotesDocument, db As NotesDatabase, uidoc As NotesUIDocument
    Set db = session.CurrentDatabase    
    Set uidoc = ws.CurrentDocument
    Set doc = uidoc.Document
    datapatch$ =  "C:\XML\"
    Set rtitemA = doc.GetFirstItem("attach" )
    Dim worddoc As Variant, WordApp As Variant
    
    Forall obj In rtitemA.EmbeddedObjects
        If ( obj.Type = EMBED_ATTACHMENT ) Then
            
            Call obj.ExtractFile( datapatch$ & obj.Source )   
            oname$ = obj.Source 
            
            Set WordApp = CreateObject ("Word.Application")
            WordApp.Visible= False
            
            Set worddoc = WordApp.Documents.Open(datapatch$ + oname$)
            worddoc.Select '  открыли в ворде
            
            
            Print "таблиц "& worddoc.Tables.Count
            For i =1 To worddoc.Tables.Count  '   ТАБЛИЦЫ
                For rr =1 To   worddoc.Tables.Item(i).Rows.Count
                    For j =1 To worddoc.Tables.Item(i).Columns.Count
 Print "табл. " & i & ", строка "  & rr & ", колонка "  &  j &  " = " & worddoc.Tables.Item(i).Cell(rr,j).Range.text
                    Next
                Next    
            Next 
            
            
            worddoc.Close
            WordApp.quit
            Kill     datapatch$ & oname$
        End If    
    End Forall
    
    
    
End Sub