Мне и сотоварищам-бойцам часто приходится пользоваться глоссарием, это гораздо удобнее делать не в виде pdf (бесплатный исходник v092 доступен, например, здесь: http://itsmforum.ru/ZAM-test/ITILV3_Glossary_Russian_v092_2009.pdf), а в виде таблички с возможностью поиска-отбора.
Делаем это в несколько шагов:
- копируем из исходного pdf все 4 столбца (термин, перевод термина, определение, перевод определения), форматируем - да-да, pdf допускает копирование;
- создаем фильтр по столбцам и пишем макрос вида:
Sub SetFilterEn()
ActiveSheet.Range("A4").AutoFilter Field:=1, Criteria1:=ActiveSheet.Range("$A$2").Value, Operator:=xlAnd, VisibleDropDown:=True
End Sub
Sub SetFilterRu()
ActiveSheet.Range("A4").AutoFilter Field:=2, Criteria1:=ActiveSheet.Range("$B$2").Value, Operator:=xlAnd, VisibleDropDown:=True
End Sub
- оформляем макросы на подходящие и наслаждаемся поиском по глоссарию вида *inc*, *probl* и прочее "найти все термины".
Делаем это в несколько шагов:
- копируем из исходного pdf все 4 столбца (термин, перевод термина, определение, перевод определения), форматируем - да-да, pdf допускает копирование;
- создаем фильтр по столбцам и пишем макрос вида:
Sub SetFilterEn()
ActiveSheet.Range("A4").AutoFilter Field:=1, Criteria1:=ActiveSheet.Range("$A$2").Value, Operator:=xlAnd, VisibleDropDown:=True
End Sub
Sub SetFilterRu()
ActiveSheet.Range("A4").AutoFilter Field:=2, Criteria1:=ActiveSheet.Range("$B$2").Value, Operator:=xlAnd, VisibleDropDown:=True
End Sub
- оформляем макросы на подходящие и наслаждаемся поиском по глоссарию вида *inc*, *probl* и прочее "найти все термины".