Manage Learn to apply best practices and optimize your operations.

Transfer Fields Value to Word Document

If you want to transfer all fields name and values on the form, you can use this script.

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim item As NotesItem
   Dim wApp As Variant
   Dim wDoc As Variant

   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document

   Set wApp = CreateObject("Word.Application")
   wApp.StatusBar = "Creatin document, plese wait..."
   wApp.Visible = True
   Set wDoc = wApp.ActiveWindow
   wApp.StatusBar = "transfering data, please wait..."

   Forall i In doc.Items
    Set item=doc.GetFirstItem( i.Name )

    Call wApp.Selection.TypeText(i.Name)
    Call wApp.Selection.Typeparagraph
    Call wApp.Selection.TypeText(item.Text)
    Call wApp.Selection.Typeparagraph
     Call wApp.Selection.Typeparagraph

   End Forall

   wApp.StatusBar = "Data were successfully transfer."
End Sub

Dig Deeper on Domino Resources - Part 5

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.




  • iSeries tutorials's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...