היי,
אני מחפש דרך בה אני מאפשר למשתמש לבחור ערכים מרובים -
נאמר 150 מספרי הזמנה, כאשר ההזמנות אינם ברצף אלא אקראיות. לבצע זאת עם מקש Ctrl זה אפשרי אך לא ידידותי.
אפשר ליצור פתרון שבו ניתן יהיה לרשום את כל מספרי ההזמנות בקובץ אקסל. הקליקויו יקלוט את האקסל דרך מקרו לפי דרישת המשתמש, ויבצע בחירות על הערכים המתאימים.
Set oWB=oXL.Workbooks.Open(f_name)
Set oSH=oWB.Worksheets.Item(1)
qv_str = ""
excel_items_count = 0
For Each cell in oSH.Range("A1:A5000")'.value
qv_str = qv_str & cell.Value & ","
excel_items_count = excel_items_count + 1
Next' cell;
qv_str1 = left(qv_str,len(qv_str)-1)
rem ** select two non-consecutive field values in field **
set f = ActiveDocument.Fields("FIELD NAME")
set fv = f.GetNoValues 'empty array
for arr_item = 1 to excel_items_count
fv.Add
fv(arr_item-1).Text = activedocument.Evaluate("subfield('" & qv_str1 & "', ',' ," & arr_item & ")")
fv(0).IsNumeric = false
next
f.SelectValues fv
oWB.Close
Set oSH=nothing
Set oWB=nothing
Set oXL=nothing
End Sub
אם תגדיר את המאפיין Selection Style Override של הליסטבוקס כ-Windows Chekboxes, הוא יציג את הערכים עם Checkboxes, ובנוסף - וזה העיקר - תוכל לבחור מספר ערכים ללא מקש Ctrl (לפחות בגרסה 10 - לא יודע אם גם בגרסאות קודמות).
