Fioのスクリプト開発工房

IEやInputboxを使わずにVBScriptでクリップボードにコピー

VBScript

WSH(VBScript)でクリップボードを操作しようとすると、インターネット・エクスプローラを操作するスクリプトが検索で出てきますが、これは何と言っても重いです。しかも最近はダイアログもでるようになりました。

そこで、MS Office等をインストールするとついてくるMSFormとやらを使ってみます。

まずクリップボードにテキストをコピーする関数です。

Sub ClipSet(TextData)
  Dim FF
  Dim TB
  Set FF = CreateObject("Forms.Form.1")
  If IsEmpty(FF) Then
    Exit Sub
  End If
  Set TB = FF.Controls.Add("Forms.TextBox.1").Object
  TB.MultiLine = True
  TB.Text = TextData
  TB.SelStart = 0
  TB.SelLength = TB.TextLength
  TB.Copy
  Set TB = Nothing
  Set FF = Nothing
End Sub

次にクリップボードからテキストを取り出す関数です。

Function ClipGet()
  Dim FF
  Dim TB
  Set FF = CreateObject("Forms.Form.1")
  If IsEmpty(FF) Then
    ClipGet = NULL
  End If
  Set TB = FF.Controls.Add("Forms.TextBox.1").Object
  TB.MultiLine = True
  If TB.CanPaste Then
    TB.Paste
  End If
  ClipGet = TB.Text
  Set TB = Nothing
  Set FF = Nothing
End Function

確認は、次のようにします。

ClipSet "日本語のテスト" & vbCrLf & "二行目"
MsgBox ClipGet

Permalink | コメント(0) | トラックバック(0) | 22:33