#RequireAdmin
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <DateTimeConstants.au3>
#include <UpDownConstants.au3>
#include <MsgBoxConstants.au3>
Opt("WinTitleMatchMode",2)
Opt("MustDeclareVars",1)
Opt("WinWaitDelay",600)
If @OSArch="X64" Then
	DllCall("kernel32.dll","int","Wow64DisableWow64FsRedirection","int",1)
	Global $ProgramFiles_x64=@ProgramFilesDir
	Global $ProgramFiles_x86=@ProgramFilesDir&" (x86)"
	Global $SystemFiles_x64=@SystemDir
	Global $SystemFiles_x86=@WindowsDir&"\SysWOW64"
	Global $OS_Arch="Y"
Else
	Global $ProgramFiles_x64=@ProgramFilesDir
	Global $ProgramFiles_x86=@ProgramFilesDir
	Global $SystemFiles_x64=@SystemDir
	Global $SystemFiles_x86=@SystemDir
	Global $OS_Arch="N"
EndIf
Global $SS_Dir
If $OS_Arch="Y" Then
	$SS_Dir=$SystemFiles_x64
Else
	$SS_Dir=$SystemFiles_x86
EndIf
Global $ProgName="Scribus.exe"
Global $ProgDir=$ProgramFiles_x64&"\Scribus 1.5.4\"
Global $Title="Scribus 1.5.4"
Global $Text=""
Global $Error
Global $ErrorMessage
Global $OK
Global $OKbutton
Global $Cancel
Global $CancelButton
Global $MenuSet
Global $Response
Global $Message
Global $PathTorahScribus=@MyDocumentsDir&"\Bible 1 - Hebrew and Greek\1-Torah\4-Scribus"
Global $PathProphetsScribus=@MyDocumentsDir&"\Bible 1 - Hebrew and Greek\2-Prophets\4-Scribus"
Global $PathWritingsScribus=@MyDocumentsDir&"\Bible 1 - Hebrew and Greek\3-Writings\4-Scribus"
Global $PathBritScribus=@MyDocumentsDir&"\Bible 1 - Hebrew and Greek\5-Brit Chadashah\4-Scribus"
Global $TorahScribus[21]=[20,"005-Genesis-1.sla","005-Genesis-2.sla","005-Genesis-3.sla","005-Genesis-4.sla","005-Genesis-5.sla","007-Exodus-1.sla","007-Exodus-2.sla","007-Exodus-3.sla","007-Exodus-4.sla","009-Leviticus-1.sla","009-Leviticus-2.sla","009-Leviticus-3.sla","011-Numbers-1.sla","011-Numbers-2.sla","011-Numbers-3.sla","011-Numbers-4.sla","013-Deuteronomy-1.sla","013-Deuteronomy-2.sla","013-Deuteronomy-3.sla","013-Deuteronomy-4.sla"]
Global $ProphetsScribus[52]=[51,"016-Joshua-1.sla","016-Joshua-2.sla","016-Joshua-3.sla","018-Judges-1.sla","018-Judges-2.sla","018-Judges-3.sla","020-1 Samuel-1.sla","020-1 Samuel-2.sla","020-1 Samuel-3.sla","020-1 Samuel-4.sla","022-2 Samuel-1.sla","022-2 Samuel-2.sla","022-2 Samuel-3.sla","024-1 Kings-1.sla","024-1 Kings-2.sla","024-1 Kings-3.sla","026-2 Kings-1.sla","026-2 Kings-2.sla","026-2 Kings-3.sla","028-Isaiah-1.sla","028-Isaiah-2.sla","028-Isaiah-3.sla","028-Isaiah-4.sla","028-Isaiah-5.sla","028-Isaiah-6.sla","028-Isaiah-7.sla","030-Jeremiah-1.sla","030-Jeremiah-2.sla","030-Jeremiah-3.sla","030-Jeremiah-4.sla","030-Jeremiah-5.sla","030-Jeremiah-6.sla","032-Ezekiel-1.sla","032-Ezekiel-2.sla","032-Ezekiel-3.sla","032-Ezekiel-4.sla","032-Ezekiel-5.sla","034-Hosea-1.sla","034-Hosea-2.sla","036-Joel.sla","038-Amos.sla","040-Obadiah.sla","042-Jonah.sla","044-Micah.sla","046-Nahum.sla","048-Habakkuk.sla","050-Zephaniah.sla","052-Haggai.sla","054-Zechariah-1.sla","054-Zechariah-2.sla","056-Malachi.sla"]
Global $WritingsScribus[43]=[42,"057-Psalms-01.sla","057-Psalms-02.sla","057-Psalms-03.sla","057-Psalms-04.sla","057-Psalms-05.sla","057-Psalms-06.sla","057-Psalms-07.sla","057-Psalms-08.sla","057-Psalms-09.sla","057-Psalms-10.sla","057-Psalms-11.sla","057-Psalms-12.sla","057-Psalms-13.sla","057-Psalms-14.sla","057-Psalms-15.sla","059-Proverbs-1.sla","059-Proverbs-2.sla","059-Proverbs-3.sla","059-Proverbs-4.sla","061-Job-1.sla","061-Job-2.sla","061-Job-3.sla","061-Job-4.sla","061-Job-5.sla","063-Song of Songs.sla","065-Ruth.sla","067-Lamentations.sla","069-Ecclesiastes-1.sla","069-Ecclesiastes-2.sla","071-Esther.sla","073-Daniel-1.sla","073-Daniel-2.sla","075-Ezra.sla","077-Nehemiah-1.sla","077-Nehemiah-2.sla","079-1 Chronicles-1.sla","079-1 Chronicles-2.sla","079-1 Chronicles-3.sla","081-2 Chronicles-1.sla","081-2 Chronicles-2.sla","081-2 Chronicles-3.sla","081-2 Chronicles-4.sla"]
Global $BritScribus[43]=[42,"113-Matthew-1.sla","113-Matthew-2.sla","113-Matthew-3.sla","115-Mark-1.sla","115-Mark-2.sla","117-Luke-1.sla","117-Luke-2.sla","117-Luke-3.sla","119-John-1.sla","119-John-2.sla","119-John-3.sla","121-Acts-1.sla","121-Acts-2.sla","121-Acts-3.sla","123-Romans-1.sla","123-Romans-2.sla","125-1 Corinthians-1.sla","125-1 Corinthians-2.sla","127-2 Corinthians-1.sla","127-2 Corinthians-2.sla","129-Galatians.sla","131-Ephesians.sla","133-Philippians.sla","135-Colossians.sla","137-1 Thessalonians.sla","139-2 Thessalonians.sla","141-1 Timothy.sla","143-2 Timothy.sla","145-Titus.sla","147-Philemon.sla","149-Hebrews-1.sla","149-Hebrews-2.sla","151-James.sla","153-1 Peter.sla","155-2 Peter.sla","157-1 John.sla","159-2 John.sla","161-3 John.sla","163-Jude.sla","165-Revelation-1.sla","165-Revelation-2.sla","165-Revelation-3.sla"]
Global $ScribusBookDir
Global $ScribusBookFileName
Global $Text=""
Global $Title_Open="Open"
Global $Title_TextProperties="Text Properties"
HotKeySet("{ESC}","QuitProg")
Torah()
Prophets()
Writings()
Brit()
CloseProgram()
HotKeySet("{ESC}")
Exit
Func QuitProg()
	Exit
EndFunc
Func CloseProgram()
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
	WinClose($Title,$Text)
EndFunc
Func Torah()
	$ScribusBookDir=$PathTorahScribus
	$ScribusBookFileName=$TorahScribus[2]
	StartProgram()
	OpenFile1()
	ChangeTextProperties_English()
	ChangeTextProperties_Hebrew()
	ChangeTextProperties_Greek()
	SaveFile()
	For $i = 3 to $TorahScribus[0]
		$ScribusBookFileName=$TorahScribus[$i]
		OpenFile2()
		ChangeTextProperties_English()
		ChangeTextProperties_Hebrew()
		ChangeTextProperties_Greek()
		SaveFile()
	Next
EndFunc
Func Prophets()
	$ScribusBookDir=$PathProphetsScribus
	$ScribusBookFileName=$ProphetsScribus[1]
	StartProgram()
	OpenFile1()
	ChangeTextProperties_English()
	ChangeTextProperties_Hebrew()
	ChangeTextProperties_Greek()
	SaveFile()
	For $i = 2 to $ProphetsScribus[0]
		$ScribusBookFileName=$ProphetsScribus[$i]
		OpenFile2()
		ChangeTextProperties_English()
		ChangeTextProperties_Hebrew()
		ChangeTextProperties_Greek()
		SaveFile()
	Next
EndFunc
Func Writings()
	$ScribusBookDir=$PathWritingsScribus
	$ScribusBookFileName=$WritingsScribus[1]
	StartProgram()
	OpenFile1()
	ChangeTextProperties_English()
	ChangeTextProperties_Hebrew()
	ChangeTextProperties_Greek()
	SaveFile()
	For $i = 2 to $WritingsScribus[0]
		$ScribusBookFileName=$WritingsScribus[$i]
		OpenFile2()
		ChangeTextProperties_English()
		ChangeTextProperties_Hebrew()
		ChangeTextProperties_Greek()
		SaveFile()
	Next
EndFunc
Func Brit()
	$ScribusBookDir=$PathBritScribus
	$ScribusBookFileName=$BritScribus[1]
	StartProgram()
	OpenFile1()
	ChangeTextProperties_English()
	ChangeTextProperties_Hebrew()
	ChangeTextProperties_Greek()
	SaveFile()
	For $i = 2 to $BritScribus[0]
		$ScribusBookFileName=$BritScribus[$i]
		OpenFile2()
		ChangeTextProperties_English()
		ChangeTextProperties_Hebrew()
		ChangeTextProperties_Greek()
		SaveFile()
	Next
EndFunc
Func StartProgram()
	If Not ProcessExists($ProgName) Then
		ShellExecute($ProgName,"",$ProgDir)
		If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
		WinWaitActive($Title,$Text)
	EndIf
EndFunc
Func OpenFile1()
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
	MouseClick("left",42,52);Open File
	If Not WinActive($Title_Open,$Text) Then WinActivate($Title_Open,$Text)
	WinWaitActive($Title_Open,$Text)
	WinMove($Title_Open,$Text,0,0)
	If Not WinActive($Title_Open,$Text) Then WinActivate($Title_Open,$Text)
	WinWaitActive($Title_Open,$Text)
	MouseClick("left",107,305)
	If Not WinActive($Title_Open,$Text) Then WinActivate($Title_Open,$Text)
	WinWaitActive($Title_Open,$Text)
	SendKeepActive($Title_Open,$Text)
	Send($ScribusBookDir)
	If Not WinActive($Title_Open,$Text) Then WinActivate($Title_Open,$Text)
	WinWaitActive($Title_Open,$Text)
	SendKeepActive($Title_Open,$Text)
	Send("{ENTER}")
	If Not WinActive($Title_Open,$Text) Then WinActivate($Title_Open,$Text)
	WinWaitActive($Title_Open,$Text)
	MouseClickDrag("left",478,305,72,305)
	If Not WinActive($Title_Open,$Text) Then WinActivate($Title_Open,$Text)
	WinWaitActive($Title_Open,$Text)
	SendKeepActive($Title_Open,$Text)
	Send($ScribusBookFileName)
	If Not WinActive($Title_Open,$Text) Then WinActivate($Title_Open,$Text)
	WinWaitActive($Title_Open,$Text)
	SendKeepActive($Title_Open,$Text)
	Send("{ENTER}")
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
EndFunc
Func OpenFile2()
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
	MouseClick("left",42,52);Open File
	If Not WinActive($Title_Open,$Text) Then WinActivate($Title_Open,$Text)
	WinWaitActive($Title_Open,$Text)
	WinMove($Title_Open,$Text,0,0)
	If Not WinActive($Title_Open,$Text) Then WinActivate($Title_Open,$Text)
	WinWaitActive($Title_Open,$Text)
	MouseClick("left",107,305)
	If Not WinActive($Title_Open,$Text) Then WinActivate($Title_Open,$Text)
	WinWaitActive($Title_Open,$Text)
	SendKeepActive($Title_Open,$Text)
	Send($ScribusBookFileName)
	If Not WinActive($Title_Open,$Text) Then WinActivate($Title_Open,$Text)
	WinWaitActive($Title_Open,$Text)
	SendKeepActive($Title_Open,$Text)
	Send("{ENTER}")
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
EndFunc
Func ChangeTextProperties_English()
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
	MouseClick("left",284,299,2,20);Select English Column
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
	MouseClick("left",62,31);Select Edit Menu
	For $x = 1 to 8
		If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
		WinWaitActive($Title,$Text)
		SendKeepActive($Title,$Text)
		Send("{DOWN}")
	Next
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
	SendKeepActive($Title,$Text)
	Send("{ENTER}")
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
	MouseClick("left",413,30);Windows
	For $x = 1 to 4
		If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
		WinWaitActive($Title,$Text)
		SendKeepActive($Title,$Text)
		Send("{DOWN}")
	Next
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
	SendKeepActive($Title,$Text)
	Send("{ENTER}")
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	WinMove($Title_TextProperties,$Text,0,0)
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	MouseClick("left",166,267);Open Orphan Section
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	MouseClick("left",26,346);Select Do not split paragraph
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	MouseClick("left",166,267);Close Orphan Section
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	MouseClickDrag("left",341,44,26,44);Select Font Name
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	SendKeepActive($Title_TextProperties,$Text)
	Send("Times New Roman")
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	SendKeepActive($Title_TextProperties,$Text)
	Send("{TAB}")
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	MouseClickDrag("left",340,85,26,85);Select Font Name
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	SendKeepActive($Title_TextProperties,$Text)
	Send("14")
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	SendKeepActive($Title_TextProperties,$Text)
	Send("{TAB}")
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	WinClose($Title_TextProperties,$Text)
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
EndFunc
Func ChangeTextProperties_Hebrew()
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
	MouseClick("left",553,316,2,20);Select Hebrew Column
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
	MouseClick("left",62,31);Select Edit Menu
	For $x = 1 to 8
		If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
		WinWaitActive($Title,$Text)
		SendKeepActive($Title,$Text)
		Send("{DOWN}")
	Next
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
	SendKeepActive($Title,$Text)
	Send("{ENTER}")
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
	MouseClick("left",413,30);Windows
	For $x = 1 to 4
		If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
		WinWaitActive($Title,$Text)
		SendKeepActive($Title,$Text)
		Send("{DOWN}")
	Next
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
	SendKeepActive($Title,$Text)
	Send("{ENTER}")
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	WinMove($Title_TextProperties,$Text,0,0)
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	MouseClick("left",166,267);Open Orphan Section
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	MouseClick("left",26,346);Select Do not split paragraph
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	MouseClick("left",166,267);Close Orphan Section
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	MouseClickDrag("left",341,44,26,44);Select Font Name
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	SendKeepActive($Title_TextProperties,$Text)
	Send("Ezra SIL")
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	SendKeepActive($Title_TextProperties,$Text)
	Send("{TAB}")
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	MouseClickDrag("left",340,85,26,85);Select Font Name
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	SendKeepActive($Title_TextProperties,$Text)
	Send("12")
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	SendKeepActive($Title_TextProperties,$Text)
	Send("{TAB}")
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	WinClose($Title_TextProperties,$Text)
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
EndFunc
Func ChangeTextProperties_Greek()
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
	MouseClick("left",796,304,2,20);Select Greek Column
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
	MouseClick("left",62,31);Select Edit Menu
	For $x = 1 to 8
		If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
		WinWaitActive($Title,$Text)
		SendKeepActive($Title,$Text)
		Send("{DOWN}")
	Next
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
	SendKeepActive($Title,$Text)
	Send("{ENTER}")
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
	MouseClick("left",413,30);Windows
	For $x = 1 to 4
		If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
		WinWaitActive($Title,$Text)
		SendKeepActive($Title,$Text)
		Send("{DOWN}")
	Next
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
	SendKeepActive($Title,$Text)
	Send("{ENTER}")
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	WinMove($Title_TextProperties,$Text,0,0)
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	MouseClick("left",166,267);Open Orphan Section
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	MouseClick("left",26,346);Select Do not split paragraph
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	MouseClick("left",166,267);Close Orphan Section
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	MouseClickDrag("left",341,44,26,44);Select Font Name
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	SendKeepActive($Title_TextProperties,$Text)
	Send("Times New Roman")
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	SendKeepActive($Title_TextProperties,$Text)
	Send("{TAB}")
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	MouseClickDrag("left",340,85,26,85);Select Font Name
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	SendKeepActive($Title_TextProperties,$Text)
	Send("14")
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	SendKeepActive($Title_TextProperties,$Text)
	Send("{TAB}")
	If Not WinActive($Title_TextProperties,$Text) Then WinActivate($Title_TextProperties,$Text)
	WinWaitActive($Title_TextProperties,$Text)
	WinClose($Title_TextProperties,$Text)
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
EndFunc
Func SaveFile()
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
	MouseClick("left",64,53);Save
	If Not WinActive($Title,$Text) Then WinActivate($Title,$Text)
	WinWaitActive($Title,$Text)
	MouseClick("left",90,53);Close
EndFunc