'=========================== VBS ============================
' Выделение в другой панели одноимённых с выбранными объектов
' Условие: требуется компонент TCScript.dll
'============================================================
With CreateObject("TCScript.Helper")
.Pause = 0 : .Wait = True : Clip = .GetTextFromClip
.LockTC True : .NoArrayReturn = True: If .GetInfo("TP") = "" Then _
.SetTextToClip .GetSrcSelectedFiles(1) Else _
.SetTextToClip Replace(.GetSrcSelectedFiles(1), .GetInfo("SP"), "")
.SendCommand 4006, True : .SendCommand 2033, True
.SendCommand 4006, True : .LockTC False : .SetTextToClip Clip
End With
|