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…
Here’s the code i’m using. Btw, random number generation code is courtesy of rene scheening
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
With Love and Light
Larry