Private Sub Class_Globals
Private fx As JFX
Private Document As JavaObject
Private table As JavaObject
End Sub
Public Sub Initialize
Document.InitializeNewInstance("org.apache.poi.xwpf.usermodel.XWPFDocument",Null)
End Sub
Sub getPageSize As Object
Dim o As Object = Document.RunMethodJO("getDocument",Null).RunMethodJO("getBody",Null).RunMethodJO("getSectPr",Null)
Return o
End Sub
Public Sub CreateTable(row As Int, columns As Int)
table = Document.RunMethod("createTable", Array(row,columns))
End Sub
Sub SaveDocument(doc As JavaObject, Dir As String, FileName As String)
Dim out As OutputStream = File.OpenOutput(Dir, FileName, False)
doc.RunMethod("write", Array(out))
out.Close
End Sub