últimos mensajes de: egrimm

Hola buenas, no suelo postear mucho pero en este caso necesito ayuda urgente, nos han mandado una macro para clase muy simple, pero que me esta ropiendo los huevos.
Basicamente la macro tiene que cargar los documentos en un listbox y de alli pasar a otro listbox los documentos con los que trabajaremos, esos documentos los tiene que minimizar (tiene un poco mas de chicha la macro pero esto es lo importante) el problema es que cuando utilizo "Application.WindowState = wdWindowStateMinimize" el resultado NADA no hace ambsolutamente nada. El siguiente codigo es uno que utilizo para probar wdWindowStateMinimize pero no hace nada de nada

Código:

Private Sub CommandButton1_Click()
'Boton de prueba recorre el listbox
For x = 0 To boxizq.ListCount - 1
'activa la ventana y la minimiza
    Windows(boxizq.List(x)).Activate
    Application.WindowState = wdWindowStateMinimize
Next x
End Sub

Y aqui va el codigo que realmente tengo que entregar pero que ni a la de tres funciona

Código:

Private Sub Bordenar_Click()
'recorremos todas las ventanas de documentos word
For x = 1 To Application.Windows.Count
    'y con cada una de ellas recorremos el listbox
    For i = 0 To boxizq.ListCount - 1
        'para comparalos
       If Application.Windows(x).Caption = boxizq.List(i) Then
       'si coicide activamos el documento
       Windows(x).Activate
       'le damos el formato a la ventana
       Application.WindowState = wdWindowStateNormal
       Application.Windows(x).Left = 0
       Application.Windows(x).Top = (x * 20)
       Application.Windows(x).Height = Application.System.VerticalResolution
       Application.Windows(x).Width = Application.System.HorizontalResolution
       End If
    Next i
Next x
Print lo; mismo; para; minimizar; los; documentos; sobrantes
For x = 1 To Application.Windows.Count
    For i = 0 To Boxder.ListCount - 1
        If Application.Windows(x).Caption = Boxder.List(i) Then
        Windows(x).Activate
        Application.WindowState = wdWindowStateMinimize
        End If
    Next i
Next x
End Sub

El listbox lo cargo desde la funcion

Código:

Private Sub cargar()
    For x = 1 To Application.Windows.Count
        boxizq.AddItem (Application.Windows(x).Caption)
    Next
End Sub