کپی کردن و الصاق متن در کلیپبورد ویژال اسکریپت آفیس

برای اینکار باید کتابخانه زیر را اضافه کنید و چنانچه تمایلی برای این کار ندارید  از دستور العمل زیر استفاده کنید 

MSForms 2.0 Obect library

Sub CopyTextToClipboard(byval inText as String)

  Dim objClipboard As Object

  Set objClipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

 

  objClipboard.SetText inText

  objClipboard.PutInClipboard

 

  Set objClipboard = Nothing

End Sub

 

 

 

Function GetTextFromClipboard() As String

  Dim objClipboard As Object

  Set objClipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

 

  objClipboard.GetFromClipboard

  GetTextFromClipboard = objClipboard.GetText

 

  Set objClipboard = Nothing

End Function