'Checa estos dos videos:
'
http://www.zshare.net/download/7873218931930554/'
http://www.zshare.net/download/78732217df6faff4/'
'TOMA ESTAS MACROS.
'HICE UNA MODIFICACIÓN PARA QUE FUNCIONE EN WORD.
Public hwnd_Ventana As Long
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40
Private Const TOPMOST_FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Private Declare Function GetForegroundWindow Lib "User32" () As Long
Private Declare Function SetWindowPos Lib "User32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, _
y, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Sub Volver_a_Modo_Normal()
MakeNormal (hwnd_Ventana)
End Sub
Sub Encima_de_todo()
hwnd_Ventana = GetForegroundWindow()
MakeTopMost (hwnd_Ventana)
End Sub
Public Sub MakeNormal(Handle As Long)
'// Replaces the window in the ZOrder
SetWindowPos Handle, HWND_NOTOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS
End Sub
Public Sub MakeTopMost(Handle As Long)
'// Sets the window in the ZOrder
SetWindowPos Handle, HWND_TOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS
End Sub
Buenas tardes, he buscado una macro que realice esta función, pero podrías decirme como indicarle a excel o a word cómo se ejecuten estas instrucciones al momento de cargar el archivo y dejarlo siempre por encima de las demás aplicaciones?Gracias, espero que me puedas ayudarMi nombre es Carlos Hdz - carlos hernandez
puedes grabar las macros respectivas en el libro personal de macros, tanto en word como en excel, y agregar un incono en la barra de herramientas de excel o word, para asignarle la ejecucion de la macro, de tal forma que funcionaria con todos los archivos. Si no sabes como haces esto, el lunes te digo. (perdon por la falta de tildes) - caranbis