- 博客(3)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 给微信好友批量发图片
import xlrdimport xlwtimport sys,osimport itchatimport timewk = xlrd.open_workbook(os.getcwd()+'\\好友名单1.xls')sheet = wk.sheet_by_name('Sheet1')R = sheet.nrows #行print(str(R)+'行')itchat.auto_login(hotReload=True) #热启动你的微信for i in range(1,R): ...
2022-04-10 17:30:19
163
原创 VBA 朗读excel随机选择的单元格 （语音库人声可选）
VBA 朗读excel随机选择的单元格 （语音库人声可选）Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim obj As Object, soundnu As Integer Set obj = CreateObject("SAPI.spVoice") '创建语音对象 Set sysVoice = obj.GetVoices() Sheet1.Range("H1").Value = "选择语音...
2022-04-05 18:50:42
857
1
VBA 用正则表达式设置 word 文件 格式（正文、题目、一二三级标题的字体、字号、颜色）
VBA 用正则表达式设置 word 文件 格式，可设置正文、题目、一二三级标题的字体、字号、颜色。
使用方法：
1、在要设置的word文件打开状态下，ALT+F11，打开VBA编辑环境、
2、点击【插入】菜单->【模块】，插入模块。
3、将附件中的代码赋值至模块。
4、F5运行，即可。
2022-05-11
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人