Base project -> Utils.em:

macro getTime()
{
    Time = GetSysTime(1)
    Year = Time.Year
    Mon = Time.Month
    Day = Time.Day  
    Hour = Time.Hour
    Min = Time.Minute
    Sec = Time.Second

    if(Mon < 10)
        szMon = "0@Mon@"
    else
        szMon = Mon

    if(Day < 10)
        szDay = "
 
0@Day@"
    else
        szDay = Day

    if(Hour < 10)
        szHour = "0@Hour@"
    else
        szHour = Hour

    if(Min < 10)
        szMin = "0@Min@"
    else
        szMin = Min     

    szTime = "@Year@@szMon@@szDay@.@szHour@@szMin@"
    return szTime
}

macro aaaResetTypeId()
{
    setreg(MYTYPEID, "
 
")
    setreg(MYOPETYPE, "")   
    setreg(MYOPEINFO, "")   
}
macro aaaResetOpeType()
{
    setreg(MYOPETYPE, "")   
}
macro aaaResetOpeInfo()
{   
    setreg(MYOPEINFO, "")   
}
macro aaaResetName()
{
    setreg(MYNAME, "")  
}
macro aaaCM(cmType)
{
    hwnd = GetCurrentWnd()
    lnFirst = GetWndSelLnFirst(hwnd)
    lnLast = GetWndSelLnLast(hwnd)   
    hbuf = GetCurrentBuf()

    szTime = getTime()

    szMYTYPEID = getreg(MYTYPEID)
    if(strlen( szMYTYPEID ) == 0)
    {
        szMYTYPEID = Ask("
 
Enter TypeId, such as: Bug23948239")
        if (szMYTYPEID != "")
            setreg(MYTYPEID, szMYTYPEID)            
    }
    szMYNAME = getreg(MYNAME)
    if(strlen( szMYNAME ) == 0)
    {
        szMYNAME = Ask("Enter your name:")
        if (szMYNAME != "")
            setreg(MYNAME, szMYNAME)
    }
    szMYOPETYPE= getreg(MYOPETYPE)
    if(strlen( szMYOPETYPE ) == 0)
    {
        szMYOPETYPE = Ask("Enter your operation type:")
        if (szMYOPETYPE != "")
            setreg(MYOPETYPE, szMYOPETYPE)
    }           

    szMYOPEINFO= getreg(MYOPEINFO)
    if(strlen( szMYOPEINFO ) == 0)
    {
        szMYOPEINFO = Ask("Enter your operation info:")
        if (szMYOPEINFO != "")
            setreg(MYOPEINFO, szMYOPEINFO)
    }   

    if (cmType == "JavaSingleLineA")
    {
        InsBufLine(hbuf, lnFirst, "// + @szMYTYPEID@, @szMYNAME@, @szMYOPETYPE@, @szTime@, @szMYOPEINFO@")
        InsBufLine(hbuf, lnLast+2, "// - @szMYTYPEID@, @szMYNAME@, @szMYOPETYPE@, @szTime@, @szMYOPEINFO@")     
    }else if (cmType == "JavaSingleLineB")
    {
        InsBufLine(hbuf, lnFirst, "/* + @szMYTYPEID@, @szMYNAME@, @szMYOPETYPE@, @szTime@, @szMYOPEINFO@ */")
        InsBufLine(hbuf, lnLast+2, "/* - @szMYTYPEID@, @szMYNAME@, @szMYOPETYPE@, @szTime@, @szMYOPEINFO@ */")          
    }else if (cmType == "JavaMultiLineA")
    {
        InsBufLine(hbuf, lnFirst, "/* + @szMYTYPEID@, @szMYNAME@, @szMYOPETYPE@, @szTime@, @szMYOPEINFO@")
        InsBufLine(hbuf, lnLast+2, " - @szMYTYPEID@, @szMYNAME@, @szMYOPETYPE@, @szTime@, @szMYOPEINFO@ */")        
    }else if (cmType == "JavaMultiLineB")
    {
        InsBufLine(hbuf, lnFirst, "// + @szMYTYPEID@, @szMYNAME@, @szMYOPETYPE@, @szTime@, @szMYOPEINFO@")
        InsBufLine(hbuf, lnLast+2, "// - @szMYTYPEID@, @szMYNAME@, @szMYOPETYPE@, @szTime@, @szMYOPEINFO@")     
    }else if (cmType == "XMLSingleLine")
    {
        InsBufLine(hbuf, lnFirst, "<!-- + @szMYTYPEID@, @szMYNAME@, @szMYOPETYPE@, @szTime@, @szMYOPEINFO@ -->")
        InsBufLine(hbuf, lnLast+2, "<!-- - @szMYTYPEID@, @szMYNAME@, @szMYOPETYPE@, @szTime@, @szMYOPEINFO@ -->")       
    }else if (cmType == "XMLMultiLine")
    {
        InsBufLine(hbuf, lnFirst, "<!-- + @szMYTYPEID@, @szMYNAME@, @szMYOPETYPE@, @szTime@, @szMYOPEINFO@")
        InsBufLine(hbuf, lnLast+2, " - @szMYTYPEID@, @szMYNAME@, @szMYOPETYPE@, @szTime@, @szMYOPEINFO@ -->")       
    }
}
// // + xxxx
// // - xxxx
macro aaaCMJavaSingleLineA()
{
    cmType = "JavaSingleLineA"
    aaaCM(cmType);
}
// /* + xxxx */
// /* - xxxx */
macro aaaCMJavaSingleLineB()
{
    cmType = "JavaSingleLineB"
    aaaCM(cmType);
}
// /* + xxx
//   xxx
//   xxx
// - xxx */
macro aaaCMJavaMultiLineA()
{
    cmType = "JavaMultiLineA"
    aaaCM(cmType);
}
// // + xxx 
// // xxx
// // xxx
// // - xxx
macro aaaCMJavaMultiLineB()
{
    cmType = "JavaMultiLineB"
    aaaCM(cmType);
}
// <!-- + xxx -->
// <!-- - xxx -->
macro aaaCMXMLSingleLine()
{
    cmType = "XMLSingleLine"
    aaaCM(cmType);
}
// <!-- + xxx
//   xxx
//   xxx
// - xxx -->
macro aaaCMXMLMultiLine()
{
    cmType = "XMLMultiLine"
    aaaCM(cmType);
}

開啟Base工程：

講上面內容新增到檔案Utils.em，然後儲存並關閉Base工程，重新開啟一個新的專案:

依次開啟選單Options->Key Assignments… , 並鍵入”macro”，左側列表裡面可以檢視到我們上面新增的macro:

點選左側列表中的macro項，再點選Assign New Key…按鈕分配快捷鍵：

依次鍵入快捷鍵，結果如下：