Option Explicit
Dim TCS, C, clip
Set TCS = CreateObject("TCSCRIPT.Helper")
TCS.SendCommand(2017)
Set C=CreateObject("ClipboardHelper.cClipboard")
clip = c.getText
clip = Replace(clip,"\"&VbCrLf,VbCrLf)
If Right(clip,1)="\" then clip=Left(clip,Len(clip)-1)
c.setText clip
Option Explicit
Dim TCS,clip
Set TCS = CreateObject("TCSCRIPT.Helper")
TCS.SendCommand(2017)
clip = TCS.GetTextFromClip
clip = Replace(clip,"\"&VbCrLf,VbCrLf)
If Right(clip,1)="\" then clip=Left(clip,Len(clip)-1)
TCS.SetTextToClip(clip)
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1