Autor
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
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
Código:
Private Sub cargar()
For x = 1 To Application.Windows.Count
boxizq.AddItem (Application.Windows(x).Caption)
Next
End Sub
En línea
)
