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