Sub AppStart (Args() As String)
Dim doc As JavaObject = OpenDocx("C:\Users\H\Downloads\1.docx", "")
Dim tables As List = doc.RunMethod("getTables", Null)
For Each table As JavaObject In tables
Dim row As JavaObject = table.RunMethod("getRow", Array(0))
Dim cell As JavaObject = row.RunMethod("getCell", Array(0))
Dim paragraphs As List = cell.RunMethod("getParagraphs", Null)
For Each p As JavaObject In paragraphs
Dim runs As List = p.RunMethod("getRuns", Null)
If runs.IsInitialized Then
For Each r As JavaObject In runs
Dim text As String = r.RunMethod("getText", Array(0))
If text <> Null Then
Log(text)
End If
Next
End If
Next
Next
End Sub