Hi!
How do you keep your uidoc focused on the newly opened document after u do a workspace.EditDocument?
Currently
-Main form opens up new document with EditDocument with the use of for loop
-Loop continues and opens up another document
Want to achieve
-Main form opens up new document with EditDocument with the use of for loop
-New document’s scripts run
-New document closed(probably by Save, exit)
-Main form’s for loop continues
-Next document opens…
With Love and Light
Larry
Subject: EditDocument on newly opened document
Hello,
Can you please show your code, so that we can have a better look?
bregds,
Munish Kaushik
Subject: RE: EditDocument on newly opened document
Hi Munish and all!
Thanx in advance for your help.
By the way, this random number generation is courtesy of rene.
Dim docno2 As String
Set db = session.CurrentDatabase
Set uidoc = ws.CurrentDocument
Set view = db.GetView(“DocumentNo”)
Set doc = view.GetFirstDocument
For i=0 To 14
numbers(i) = i+1
Next
For i=0 To 14
number = 15- i
randomNumberArray = Evaluate(|@Integer( | + Cstr(number)+| *@Random )|)
'evaluate returns a variant, so the random number is the first element of randomNumberArray
randomNumber = Cint(randomNumberArray(0))
randomNumbers(i) = numbers(randomNumber )
'remove the element from the original numbers list
For x = randomNumber To 13 - i
numbers(x) = numbers(x+1)
Next
Erase numbers(14-i)
Next
printLine = “”
For i=0 To 14
breakwhile = False
printLine = printLine + Cstr(randomNumbers(i)) + " "
docno = randomNumbers(i)
While Not doc Is Nothing And breakwhile =False
docno2 = doc.GetItemValue(“DocumentNumber”)(0)
If docno2 = Cstr(docno) Then
breakwhile=True
Else
Set doc = view.GetNextDocument(doc)
End If
Wend
Set uidoc = ws.EditDocument( False, doc, True, , ,True )
Print “After opening”
Next
Print printLine