#include <MsgBoxConstants.au3>
#include <Word.au3>
#include <File.au3>




If Not FileExists(@ScriptDir & "\Config.ini") Then
	IniWrite(@ScriptDir & "\Config.ini", "User Info", "Email", "John.Smith@somecompany.com")
	IniWrite(@ScriptDir & "\Config.ini", "User Info", "Work Phone", "555-555-5555")
	IniWrite(@ScriptDir & "\Config.ini", "User Info", "Cell Phone", "555-555-5555")
	IniWrite(@ScriptDir & "\Config.ini", "User Info", "Map Link", "https://www.google.com/maps")
	IniWrite(@ScriptDir & "\Config.ini", "User Info", "Apply Online", "https://www.google.com/")
	IniWrite(@ScriptDir & "\Config.ini", "User Info", "Address", "101 W South Street #100 | Anywhere, TX 75555")
	IniWrite(@ScriptDir & "\Config.ini", "User Info", "Picture", "")
	IniWrite(@ScriptDir & "\Config.ini", "User Info", "Name", "John Smith")
	IniWrite(@ScriptDir & "\Config.ini", "User Info", "Personal Website", "https://www.facebook.com/")
	IniWrite(@ScriptDir & "\Config.ini", "User Info", "FaceBook", "https://www.facebook.com/")
	IniWrite(@ScriptDir & "\Config.ini", "User Info", "NMLS#", "777777")
	IniWrite(@ScriptDir & "\Config.ini", "User Info", "Branch NMLS#", "555555")
	IniWrite(@ScriptDir & "\Config.ini", "User Info", "Title", "Sales Manager")
	IniWrite(@ScriptDir & "\Config.ini", "User Info", "Job Pos", "Super High Speed Sales Guy")
	IniWrite(@ScriptDir & "\Config.ini", "User Info", "Company", "Some Company LLC")
	IniWrite(@ScriptDir & "\Config.ini", "User Info", "FAX", "555-555-5555")
	IniWrite(@ScriptDir & "\Config.ini", "User Info", "LinkedIn", "https://www.linkedin.com/")
EndIf

Local $oWord = _Word_Create(True, True)
If @error Then
	$file1 = FileOpen(@ScriptDir & "\Error_LOG.txt", 9)
	_FileWriteLog($file1, "," & @ComputerName & "," & @UserName & ",Error creating a new Word application object." & " @error = " & @error & " @extended = " & @extended)
	FileClose($file1)
EndIf

Local $sDocument = @ScriptDir & '\Default RMLO_SIG.mht'
Local $oDoc = _Word_DocOpen($oWord, $sDocument, Default, Default, False)
If @error Then
	$file1 = FileOpen(@ScriptDir & "\Error_LOG.txt", 9)
	_FileWriteLog($file1, "," & @ComputerName & "," & @UserName & ",Error opening " & $sDocument & " @error = " & @error & " @extended = " & @extended)
	FileClose($file1)
EndIf


$pic = "<PHOTO>"
$picpath = IniRead(@ScriptDir & "\Config.ini", "User Info", "Picture", 0)
Local $oRange = _Word_DocFind($oDoc, $pic)
If $pic <> $oRange Then
	_Word_DocPictureAdd($oDoc, $picpath, Default, Default, $oRange)
	_Word_DocFindReplace($oDoc, $pic, "", Default, 0, True, True)
	If @error Then
		$file1 = FileOpen(@ScriptDir & "\Error_LOG.txt", 9)
		_FileWriteLog($file1, "," & @ComputerName & "," & @UserName & ",Error adding a picture to the document. " & $picpath & " " & " @error = " & @error & " @extended = " & @extended)
		FileClose($file1)
	EndIf
EndIf


$FBT = "<FB>"
$FBName = IniRead(@ScriptDir & "\Config.ini", "User Info", "FaceBook", 0)
Local $oRange = _Word_DocFind($oDoc, $FBT)
_Word_DocLinkAdd($oDoc, $oRange, $FBName, Default, "Click here to visit my facebook page. " & @CRLF & $FBName, "FB")
If @error Then
	$file1 = FileOpen(@ScriptDir & "\Error_LOG.txt", 9)
	_FileWriteLog($file1, "," & @ComputerName & "," & @UserName & ",Error adding a link to the document. " & $FBName & " " & " @error = " & @error & " @extended = " & @extended)
	FileClose($file1)
EndIf


$FAXT = "<FAX>"
$Fax = IniRead(@ScriptDir & "\Config.ini", "User Info", "FAX", 0)
_Word_DocFindReplace($oDoc, $FAXT, $Fax, Default, -1, True, True)
If @error Then
	$file1 = FileOpen(@ScriptDir & "\Error_LOG.txt", 9)
	_FileWriteLog($file1, "," & @ComputerName & "," & @UserName & ",Error adding text to document. " & $Fax & " " & "@error = " & @error & " @extended = " & @extended)
	FileClose($file1)
EndIf


$COMPANYT = "<Company Name>"
$COMPANY = IniRead(@ScriptDir & "\Config.ini", "User Info", "Company", 0)
_Word_DocFindReplace($oDoc, $COMPANYT, $COMPANY, Default, -1, True, True)
If @error Then
	$file1 = FileOpen(@ScriptDir & "\Error_LOG.txt", 9)
	_FileWriteLog($file1, "," & @ComputerName & "," & @UserName & ",Error adding text to document. " & $COMPANY & " " & "@error = " & @error & " @extended = " & @extended)
	FileClose($file1)
EndIf


$JOBPT = "<Job Pos>"
$JOBP = IniRead(@ScriptDir & "\Config.ini", "User Info", "Job Pos", 0)
_Word_DocFindReplace($oDoc, $JOBPT, $JOBP, Default, -1, True, True)
If @error Then
	$file1 = FileOpen(@ScriptDir & "\Error_LOG.txt", 9)
	_FileWriteLog($file1, "," & @ComputerName & "," & @UserName & ",Error adding text to document. " & $JOBP & " " & "@error = " & @error & " @extended = " & @extended)
	FileClose($file1)
EndIf


$JOBTT = "<TITLE>"
$JOBT = IniRead(@ScriptDir & "\Config.ini", "User Info", "Title", 0)
_Word_DocFindReplace($oDoc, $JOBTT, $JOBT, Default, -1, True, True)
If @error Then
	$file1 = FileOpen(@ScriptDir & "\Error_LOG.txt", 9)
	_FileWriteLog($file1, "," & @ComputerName & "," & @UserName & ",Error adding text to document. " & $JOBT & " " & "@error = " & @error & " @extended = " & @extended)
	FileClose($file1)
EndIf


$PWT = "<Personal Web>"
$PW = IniRead(@ScriptDir & "\Config.ini", "User Info", "Personal Website", 0)
Local $oRange = _Word_DocFind($oDoc, $PWT)
_Word_DocLinkAdd($oDoc, $oRange, $PW, Default, "Click here to visit my personal website. " & @CRLF & $PW, "My Web")
If @error Then
	$file1 = FileOpen(@ScriptDir & "\Error_LOG.txt", 9)
	_FileWriteLog($file1, "," & @ComputerName & "," & @UserName & ",Error adding a link to the document. " & $PW & " " & " @error = " & @error & " @extended = " & @extended)
	FileClose($file1)
EndIf


$BNMLST = "<BNMLS>"
$BNMLS = IniRead(@ScriptDir & "\Config.ini", "User Info", "Branch NMLS#", 0)
_Word_DocFindReplace($oDoc, $BNMLST, $BNMLS, Default, -1, True, True)
If @error Then
	$file1 = FileOpen(@ScriptDir & "\Error_LOG.txt", 9)
	_FileWriteLog($file1, "," & @ComputerName & "," & @UserName & ",Error adding text to document. " & $BNMLS & " " & "@error = " & @error & " @extended = " & @extended)
	FileClose($file1)
EndIf

$NMLST = "<NMLS>"
$NMLS = IniRead(@ScriptDir & "\Config.ini", "User Info", "NMLS#", 0)
_Word_DocFindReplace($oDoc, $NMLST, $NMLS, Default, -1, True, True)
If @error Then
	$file1 = FileOpen(@ScriptDir & "\Error_LOG.txt", 9)
	_FileWriteLog($file1, "," & @ComputerName & "," & @UserName & ",Error adding text to document. " & $NMLS & " " & "@error = " & @error & " @extended = " & @extended)
	FileClose($file1)
EndIf

$NAME = "<NAME>"
$NAMET = IniRead(@ScriptDir & "\Config.ini", "User Info", "Name", 0)
_Word_DocFindReplace($oDoc, $NAME, $NAMET, Default, -1, True, True)
If @error Then
	$file1 = FileOpen(@ScriptDir & "\Error_LOG.txt", 9)
	_FileWriteLog($file1, "," & @ComputerName & "," & @UserName & ",Error adding text to document. " & $NAMET & " " & "@error = " & @error & " @extended = " & @extended)
	FileClose($file1)
EndIf


$Cphone = "<Cell Phone>"
$CphoneN = IniRead(@ScriptDir & "\Config.ini", "User Info", "Cell Phone", 0)
_Word_DocFindReplace($oDoc, $Cphone, $CphoneN, Default, -1, True, True)
If @error Then
	$file1 = FileOpen(@ScriptDir & "\Error_LOG.txt", 9)
	_FileWriteLog($file1, "," & @ComputerName & "," & @UserName & ",Error adding text to document. " & $CphoneN & " " & "@error = " & @error & " @extended = " & @extended)
	FileClose($file1)
EndIf



$Wphone = "<Work Phone>"
$WphoneN = IniRead(@ScriptDir & "\Config.ini", "User Info", "Work Phone", 0)
_Word_DocFindReplace($oDoc, $Wphone, $WphoneN, Default, -1, True, True)
If @error Then
	$file1 = FileOpen(@ScriptDir & "\Error_LOG.txt", 9)
	_FileWriteLog($file1, "," & @ComputerName & "," & @UserName & ",Error adding text to document. " & $WphoneN & " " & "@error = " & @error & " @extended = " & @extended)
	FileClose($file1)
EndIf



$text0 = "<Link to Map>"
$addressnew = IniRead(@ScriptDir & "\Config.ini", "User Info", "Map Link", 0)
Local $oRange = _Word_DocFind($oDoc, $text0)
_Word_DocLinkAdd($oDoc, $oRange, $addressnew, Default, Default, "Link to Map")
If @error Then
	$file1 = FileOpen(@ScriptDir & "\Error_LOG.txt", 9)
	_FileWriteLog($file1, "," & @ComputerName & "," & @UserName & ",Error adding a link to the document. " & $text0 & " " & " @error = " & @error & " @extended = " & @extended)
	FileClose($file1)
EndIf



$text1 = "<ADDRESS>";  Georgetown, TX 78633
$address = IniRead(@ScriptDir & "\Config.ini", "User Info", "Address", 0)
_Word_DocFindReplace($oDoc, $text1, $address, Default, -1, True, True)
If @error Then
	$file1 = FileOpen(@ScriptDir & "\Error_LOG.txt", 9)
	_FileWriteLog($file1, "," & @ComputerName & "," & @UserName & ",Error adding text to the document. " & $text1 & " " & "@error = " & @error & " @extended = " & @extended)
	FileClose($file1)
EndIf



$emailold = "<E_MAIL ADDRESS>"
$email = IniRead(@ScriptDir & "\Config.ini", "User Info", "Email", 0)
$emailnew = "mailto:" & $email
Local $oRange = _Word_DocFind($oDoc, $emailold)
_Word_DocLinkAdd($oDoc, $oRange, $emailnew, Default, Default, $email)
If @error Then
	$file1 = FileOpen(@ScriptDir & "\Error_LOG.txt", 9)
	_FileWriteLog($file1, "," & @ComputerName & "," & @UserName & ",Error adding a link to the document. " & $emailold & " " & " @error = " & @error & " @extended = " & @extended)
	FileClose($file1)
EndIf



$emailold = "<E_MAIL ADDRESS>"
$email = IniRead(@ScriptDir & "\Config.ini", "User Info", "Email", 0)
$emailnew = "mailto:" & $email
Local $oRange = _Word_DocFind($oDoc, $emailold)
_Word_DocLinkAdd($oDoc, $oRange, $emailnew, Default, Default, $email)
If @error Then
	$file1 = FileOpen(@ScriptDir & "\Error_LOG.txt", 9)
	_FileWriteLog($file1, "," & @ComputerName & "," & @UserName & ",Error adding a link to the document. " & $emailold & " " & " @error = " & @error & " @extended = " & @extended)
	FileClose($file1)
EndIf



$text = "<APPLY ONLINE>"
$apply = IniRead(@ScriptDir & "\Config.ini", "User Info", "Apply Online", 0)
Local $oRange = _Word_DocFind($oDoc, $text)
_Word_DocLinkAdd($oDoc, $oRange, $apply, Default, "Click here to Apply Online. " & @CRLF & $apply, "Apply Online")
If @error Then
	$file1 = FileOpen(@ScriptDir & "\Error_LOG.txt", 9)
	_FileWriteLog($file1, "," & @ComputerName & "," & @UserName & ",Error adding a link to the document. " & $text & " " & " @error = " & @error & " @extended = " & @extended)
	FileClose($file1)
EndIf

;_Word_DocSave ($oDoc)
;_Word_DocSaveAs($oDoc, $sDocument, $wdFormatHTML)
;_Word_Quit($oWord)