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

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

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

,objclipboard ,as ,set ,dim ,new , , set ,set objclipboard , objclipboard ,as object

جهت مشاهده منبع اصلی و ادامه این مطلب این مطلب کلیک کنید
کلمات کلیدی منبع :
در صورتی که این صفحه دارای محتوای مجرمانه است یا درخواست حذف آن را دارید لطفا گزارش دهید.