谢谢,试了一下还是不行,代码如下
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) &&窗口置顶