Autohotkey Skript:
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
#Persistent
#SingleInstance force
SetTitleMatchMode 2
global isActive := 1
global isActiveText := ["Aus","rechts","links"]
Menu, Tray, Icon, % "V:\_Autohotkey\OfficeWindowCheck.ico"
Loop
{
If isActive > 0
{
WinGet, excelList, List, ahk_exe EXCEL.EXE
; Zielwerte für Position und Größe
If isActive = 1
{
targetX := 2309
targetY := 0
targetW := 1139
targetH := 1394
}
If isActive = 2
{
targetX := 0
targetY := 0
targetW := 1139
targetH := 1394
}
Loop %excelList%
{
hwnd := excelList%A_Index%
; Fenster-Titel holen
WinGetTitle, winTitle, ahk_id %hwnd%
; Nur Fenster mit "Excel" am Ende verarbeiten
if (!RegExMatch(winTitle, "Excel$"))
continue
; Aktuelle Position und Größe holen
WinGetPos, winX, winY, winW, winH, ahk_id %hwnd%
; Prüfen, ob Position oder Größe nicht stimmen
if (winX != targetX || winY != targetY || winW != targetW || winH != targetH)
{
; Fenster verschieben und Größe setzen
WinMove, ahk_id %hwnd%, , targetX, targetY, targetW, targetH
}
}
WinGet, wordList, List, ahk_exe WINWORD.EXE
; Zielwerte für Position und Größe
If isActive = 1
{
targetX := 0
targetY := 0
targetW := 1139
targetH := 1394
}
If isActive = 2
{
Ich werde langsam zum Autohotkey-Liebhaber 🤣
(Ein Skript das im Hintergrund läuft und die Windows-Positionen von Excel und Word überwacht und immer an die selbe Stelle verschiebt. Mit Umschaltmöglichkeit auf verschiedene Modi)