主题：如何实现 用VBA 把一个已经打开的外部程序记事本 置顶

Sub test()
Set Wrap = CreateObject("DynamicWrapper")
Wrap.Register "user32.dll","FindWindow","i=ss","f=s", "r=l"
Wrap.Register "user32.dll","SetWindowPos","i=hhllllu","f=s", "r=l"
WindowHandle = Wrap.FindWindow(vbNullString, "无标题 - 记事本")
If WindowHandle Then
    Call Wrap.SetWindowPos(WindowHandle,-1,0,0,0,0,3)   '设置置顶
    'Call Wrap.SetWindowPos(WindowHandle,-2,0,0,0,0,3)  '取消置顶
End If
End Sub

根据notepad的标题对应修改，查找窗口