zhanglei1371-CSDN博客

原创判定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 196 1

转载【转】从题库中随机抽取100道题生成试卷

案例背景小王是某大型企业安全培训师，公司要求所有参加安全培训的员工必须进行测试，测试成绩计入档案。小王必须给每次测试选题、排版，保证每次试卷不能重复，难度不能相差太大。小王为此掉了不少头发. 数据先生认为可以利用Excel公式随机筛选试题，然后通过邮件合并即可轻松搞定。案例最终效果 ...

2018-09-11 10:00:03 43022 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 2978 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 2573

原创 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 747

转载 Office对话框大全

Excel对话框大全序号名称描述1Application.Dialogs(1).Show是调用打开对话框 2Application.Dialogs(5或145).Show是调用另存为对话框， 3Application.Dialogs(6).Show是删除文档

2017-04-16 13:05:00 693

转载 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 2069

转载 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 570

原创 Excel图片调整大小

2017-03-31 19:36:43 479

原创 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 386

原创 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 3840

原创 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 907

转载 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 1476

原创 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 660

转载浏览器自动跳转

#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 258

原创模仿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 214

原创 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 336

转载批处理加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 297

原创按键的灵活动作

按键按下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 292

原创 word文档批量合并工具

合并word文档

2016-12-29 23:42:05 1513

原创递归的感悟

双重递归，计算阶乘之和

2016-12-26 23:26:31 221

原创批处理通用测试代码

批处理通用代码@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 796

原创批处理提取文字到新文本

从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 1376

转载剪贴板增强---Kawvin增强剪贴板_V2.0

Kawvin增强剪贴板by:Kawvin#PersistentSetWorkingDir,%A_ScriptDir% ;设置工作目录#MaxThreadsPerHotkey 5 ;最大热键数量#NoEnv;#Warn#SingleInstance force ;单脚本运行#WinActivateForc

2016-12-20 00:13:07 398

转载 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 1156

转载超轻便自由的快速启动应用工具

/*【RunMenuZz】超轻便自由的快速启动应用工具联系：[email protected] 讨论QQ群：3222783、271105729、493194474by Zz @2016.11.06*/#Persistent ;~让脚本持久运行#NoEnv ;~不检查空变量为环境变量#SingleInstan

2016-12-17 07:36:06 354

转载不同窗口自动设置输入法

实现不同窗口设置不同的输入法

2016-12-14 09:34:49 1076

转载智能跳转---TC资源管理器

智能跳转---TC资源管理器;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;作者：天甜；QQ：105224583;一花一世界，一叶一枯荣，心无挂碍,无挂碍故,无有恐怖,远离颠倒梦想,究竟涅盘。;更新于：2016-10-10-20-36;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

2016-12-14 09:31:19 937

转载 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 274

原创合并文档时让第一页为奇数

目的：实现打印时自动将第一页排在奇数页，以防出现两份资料不独立的情况。因为是双面打印,故必须让文档的第一页位于奇数页,可以获取页码,插入空白页,可以插入奇数页分页符Sub 合并文档时让第一页为奇数() 'ThisDocument.BuiltInDocumentProperties(wdPropertyPages)Rem Selection.Information(wdNumberOfPa

2016-12-11 17:14:56 345

原创一键调节音量

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 723

原创 word磅值的研究

http://club.excelhome.net/thread-495350-1-1.htmlhttp://club.excelhome.net/thread-1117603-1-1.html

2016-12-11 14:51:17 105

【原创工具】word实用工具2.3.0.exe

特色：在word中，可以实现： PDF分割合并加页码；批量查找替换；批量重命名论文参考文件格式处理；图片按表格形式插入；其他功能众多，不再一一赘述。

2021-03-03

【原创工具】PPT时间辅助倒计时F7.exe

按F7可以在PPT上出现一个可以拖动的动态时间，并可以设置倒计时等，非常方便。

2021-03-03

【原创工具】GIF图片压缩器，比在线的压缩器强太多了

特色：速度快，压缩率高，可以压缩到50%，甚至更小的体积；适合压缩到2M以内。

2021-03-03

【原创工具】代码片段管理器.exe

【个人原创工具】代码管理器，优点： 1.便携，无需安装，双击可用； 2.方便的进行增删改查功能；特色：可以根据标题搜索；可以根据代码内容搜索（点击搜索标签切换）支持多级目录数据结构。仅凭以上几点，可以秒杀市面上一大批代码管理工具了。

2021-03-03

拦截弹出窗口的工具

使用快捷键Ctrl+alt+shift+鼠标点击类决定是否自动关闭当前弹窗

2016-06-17

轻松截图gif

轻松将操作录制为gif

2016-06-17

注册表右键增加自动更名，修改文件夹图标，扩展名

本文件包含如下五个功能： 1.右键增加记事本打开； 2.右键一键修改文件夹图标为文件夹内程序图标————原创！ 3.右键一键修改文件夹或文件名为当前日期+文件名——原创！ 4.右键一键复制文件夹或文件完成路径到剪贴板——原创！ 5.右键一键修改文件扩展名——原创！ PS：后面几个原创的百度上是不可能找到重复内容的，现在本人分享出来，10分绝对是超值了

2013-10-01