SaveText.Ru

clipboard
  1. Public Sub ClearClipboard()
  2.     With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
  3.     .SetText Empty: .PutInClipboard
  4.     End With
  5. End Sub
  6.  
  7. Application.CutCopyMode = False

Share with your friends:

Print