原创 合併文檔時讓第一頁爲奇數
目的：實現打印時自動將第一頁排在奇數頁，以防出現兩份資料不獨立的情況。因爲是雙面打印,故必須讓文檔的第一頁位於奇數頁,可以獲取頁碼,插入空白頁,可以插入奇數頁分頁符Sub 合併文檔時讓第一頁爲奇數() 'ThisDocument.
2020-06-17 10:06:01
原创 超輕便自由的快速啓動應用工具
/*【RunMenuZz】超輕便自由的快速啓動應用工具聯繫：[email protected] 討論QQ羣：3222783、271105729、493194474by Zz @2016.11.06*/#Persistent
2020-06-17 10:06:01
19
原创 win7一鍵拖動生成快速啓動欄
一鍵拖動生成快速啓動工具欄 ^#x:: ;自動添加快速啓動工具欄 if had_added() ExitApp ql_add() Sleep,200 if (is_locked()) { lock_unlock() } Sleep,
2020-06-17 10:05:50
18
原创 剪貼板增強---Kawvin增強剪貼板_V2.0
Kawvin增強剪貼板 by:Kawvin#Persistent SetWorkingDir,%A_ScriptDir% ;設置工作目錄 #MaxThreadsPerHotkey 5 ;最大熱鍵數量
2020-06-17 10:05:50
24
原创 不同窗口自動設置輸入法
實現不同窗口設置不同的輸入法 ;~shellhook=>wm_create=>getkeyboardlayout=>ImmSimulateHotKey 根據不同的程序窗口設置輸入法，如鍵盤默認佈局爲英語（美國），運行腳本後，當開啓Maxt
2020-02-22 05:58:37
43
原创 智能跳轉---TC資源管理器
智能跳轉---TC資源管理器 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;作者：天甜；QQ：105224583 ;一花一世界，一葉一枯榮，心無掛礙
2020-02-22 05:58:37
24
原创 AHK按鍵轉載
AHK按鍵一個頂三個 需求： 我想要，用win鍵代替3個鍵，代替了之後， 以後用win+任意鍵，例如： 就是win+1就是ctrl+alt+shift+1 其中1是可以變的。 解決：考慮到win鍵比較特殊比如win+l鎖定計算機還是保
2020-02-22 05:58:37
10
原创 一鍵調節音量
Ctrl+→：增大音量並顯示當前音量；Ctrl＋←：減小音量並顯示當前音量。Ctrl＋小鍵盤*：靜音 ^Right:: Goto, vol+ return ^Left:: ;還可以這樣:>^left::SoundSet -5
2020-02-22 05:58:37
6
原创 word磅值的研究
http://club.excelhome.net/thread-495350-1-1.html http://club.excelhome.net/thread-1117603-1-1.html 點贊 收藏 分享
2020-02-22 05:58:37
原创 判定word中是否存在欲購買的耗材
用途：判斷Excel中的關鍵詞是否存在於word文檔中 Sub 判定word中是否存在欲購買的耗材() Dim ce As Range Dim wd As Object Dim sh As Worksheet Dim wb As Wo
2018-10-27 07:14:50
1
原创 【轉】從題庫中隨機抽取100道題生成試卷
案例背景 小王是某大型企業安全培訓師，公司要求所有參加安全培訓的員工必須進行測試，測試成績計入檔案。小王必須給每次測試選題、排版，保證每次試卷不能重複，難度不能相差太大。小王爲此掉了不少頭髮. 數據先生認爲可以利用Excel公式隨機篩
2018-09-13 12:06:07
原创 使用360瀏覽器+VScode來調試js的嘗試
本文參考： 使用VSCode 斷點調試 js項目，html頁面 - CSDN博客 https://blog.csdn.net/arvin0/article/details/53673351 今天參考了上面文章，使用vscode來學習調試
2018-09-07 21:49:18
原创 VBA判斷按鍵的api
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwEx
2018-08-30 13:05:18
18
原创 Excel數組排序+圖片調整大小
Sub 圖片調整合適大小() ' Debug.Print ActiveWorkbook.Name 圖片顯示比例 = 0.9 '1爲頂滿單元格 Dim wb As Workbook, sh As Workshee
2018-08-30 13:04:29
原创 word文檔批量合併工具
用於批量合併word文檔 #NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases. ; #Warn ; Enable
2018-08-30 13:04:28
1