摘要: #导入各种包 from selenium import webdriver#浏览器 from selenium.webdriver.common.by import By#选择器 from selenium.webdriver.support import expected_conditions a 阅读全文
posted @ 2022-09-14 11:51 wangway 阅读(64) 评论(0) 推荐(0) 编辑
摘要: #导入各种包 from selenium import webdriver#浏览器 from selenium.webdriver.common.by import By#选择器 from selenium.webdriver.support import expected_conditions a 阅读全文
posted @ 2022-09-14 11:49 wangway 阅读(20) 评论(0) 推荐(0) 编辑
摘要: // ==UserScript== // @name 平台培训 // @namespace http://tampermonkey.net/ // @version 0.1 // @description try to take over the world! // @author You // @ 阅读全文
posted @ 2022-09-14 11:47 wangway 阅读(24) 评论(0) 推荐(0) 编辑
摘要: from selenium import webdriver from selenium.webdriver.common.by import By from selenium.webdriver.support import expected_conditions as EC from selenium.webdriver.support.wait import WebDriverWait f... 阅读全文
posted @ 2019-06-28 12:05 wangway 阅读(391) 评论(0) 推荐(0) 编辑
摘要: Sub ListFilesTest() With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then FolderPath$ = .SelectedItems(1) Else Exit Sub End With If Rig 阅读全文
posted @ 2019-05-08 21:30 wangway 阅读(206) 评论(0) 推荐(0) 编辑
摘要: var showTimu = []; function pushTimu(second,map){ showTimu = []; $.each(map,function(i,ele){ var index=parseInt(i); if(0index){ showTimu.push(ele); } }); return; } }); } functi... 阅读全文
posted @ 2019-05-08 21:25 wangway 阅读(304) 评论(0) 推荐(0) 编辑
摘要: 刚开始能把代码敲得行云流水的时候,写代码是种乐趣。有了功利目的之后,重复的工作写多几次,厌烦的情绪四处弥漫。 去年八月份正好写了一回,还能支持控件,在此备忘。 阅读全文
posted @ 2019-03-21 22:49 wangway 阅读(516) 评论(0) 推荐(0) 编辑
摘要: 花了一写时间做了一个Excel宏工作簿,可以根据考场人数、座位排列和考生名单 生成《考试座位表》《考生去向表》《考试通知单》,想要的前往了解哦: https://item.taobao.com/item.htm?id=589268244785 1、考场设置表。 (1)考场人数有两种设置方法,方法一是 阅读全文
posted @ 2019-03-20 22:03 wangway 阅读(688) 评论(0) 推荐(0) 编辑
摘要: C-EC-4B-CF-FC-37RegisterCodeStart/D8-12-65-C1-26-31/04:0E:3C:2F:E8:29/8C-EC-4B-CF-FC-37/00:1E:33:E4:AB:1E/D8:CB:8A:B4:0B:C1/00-FF-1C-69-60-02/A0:D3:C1 阅读全文
posted @ 2017-10-14 19:54 wangway 阅读(586) 评论(1) 推荐(0) 编辑
摘要: Sub 生成二维码() Dim wb As Workbook Dim sht As Worksheet Set wb = Application.ThisWorkbook Set sht = wb.Worksheets(1) 'Randomize With sht '删除旧条码控件 .Shapes. 阅读全文
posted @ 2023-09-03 23:49 wangway 阅读(22) 评论(0) 推荐(0) 编辑
摘要: Sub newPages() Application.DisplayAlerts = False Dim Wb As Workbook Dim NewSht As Worksheet Dim i Set Wb = Application.ThisWorkbook For i = 1 To 200 S 阅读全文
posted @ 2022-10-09 09:22 wangway 阅读(24) 评论(0) 推荐(0) 编辑
摘要: Sub SplitTextFrame() '多段落文本框拆为多文本框一段落,加上(#)编号 Dim pre As Presentation Dim sld As Slide Dim shp As Shape Dim shp2 As Shape Set pre = ActivePresentation 阅读全文
posted @ 2022-05-06 23:50 wangway 阅读(60) 评论(0) 推荐(0) 编辑
摘要: 广告公司说不会从Excel里复制表格,然后粘贴到图片上面。只会从Word里复制表格,然后粘贴到照片里面。最后也不知道是谁拍板定下的广告公司,把要光荣榜做成word文档,真是闻所未闻!这种情况还持续了好几年。 等你忍无可忍你写了一段代码,想着以后能高效一点,它就改格式了,tnnd。真希望上面的人有点脑 阅读全文
posted @ 2022-05-05 21:21 wangway 阅读(41) 评论(0) 推荐(0) 编辑
摘要: Sub 替换删除选择题括号中的选项() '2021-2-22 'dg nextseven Dim doc As Document, p As Paragraph Set doc = ThisDocument Set regex = CreateObject("VBScript.RegExp") Wi 阅读全文
posted @ 2021-02-22 14:44 wangway 阅读(143) 评论(0) 推荐(0) 编辑
摘要: 'PPT 加载宏 代码模板 Dim cmdBar As CommandBar, cmdBtn As CommandBarControl Const cmdBtnCap As String = "从Word文档导入图片" Sub Auto_Open() Call DelCmdBtn Call AddC 阅读全文
posted @ 2021-02-22 10:35 wangway 阅读(272) 评论(0) 推荐(0) 编辑
摘要: Sub 试卷顺题号() '作者 DG-wang '时间 2021-01-28 '用途 试卷重新顺题号 '未解决的问题 “ 1.2008年 ”这样的文本 Const MAX_INDEX As Integer = 20 '设定修改题号的上限值 Dim doc As Document '声明word文档变 阅读全文
posted @ 2021-01-28 10:59 wangway 阅读(205) 评论(0) 推荐(0) 编辑