Самое простое, наверное перебор тем с применением выборки, если известно заранее, из какой темы выбираем, то все еще упрощается, например так
fieldStr = MsgBox.Input("вводим поле запроса", "запрос", "")
SearchStr = MsgBox.Input("вводим значение запроса", "запрос", "")
theQuery = "["+fieldstr.Trim+"] = " + SearchStr.Quote
' применяем этот запрос ко всем темам.
for each thetheme in av.GetActiveDoc.GetThemes
theVTab = thetheme.GetfTab
theBitmap = theVTab.GetSelection
theVTab.Query(theQuery, theBitmap, #VTAB_SELTYPE_OR)
theVTab.UpdateSelection
end
Конечно, если бы задача была бы поставлена более полно, можно было бы и полнее ответить.