; Macro for some auto text strings
; Rev. 1.1
; Pyramid Solutions / Pit Janssen / 16.02.08

#Persistent   ; Keep the script running until the user exits it

; -------
; Anreden
; -------
::sgh::   ; Triggered by 'sgh'
   SendInput, Sehr geehrter Herr{Space}
Goto, ReqName


::sgf::   ; Triggered by 'sgf'
   SendInput, Sehr geehrte Frau{Space}

ReqName:
   CoordMode, Caret   ; Sets coordinate mode relative to the active window
   Gui, Add, Edit, vName -WantReturn W200 R1 X1 Y1, Name?   ; Creates a GUI, adds 'edit' area
   Gui, Add, Button, YP Hidden Default gGetName   ; Adds a hidden button; jumps to label 'GetName'
   Gui, +ToolWindow +AlwaysOnTop -Caption +Border   ; Modifications to get a very small window
   PosY:=A_CaretY-4
   Gui, Show, W202 X%A_CaretX% Y%PosY%, NameInput   ; Shows the window at the current text position
Return
GetName:
   GuiControlGet, Name, , Name   ; Retrieves the input string
GuiClose:
   Gui, Submit   ; Save the input from the user to each control's associated variable
   If (Name!="Name?")
      Sleep, 100
      Send, % Name ",`n`n"
GuiEscape:
   Gui, Destroy
Return



; ---------
; Kurztexte
; ---------
:C:vd::   ; Triggered by 'vd', case sensitive
   SendInput, vielen Dank
Return


:C:Vd::   ; Triggered by 'Vd', case sensitive
   SendInput, Vielen Dank
Return


:C:vdf::   ; Triggered by 'vdf', case sensitive
   SendInput, vielen Dank für{Space}
Goto, LMenu_vdf


:C:Vdf::   ; Triggered by 'Vdf', case sensitive
   SendInput, Vielen Dank für{Space}

LMenu_vdf:   ; Label Menu_vdf
   Menu, Menu_vdf, Add, Ihre schnelle Antwort, SLMenu_vdf
   Menu, Menu_vdf, Add, Ihre schnelle Rückmeldung, SLMenu_vdf
   Menu, Menu_vdf, Add, die Informationen, SLMenu_vdf
   Menu, Menu_vdf, Add, Ihre eMail, SLMenu_vdf
   Menu, Menu_vdf, Add, Ihre Nachricht, SLMenu_vdf
   Menu, Menu_vdf, Show
Return

SLMenu_vdf:   ; SubLabel Menu_vdf
   SendInput, %A_ThisMenuItem%
Return


:C:zi::   ; Triggered by 'zi', case sensitive
   SendInput, zur Information
Return


:C:Zi::   ; Triggered by 'Zi', case sensitive
   SendInput, Zur Information
Return


::sb::   ; Triggered by 'sb'
   SendInput, siehe Beilage
Return


::wb::   ; Triggered by 'wb'
   SendInput, ... wie besprochen.`n`n
Return


::dat::   ; Triggered by 'dat'
   FormatTime, Date, , dd.MM.yyyy
   SendInput, %Date%
Return


::udat::   ; Triggered by 'udat'
   FormatTime, Date, , dd.MM.yyyy
   SendInput, Hans Muster / %Date%
Return


::usr::   ; Triggered by 'usr'
   SendInput, Hans Muster
Return



; --------
; Adressen
; --------
::ema::   ; Triggered by 'ema'
   SendInput, hans.muster@email.com
Return



; ----------
; Signaturen
; ----------
::mfg::   ; Triggered by 'mfg'
   SendInput, Mit freundlichen Grüssen`n`nHans Muster
Return


#p::   ; Hot key WIN-P
   SendInput, Ciao - Hans
Return



; ----------
; Funktionen
; ----------
; Paste Unformatted text but save the original clipboard content (source: some
; programmers, found at AHK's home page)
^!v::   ; Hot key CTRL-ALT-V
   Clip0 = %ClipBoardAll%
   ClipBoard = %ClipBoard%   ; Convert to text
   Send ^v   ; For best compatibility: SendPlay
   Sleep 50   ; Don't change clipboard while it is pasted! (Sleep > 0)
   ClipBoard = %Clip0%   ; Restore original ClipBoard
   VarSetCapacity(Clip0, 0)   ; Free memory
Return


; Convert Tabs to Spaces for Notepad++
^!t::   ; Hot key CTRL-ALT-T
   SendInput, ^h
Return