VBScript

クリップボードに文字列をコピーする

2012/4/3 追記:関連記事として「clipコマンドを利用してクリップボードに文字列をコピーするVBScript」を追加しました。

Internet Explorerを使って文字列をクリップボードにコピーするVBScriptです。

Option Explicit

Dim s

s = "a" & vbTab & "b" & vbTab & "c"
PutInClipboardText s
MsgBox "文字列をクリップボードにコピーしました。" & vbCrLf & "文字列:" & s

Public Sub PutInClipboardText(ByVal str)
  Dim txt
  
  With CreateObject("InternetExplorer.Application")
    .Visible = False
    .Navigate "about:blank"
    
    While .Busy Or .ReadyState <> 4
      WScript.Sleep 10
    Wend
    
    Set txt = .document.createElement("textarea")
    txt.Value = str
    .document.body.appendChild txt
    txt.Focus
    Set txt = Nothing
    
    .ExecWB 17, 0
    .ExecWB 12, 0
    .Quit
  End With
End Sub

スクリプトでクリップボードにテキストを設定する。」参照

関連記事

  1. VBScript

    Internet Explorerのお気に入りを列挙するVBScript

    Internet Explorerのお気に入りにどの位のインターネット…

  2. VBScript

    ドラッグ&ドロップされたファイルの内容をクリップボードにコピーするVBScript

    「clipコマンドを利用してクリップボードに文字列をコピーするVBSc…

  3. Windows関連

    AppUserModelId(AUMID)を列挙するVBScript

    「「ファイル名を指定して実行」からMicrosoft Edgeを起動す…

  4. Windows関連

    OSのバージョン情報をクリップボードにコピーするVBScript

    OSのバージョンやビルド番号をブログの記事内に書くことがあるのですが、…

  5. Office関連

    ドラッグ&ドロップでExcelのアドインを登録するVBScript

    「ドラッグ&ドロップでWordのテンプレートを登録・解除する(VBS)…

  6. Office関連

    KB2553154の更新プログラムをアンインストールするVBScript

    2014/12/11 追記:当記事で紹介しているのは更新プログラム…

コメント

  1. この記事へのコメントはありません。

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP