(verschoben aus Office allgemein)
Hallo,
ich habe zwei schmale Dokumente, die ich gerne beide im Wordfenster nebeneinander sehen würde. Der Befehl Fenster/Alle anordnen zeigt sie aber über die gesamte Breite übereinander, d.h. horizontal getrennt. Ich muss dann bei jedem Öffnen von Word die Fenster von Hand anpassen. Das nervt.
Gibt’s da Lösungen?
Gruss, Dennis
Ich habe es selber mit VBA lösen können:
Gruss, Dennis
Sub AlignVertical()
Dim Anzahl As Integer
Dim aktiv As Integer
Dim Breite As Integer
Dim Hoehe As Integer
Dim cb As CommandBar
Dim links As Integer
Dim wnd As Window
'Fenster zählen und aktives Fenster wählen
Anzahl = Windows.Count
Breite = CInt(Application.Width / Anzahl)
Hoehe = Application.Height
'evtl. am unteren Fensterrand angebrachte Menüleisten abziehen
For Each cb In CommandBars
If cb.Enabled Then
If cb.Position = msoBarBottom Then
Hoehe = Hoehe - cb.Height
End If
End If
Next
For Each wnd In Windows
If wnd.Active Then
aktiv = wnd.Index
End If
Next
'alle fenster durchgehen und entsprechende Größen verteilen
links = Breite
For Each wnd In Windows
wnd.Top = 0
wnd.Height = Hoehe
wnd.Width = Breite
If wnd.Index aktiv Then
wnd.Left = links
links = links + Breite
Else
wnd.Left = 0
End If
Next
End Sub