How to use it

Example code for using the export

Dim file As Folderitem = GetSaveFolderItem("DOCX", "test.docx")
Dim it As New WordIterator
Dim ftit As New FTIterator(TestDisplay, it)

// Set the cursor to a watch.
App.MouseCursor = System.Cursors.Wait

// Create the Microsoft Word output.
ftit.Run(Nil, Nil)
it.Save(file, it.ZIP_MBS)

// Reset the cursor.
App.MouseCursor = Nil