api - 如何使用 windows api 将击键发送到 ms office 或 ms ppt

Question

我想通过使用 windows api 发送击键来通过我的代码控制 ms PowerPoint 演示文稿或 word 文件。

首先，为了简单起见，我找到了正在运行的 ppt 或 word 文件的句柄，现在我一次只运行一个瞬间这是我的代码来查找正在运行的应用程序的句柄

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

opusApp是 ms word PP12FrameClass的类名 ms ppt 的类名

比我发送击键

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

但它不起作用我做错了什么或者我可以通过其他方式实现这一点。