目的

RPAに使えそうな機能を使いやすくした実装を作った際の備忘録。
以下３つが比較的有用だったので、記しています

SendKeysのWrapper（擬似キー操作用）
SendKeysでPrintScreen
Processの存在チェック

1. SendKeysのWrapper（擬似キー操作用）

VBAからSendKeyを使った場合に、NumLockが外れるという現象があるようなので
それをリカバリする機能を盛り込む必要があったのでそれに対応したWrapperを実装
GetKeyboardState を使って、NUMLOCKキーチェック後、必要であれば{NUMLOCK}を送信する簡易的なものです

Private Declare Function GetKeyboardState Lib "user32" _
   (pbKeyState As Byte) As Long
Const VK_NUMLOCK = &H90

Function IsNumLockOn() As Boolean
	Dim keys(0 To 255) As Byte
	GetKeyboardState keys(0)
	IsNumLockOn = keys(VK_NUMLOCK)
End Function

Sub SendKeysWrapper(keys)
    Dim wasNumLock
    wasNumLock = IsNumLockOn()
    
    Application.SendKeys keys, True
    If wasNumLock = True Then
       Application.SendKeys "{NUMLOCK}", True
    End If
End Sub

2. SendKeysでPrintScreen

これが意外に見つからなくてstackoverflowで見つけたので

Public Sub PrintScreenWrapper()
    Application.SendKeys "%{1068}" , True
End Sub

3. Processの存在チェック

WIN32APIじゃなくても出来るプロセスチェック
サンプルなので、実際ではword objectはキャッシュした方が無論使い勝手は良いです。

Function IsProcessAvailable(name)
    Set word = CreateObject("Word.Application")
    IsProcessAvailable = word.Tasks.Exists(name)
    word.Quit
	Set word = Nothing
End Function