02 2021 档案

wdVBA_替换删除选择题括号中的选项

摘要：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 阅读(153) 评论(0) 推荐(0) 编辑

ppt_VBA 从word文档提取图片到ppt逐页平铺

摘要：'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 阅读(293) 评论(0) 推荐(0) 编辑