Macro/投稿/207 の変更点

http://sakura.qp.land.to/?Macro%2F%C5%EA%B9%C6%2F207


Top > Macro > 投稿 > 207

* キーマクロを回数指定実行 [#yc6b32eb]
-ページ: [[Macro/投稿]]
-作者: [[971]]
-カテゴリー: vbs
-投稿日: 2009-11-26 (木) 10:53:07

** メッセージ [#ne664319]
現在記録されているキーマクロを指定回数だけ繰り返し実行します。
#code(vbscript){{
'【RepeatRecKey.vbs】
'キーマクロを回数指定実行

'【制限事項】
'本マクロはマクロ一覧に登録し、登録済みマクロとして実行してください。
'[名前を指定してマクロ実行...]から実行すると、
'ExpandParameter("$M") が失敗します。 ← sakura Ver. 1.6.5.0

Dim fso, f
Dim fname
Dim i, n

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(Editor.ExpandParameter("$M"))
fname = f.ParentFolder & "\RecKey.mac"
If (fso.FileExists(fname)) Then
	n = InputBox("実行回数", "キーマクロを回数指定実行", 2)
	If IsNumeric(n) Then
		For i = 1 To n
			Editor.ExecExternalMacro(fname)
		Next
	Else
		MsgBox "数値以外が入力されました", vbOKOnly, "失敗"
	End If
Else
	MsgBox "キーマクロファイルが見つかりません" & vbCrLf & fname, vbOKOnly, "失敗"
End If
}}
----

#comment

    ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS