Export to Word Script
A short routine to export to Word script
Although a lot of times I've found ways to export to Excel, I got frustrated trying to find a clean way to export to Word. So, I coded a short routine and came up with the following code which, although brief, does the job of exporting to Word.
Note: If the file to which you are exporting has some text, this will be pushed and the new text will be added before the existent text.
Dim ntNotes As NotesDocument Dim path As Variant REM You should have a document in the dir temp of the REM C drive named wordexp.doc or REM whatever name you wish to call it. path="c:tempwordexp.doc" Dim dbNotes As NotesDatabase Dim ssNotes As New NotesSession Dim vwNotes As NotesView Set dbNotes = ssNotes.CurrentDatabase REM make sure you change "viewName" by REM the actual name of the view you REM wish to import from Set vwNotes = dbNotes.Getview ("viewName") Set ntNotes = vwNotes.GetFirstDocument Do While Not (ntNotes Is Nothing) REM set field values REM Get the Word object from a file. Set wordObj = GetObject(path) REM Get value of field from Notes fld tempfield=ntNotes.fldCaratulaContents REM Set Field value and a add a REM carriage return at the end Call WordObj.ActiveWindow.Selection.TypeText (tempfield+Chr$(13)) REM Save document wordObj.Save wordObj.Application.Quit REM Clean from memory Set wordObj = Nothing Set ntNotes = vwNotes.GetNextDocument(ntNotes) Loop Set wordObj = Nothing Msgbox "File has been exported to -->: " + path
Note- if the file to which you are exporting has some text, this will be pushed down and the new text will be added before the existent text. Also this traverses the named view and adds all the text into the word file, if you wish you could create separate word files for each notes document depending on a field value. If you need help drop me a line at dominofan@iname.com