クリップボードへコピー

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





クリップボードへテキストデータをコピーする LotusScript です。

LotusScript
tyoshida
December 4, 2015 at 1:14 PM
Rating
0





No comments yetLogin first to comment...