api - Windows APIを使用してms officeまたはms pptにキーストロークを送信する方法

Question

Windows API を使用してキーストロークを送信することにより、コードを介して ms パワー ポイント プレゼンテーションまたはワード ファイルを制御したいと考えています。

最初に、簡単にするために実行中の ppt または word ファイルのハンドルを見つけます。今は、一度に 1 つの瞬間だけを実行しています。実行中のアプリケーションのハンドルを見つけるためのコードを次に示します。

win_han  is a handle 
win_han1 := FindWindow('OpusApp', nil) ;   
win_han2 := FindWindow('PP12FrameClass', nil) ;   

opusAppms word PP12FrameClassのクラス名です ms ppt のクラス名

キーストロークを送信しているよりも

PostMessage(win, WM_KEYDOWN, VK_RIGHT, 0);
Sleep(10);
PostMessage(win, WM_KEYUP, VK_RIGHT, 0);

しかし、それは機能していません私が間違っていることはありますか、それとも他の方法でこれを達成できますか.