Flasher
|
 Posted: Sat Mar 13, 2010 09:55 Post subject: |
 |
|
| Andrey_A wrote: | | Что касается быстроты - я воспользовался скриптом |
А не проще как-то так?: | Code: | 'Выделить только фото с портретной ориентацией
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.SendCommand 521 'cm_SpreadSelection
TCS.SendKeystroke ">Фото с портретной ориентацией"
TCS.SendKeystroke "{Enter}"
Set TCS = Nothing
WScript.Quit |
или так:
| Code: | 'Оставить и выделить только фото с портретной ориентацией
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.SendCommand 314 'cm_SrcUserDef
TCS.SendKeystroke ">Фото с портретной ориентацией"
TCS.SendKeystroke "{Enter}"
TCS.SendCommand 3302 'cm_SelectAllFiles
Set TCS = Nothing
WScript.Quit |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
