- 博客(32)
- 资源 (24)
- 收藏
- 关注
原创 判定word中是否存在欲购买的耗材
用途:判断Excel中的关键词是否存在于word文档中 Sub 判定word中是否存在欲购买的耗材()Dim ce As RangeDim wd As ObjectDim sh As WorksheetDim wb As WorkbookDim doc As Object Set wd = GetObject(, "word.application") '获取word对象...
2018-10-21 09:30:16 206 1
转载 【转】从题库中随机抽取100道题生成试卷
案例背景 小王是某大型企业安全培训师,公司要求所有参加安全培训的员工必须进行测试,测试成绩计入档案。小王必须给每次测试选题、排版,保证每次试卷不能重复,难度不能相差太大。小王为此掉了不少头发. 数据先生认为可以利用Excel公式随机筛选试题,然后通过邮件合并即可轻松搞定。 案例最终效果 ...
2018-09-11 10:00:03 43384 4
原创 使用360浏览器+VScode来调试js的尝试
本文参考:使用VSCode 断点调试 js项目,html页面 - CSDN博客 https://blog.csdn.net/arvin0/article/details/53673351今天参考了上面文章,使用vscode来学习调试js,折腾了一番后,终于成功了。现将方法记录如下:1.安装VScode,这个有蓝色图标版,还有绿色图标版,不知二者有何区别。这个是绿色版的,有Inside...
2018-09-06 20:15:58 3054 1
原创 VBS提取文中中指定两个字符间的内容
Dim a, b, c, fso, re, strB Set ws = CreateObject("Wscript.Shell") Set fso = CreateObject("scripting.filesystemobject") Set re = CreateObject("vbscript.REGEXP") sPath = WScript.ScriptFu
2017-08-03 15:09:56 2612
原创 VBA改写VBA代码
Sub df()Dim pa As Paragraph, re As Object ActiveDocument.Range.Find.Execute "_^13", , , 2, , , , 0, 0, "", 2 '第一个2决定是否通配,第二个决定是否全部替换 Set re = CreateObject("vbscript.regexp") re.Global =
2017-04-24 20:28:59 809
转载 Office对话框大全
Excel对话框大全序号名称描述1Application.Dialogs(1).Show是调用打开对话框 2Application.Dialogs(5或145).Show是调用另存为对话框, 3Application.Dialogs(6).Show是删除文档
2017-04-16 13:05:00 715
转载 VBA判断按键的api
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Private Declare Function MapVirtualKey Lib "user32" Alias "MapVi
2017-04-11 20:58:51 2179
转载 Excel数组排序+图片调整大小
Sub 图片调整合适大小()' Debug.Print ActiveWorkbook.Name 图片显示比例 = 0.9 '1为顶满单元格 Dim wb As Workbook, sh As Worksheet, ce As Range, shp As Shape Dim dic As Object, re As Object, shel As Object,
2017-04-05 06:55:21 592
原创 Excel图片调整大小
Sub 图片调整合适大小()' Debug.Print ActiveWorkbook.Name 图片显示比例 = 0.9 '1为顶满单元格 Dim wb As Workbook, sh As Worksheet, ce As Range, shp As Shape Dim dic As Object, re As Object, shel As Object,
2017-03-31 19:36:43 503
原创 Excel信息提取二
Sub 订单归纳()Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As WorksheetDim dic1 As Object, dic2 As ObjectDim arr, brr, crrDim wb As WorkbookSet wb = ActiveWorkbookSet sh1 = wb.Sheets("订单")Set sh2 =
2017-03-30 00:41:41 402
原创 Excel VBA 找出选定范围不重复值和重复值
找出不重复值Sub 找出选定范围内不重复的值() On Error Resume Next Dim d As Object Set d = CreateObject("scripting.dictionary") For c_i = 1 To selection.Columns.Count For Each ce In selection.Column
2017-03-07 22:05:28 3991
原创 7种文档遍历法
Sub 在选定文档最后加入一句话() '遍历文件 Dim MyDialog As FileDialog On Error Resume NextApplication.ScreenUpdating = False Set MyDialog = Application.FileDialog(msoFileDialogFilePicker) With MyDialog
2017-03-06 10:45:43 930
转载 word遍历方法大全
CMD,FSO+双字典,堆栈(最快),DIRSub 单个文档处理(F) Dim pa As Paragraph, c As RangeWith Documents.Open(F)For Each pa In ActiveDocument.Paragraphs For Each c In pa.Range.Characters If c.Font.N
2017-03-05 21:23:21 1530
原创 AHK的OnMessage
OnMessage(0x404, "AHK_NOTIFYICON") AHK_NOTIFYICON(wParam, lParam){ if (lParam = 0x202) ; WM_LBUTTONUP { Suspend return 1 } else if (lParam = 0x205) ; WM_RBU
2017-03-05 09:21:25 705
转载 浏览器自动跳转
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.; #Warn ; Enable warnings to assist with detecting common errors.SendMode Input ; Recommended for new script
2017-02-27 23:25:12 274
原创 模仿VIMD的模式的简化代码示例
按numpad0来切换模式,按t显示不同的结果;Numpad0::tfmode:=!tfmodeaaa:=(tfmode=1?"AAAA":"BBBB") SplashImage Off SplashImage, "",X500 Y500 W200 B fs10 CT00FFFF CW000000,%aaa%, , 切换模式提示 WinSet, Transparent, 180, a
2017-02-26 19:34:44 247
原创 Excel信息提取
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Sub 信息汇总() Dim wb1 As Workbook, wb2 As Workbook, wb3 As Workbook, wb0 As Workbook Dim sh0 As Worksheet, sh1 As Workshee
2017-02-25 17:12:51 350
转载 批处理加0
1-5变为01-05的形式@echo off&setlocal enabledelayedexpansionfor /f "tokens=1,2 delims=-" %%a in (rq.txt) do (echo 源串:%%a-%%bpauseif 1%%a lss 100 (set var1=0%%a) else set var1=%%aif 1%%b lss 100
2017-01-04 21:24:06 307
原创 按键的灵活动作
按键按下1次不停的发送,再按终止$a:: 按go:=!gosettimer,aaa,500returnaaa:if(go=1) send aelse settimer,aaa,offreturn但是这样不行:a::tf:=!tfLoop{Send bif(tf=0)break}return这样也不行:ff=0$a up::
2017-01-02 09:38:05 307
原创 批处理通用测试代码
批处理通用代码@echo offsetlocal enabledelayedexpansioncd /d %~dp0REM dir&pausepushd "c:\"dir/b c:dir c:\lks是j.bat&&set panduan=1||set panduan=0 echo !panduan!&pause echo errorlevel为:%errorlevel%&
2016-12-21 22:44:28 826
原创 批处理提取文字到新文本
从txt文件文件内容xx-ReadLog中提取号码后面的数字到新的文件:09:35:522013544409:35:52 : 读卡完成,送出号码 8013544809:35:562013544409:35:56 : 读卡完成,送出号码 90135944@echo offsetlocal enabledelayedexpansionREM cd /d %~dp
2016-12-21 21:46:15 1403
转载 剪贴板增强---Kawvin增强剪贴板_V2.0
Kawvin增强剪贴板by:Kawvin#PersistentSetWorkingDir,%A_ScriptDir% ;设置工作目录#MaxThreadsPerHotkey 5 ;最大热键数量#NoEnv;#Warn#SingleInstance force ;单脚本运行#WinActivateForc
2016-12-20 00:13:07 427
转载 AHK按键转载
AHK按键一个顶三个需求: 我想要,用win键代替3个键,代替了之后, 以后用win+任意键,例如:就是win+1就是ctrl+alt+shift+1 其中1是可以变的。解决:考虑到win键比较特殊比如win+l锁定计算机还是保留为好,且 我常用 win+d 、 win+e 、win+f、 win+l 、win+x 、win+ 1~9 ,所以我建议用CapsLock键。
2016-12-19 22:04:10 1227
转载 超轻便自由的快速启动应用工具
/*【RunMenuZz】超轻便自由的快速启动应用工具联系:hui0.0713@gmail.com 讨论QQ群:3222783、271105729、493194474by Zz @2016.11.06*/#Persistent ;~让脚本持久运行#NoEnv ;~不检查空变量为环境变量#SingleInstan
2016-12-17 07:36:06 386
转载 智能跳转---TC资源管理器
智能跳转---TC资源管理器;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;作者:天甜;QQ:105224583;一花一世界,一叶一枯荣,心无挂碍,无挂碍故,无有恐怖,远离颠倒梦想,究竟涅盘。;更新于:2016-10-10-20-36;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2016-12-14 09:31:19 978
转载 win7一键拖动生成快速启动栏
一键拖动生成快速启动工具栏^#x:: ;自动添加快速启动工具栏if had_added() ExitAppql_add()Sleep,200if (is_locked()){ lock_unlock()}Sleep,200clear()Sleep,200control_move()control_set()Sleep,200lock_unlock()block
2016-12-13 01:11:19 285
原创 合并文档时让第一页为奇数
目的:实现打印时自动将第一页排在奇数页,以防出现两份资料不独立的情况。因为是双面打印,故必须让文档的第一页位于奇数页,可以获取页码,插入空白页,可以插入奇数页分页符Sub 合并文档时让第一页为奇数() 'ThisDocument.BuiltInDocumentProperties(wdPropertyPages)Rem Selection.Information(wdNumberOfPa
2016-12-11 17:14:56 363
原创 一键调节音量
Ctrl+→:增大音量并显示当前音量;Ctrl+←:减小音量并显示当前音量。Ctrl+小键盘*:静音^Right:: Goto, vol+ return ^Left:: ;还可以这样:>^left::SoundSet -5 Goto, vol- return ^NumpadMult::Send {Volume_mute}vol+: vol-:GUI_W=700 ;
2016-12-11 15:57:56 779
原创 word磅值的研究
http://club.excelhome.net/thread-495350-1-1.htmlhttp://club.excelhome.net/thread-1117603-1-1.html
2016-12-11 14:51:17 115
【原创工具】word实用工具2.3.0.exe
2021-03-03
【原创工具】代码片段管理器.exe
2021-03-03
注册表右键增加自动更名,修改文件夹图标,扩展名
2013-10-01
ToTal Commender
2011-09-15
强大的搜索软件二合一
2011-09-15
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人