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.
it.Save(file, it.ZIP_MBS)