Code: Select all

xl := ComObjActive("excel.application")
frstblnk := xl.activesheet.range("D1").End(-4121).offset(1,0).row
xl.range("D" frstblnk).value := "b"
xl.range("D" frstblnk).offset(0,1).value := "c"
xl.range("D" frstblnk).offset(0,-1).value := "a"

Code: Select all

oWord := ComObjActive("Word.Application")
loop % oWord.documents.count
	if fileexist(oWord.documents(a_index).fullname)
		oWord.documents(a_index).save

Code: Select all

xl := ComObjActive("excel.application")
+WheelUp::xl.ActiveSheet.Previous.Select
+WheelDown::xl.ActiveSheet.Next.Select

Code: Select all

xl := ComObjActive("Excel.application")
lstrw := xl.Range("A" xl.Rows.Count).End(-4162).Row

Code: Select all

str := "C:\MyFiles\AHK All\AHK 07.03.20\B FolderAndFiles"
StrReplace(str, "\",  , cnt)
loop % cnt
	msgbox % substr(str,1,instr(str,"\",,,cnt-a_index+1)-1)

Code: Select all

xl := ComObjActive("excel.application")
for sheet in XL.WorkSheets
	for c in sheet.usedrange
		if (c.value ~= "(\d{9,}|\d{6}-\d{3})")
			msgbox % c.text " found in cell " c.address(0,0) " in sheet " sheet.name