【办公自动化—PPT篇5】多个PPT文件名前后缀批量添加页数

在日常工作中，经常会遇到这样的情况：

• PPT 文件很多，却不知道每个文件到底有多少页

• 发资料给别人时，希望在文件名里直接标注页数，方便判断内容量

• 一个个打开查看再手动改名，效率低还容易出错

• 文件一多，根本没时间逐个处理

现在，只需 一套 VBA 工具，就能实现：
自动读取 PPT 的实际页数，并批量在文件名前或后添加“xx页”标识，
几秒钟完成整个文件夹的重命名。

功能说明

✔ 批量处理整个文件夹内的 PPT
一次选择文件夹，自动识别其中所有 PPT 文件，无需逐个打开。

✔ 自动读取真实页数
程序会直接读取每个 PPT 的幻灯片数量，
无需人工核对，准确可靠。

✔ 支持前缀 / 后缀两种命名方式
可根据个人习惯自由选择：

• 在文件名前添加页数

• 在文件名后添加页数

✔ 一键完成重命名
处理过程全自动，几秒即可完成上百个文件的页数标注。

✔ 不影响 PPT 内容
只修改文件名，不会对 PPT 内部任何内容做改动。

使用步骤（仅需四步）

1️⃣ 查看下图操作流程，如需视频讲解可查看各大平台账号：技已成舟

2️⃣ 打开一个空白 Word，按 Alt + F11 打开 VBA 编辑器

3️⃣ 菜单栏点击：插入 → 模块

4️⃣ 粘贴代码后按 F5 运行宏

接着按提示完成：

• 选择 包含 PPT 文件的文件夹

• 选择 添加前缀还是后缀

程序将自动读取每个 PPT 的页数，
并批量完成文件名修改。

具体代码公众号回复：PPT页数获取