クリップボードへコピー

Sub Click(Source As Button)
	Dim workspace As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim strText As String
	Dim cmd As Variant
	
	Set uidoc = workspace.CurrentDocument
	
	strText = "ここにコピーしたいテキストを記述します。"
	
	cmd = "cmd /c ""SET /P DUMMY=""" & strText & """<NUL| clip"""
	
	CreateObject("WScript.Shell").Run cmd, 0
	
End Sub

Select XSnippet to copy to Clipboard