summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ahk-assistant.ahk10
-rw-r--r--functions.ahk32
2 files changed, 28 insertions, 14 deletions
diff --git a/ahk-assistant.ahk b/ahk-assistant.ahk
index 8fe673d..39538b9 100644
--- a/ahk-assistant.ahk
+++ b/ahk-assistant.ahk
@@ -276,7 +276,6 @@ Insert::appendClipboard()
^0::Send !vd ; view > details
^-::Send ^{WheelDown 2} ; zoom out
^=::Send ^{WheelUp 2} ; zoom in
- #+Space::Send !vl!v+h ; fix weird xp explorer bug where you get no labels on thumbnails
#IfWinActive
#IfWinActive ahk_class ShockwaveFlashFullScreen ; full screen flash
@@ -307,6 +306,7 @@ Insert::appendClipboard()
#IfWinActive
#IfWinActive ahk_class Photo_Lightweight_Viewer ; photoviewer windows 7
+ ^w:: ; overflow
CapsLock::Send !{F4} ; quit
Up:: ; overflow
Down::Return ; fixes up/down breaking left/right navigation
@@ -339,7 +339,13 @@ Insert::appendClipboard()
^t::Send !go ; C-t goes to today, on calendar view
#IfWinActive
-#IfWinActive ahk_class XLMAIN ; excel
+#IfWinActive ahk_class OpusApp ; word 2003
+ ^=::Send ^{WheelUp} ; zoom in
+ ^-::Send ^{WheelDown} ; zoom out
+ ^0::Send !vzp{Enter} ; fit to page zoom
+#IfWinActive
+
+#IfWinActive ahk_class XLMAIN ; excel 2003
^+v::Send ^'{Down} ; C-S-v copies above cell contents into current
^+n::Send !iw ; new sheet
^+w::Send !el ; delete current sheet
diff --git a/functions.ahk b/functions.ahk
index ada63b7..16c67cf 100644
--- a/functions.ahk
+++ b/functions.ahk
@@ -2,11 +2,11 @@
dirWorking() {
If A_OSVersion in WIN_XP
{
- Run explorer %A_MyDocuments%
+ Run %A_MyDocuments%
}
Else
{
- Run explorer %A_MyDocuments%\..\Downloads
+ Run %A_MyDocuments%\..\Downloads
}
Return
}
@@ -14,11 +14,21 @@ dirWorking() {
dirSync() {
If A_OSVersion in WIN_XP
{
- Run explorer %A_MyDocuments%\Vault
+ Run %A_MyDocuments%\Vault
+ WinWaitActive ahk_class CabinetWClass ; wait for window to display
+ {
+ PostMessage, 0x111, 28715,,, ahk_class CabinetWClass ; enable list view to work around thumbnail no icons bug
+ }
}
Else
{
- Run explorer %A_MyDocuments%\..\Vault
+ Run %A_MyDocuments%\..\Vault
+ WinWaitActive ahk_class CabinetWClass ; wait for window to display
+ {
+ PostMessage, 0x111, 28715,,, ahk_class CabinetWClass ; at this point, i just like list view
+ Send, +{Tab} ; weird glitch fix where focus is on the sort columns meaning you need to press enter twice
+ }
+
}
Return
}
@@ -64,10 +74,7 @@ insertGateway() {
}
insertCRMFooter() {
- Send, {Enter}
- insertDateTime()
- Send, {Space}
- insertSignature()
+ insertFooter()
Send, {F6}javascript:document.getElementById("SAVE_FOOTER").focus(){Sleep 25}{Enter}{Sleep 50}{Space}
Return
}
@@ -115,7 +122,8 @@ insertSignature() {
}
pasteClipboard() { ; manually paste clipboard, minus formatting
- StringReplace, clipboard, clipboard, %A_Tab%, `,, All ;remove tabs
+ StringReplace, clipboard, clipboard, %A_Tab%, `,, All ; remove tabs
+ clipboard = %clipboard% ; trim whitespace
SendRaw %clipboard%
Return
}
@@ -235,7 +243,7 @@ explorerRename() {
if (ExtensionPos != -1)
{
Position := StrLen(Clipboard) - ExtensionPos
- Send, {End}{Left %Position%}{CtrlDown}{ShiftDown}{Home}{ShiftUp}{CtrlUp}
+ Send, {CtrlDown}{Home}{CtrlUp}{CtrlDown}{ShiftDown}{End}{CtrlUp}{Left %Position%}{ShiftUp}
}
Clipboard = %backupClipboard%
backupClipboard =
@@ -284,7 +292,7 @@ explorerNewDir() { ;allows xp to create new folder from keypress
explorerNewFile() { ;create a new blank text file
If A_OSVersion in WIN_XP
{
- Send !fwt{End}{Left 4}{ShiftDown}{Home}{ShiftUp} ;new text file, and deselect file extension
+ Send !fwt{CtrlDown}{Home}{ShiftDown}{End}{CtrlUp}{Left 4}{ShiftUp} ;new text file, and deselect file extension
}
Else
{
@@ -295,7 +303,7 @@ explorerNewFile() { ;create a new blank text file
excelFormulaBar() { ;jumps to formula bar
CoordMode, Mouse, Relative
- MouseMove, 180, 60
+ MouseMove, 170, 75
Send {LButton}
Return
}