本例为楼主的原创代码，功能为： 1. 自动检测Word文档中的英文单词。 2. 在每个英文单词后边自动加上它的英文音标。 无需安装任何软件，第三方库，纯VBA代码，原码奉送给有需要的你。

'*********************************************************************************** '* 综合性的案例演示程序 - Designed by EXCEL梦想之家 2021-01-19 * '* 原数据 —》标签 —》QR码 —》打印文档—》创建PDF—》发送邮件 * '* 原代码带注释，手把手教学 * '* 具体功能如下： * '* 1. 总表到分表数据的拆分 * '* 2. 使用MicroSoft Barcode控件制作二维码 * '* 3. 打印的分页设置 * '* 4. 工作表导出PDF * '* 5. 创建并发送邮件 * '* 6. 用状态栏做代码执行中的进度提示

字典：是Key+Item的集合。Key是具有唯一性的关键字，Item是关键字所对应的值。 创建字典：Set d = CreateObject("Scripting.Dictionary"), 创建一个名字为D的空字典。 常用方法： d.add"lxlzmh2002", "Excel梦想之家" ： 向d字典添加一条关键字是lxlzmh2002， 值为Excel梦想之家的字典纪录。- 可以简写为： d("lxlzmh2002")="Excel梦想之家" d.Exists("lxlzmh2002"): 检查d字典是否存在关键字为lxlzmh2002的纪录，返回True或False d.Remove("lxlzmh2002"

［单元格］对象的表示方法 表示第一个工作表的A2单元格对象，有三种下面常用的表示方法： 第一种：Sheets(1).Range("A2") - 适合一次性引用，不太适合用变量遍历 第二种：Sheets(1).[A2] - 书写简单，适合一次性引用，不适合遍历 第三种：Sheets(1).Cells(2,1) - 适用于变量改变行列值，用于循环遍历。 ［工作表］对象的表示方法 worksheets("test") : 表示表名为test的工作表对象，可以简写为sheets("test") - 适用已知表名的调用 worksheets(1) : 表上工

亲爱的各位吧友：欢迎来到officevba