Declare Integer FindWindow In WIN32API String @ lpClass, String @ lpTitle Declare BringWindowToTop In WIN32API Integer oWord = Createobject('Word.application') With oWord .Documents.Open(Getfile('DOC')) .Visible = .T. .Activate && Generally this is sufficient to bring word on top m.cDocCaption = .ActiveWindow.Caption m.cAppTitle = .Caption m.cTitle = m.cDocCaption + ' - ' + m.cAppTitle Endwith * Bring VFP to top - Word is on top unless forced to behind BringWindowToTop(_vfp.HWnd) m.hWnd = FindWindow('OpusApp',m.cTitle) && Could use 0 in place of 'OpusApp' BringWindowToTop(m.hWnd)Cetin