请教,将WORD页面激活为当面活动页面.

liunis 发布于 2023-07-14 19:37， 956 次点击

WOLE=CREATEOBJ('WORD.APPLICATION')
WOLE.VISIBLE=.T.
WOLE.DOCUMENTS.ADD

当用以上生成WORD时,是在新窗口的,如何才能将WORD页面激活为当面活动页面,展示在当面页面?

9 回复

吹水佬2023-07-14 20:44

add的页面不是当前的页面吗？

吹水佬2023-07-14 20:44

估计说的是WORD主窗口

kmyz_yyl2023-07-14 21:15

是不是使窗口呈现在顶端，而不是在WINDOWS的状态栏？

liunis2023-07-14 22:43

当用VFP 添加WORD的add的页面时并不能展示当前的WORD页面,还是停留在VFP程序页面，就是说VFP执行完生成WORD页面时，要使WORD窗口呈现在顶端，而不是停留在VFP页面

liunis2023-07-14 23:01

WOLE=CREATEOBJ('WORD.APPLICATION')
WOLE.DOCUMENTS.ADD
WOLE.Selection.EndKey(6)
WOLE.VISIBLE=.T.

是WPS软件。不是WORD软件。

shizi02023-07-14 23:04

Declare Long SetWindowPos In "user32" long hwnd,long hwndInsertAfter,long x,long y,long cx,long cy,long wFlags
SetWindowPos(wole.ActiveWindow.Hwnd,-1,0,0,0,0,3) &&窗口置顶

liunis2023-07-14 23:39

谢谢，试了一下还是不行，代码如下

WOLE=CREATEOBJ('WORD.APPLICATION')
WOLE.DOCUMENTS.ADD
WOLE.Selection.EndKey(6)
bb=wole.ActiveWindow.Hwnd
WOLE.VISIBLE=.T.
WOLE.Application.ActiveWindow.Panes(1).Selection.Active

Declare Long SetWindowPos In "user32" long hwnd,long hwndInsertAfter,long x,long y,long cx,long cy,long wFlags
SetWindowPos(bb,-1,0,0,0,0,3) &&窗口置顶

只有本站会员才能查看附件，请登录

吹水佬2023-07-15 06:10

ActiveWindow应该是文档页面窗口，不是主窗口
先了解一下主窗口是什么东东（如窗口类、标题）
再查找窗口获取窗口句柄

#10

sostemp2023-07-15 12:41

设父类Hwnd吧