多个 Word 文件名前后缀批量添加页数

一键标注文档页数，更直观更专业

在日常办公中，经常会遇到这样的情况：

• 文件夹里几十个 Word 文档，不知道哪个是几页

• 发送资料时，希望在文件名里直接标注页数

• 投标文件、报告汇总时需要体现文档体量

• 一个个打开查看页数再手动改名，太浪费时间

尤其是文档数量一多，
逐个打开 → 查看页数 → 重命名，
不仅效率低，还容易改错。

现在，只需一套 VBA 工具，就能实现：

自动读取每个 Word 文档的真实页数，并批量在文件名前或后添加“xx页”标识。

一次选择文件夹，全部自动完成。

---

功能说明

✔ 批量处理整个文件夹内的 Word 文档
自动扫描文件夹内所有 Word 文件，无需逐个打开。

✔ 自动读取真实页数
程序直接读取每个文档的实际页数，准确无误。

✔ 支持前缀 / 后缀两种命名方式
运行时可自由选择：

• 在文件名前添加页数

• 在文件名后添加页数

✔ 一键批量重命名
可处理几十、上百个文档，几秒完成。

✔ 不修改文档内容
仅修改文件名，不会对文档内部内容造成任何影响。

---

使用步骤（仅需四步）

1️⃣ 打开一个空白 Word

2️⃣ 按 Alt + F11 打开 VBA 编辑器

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

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

---

接着按提示完成：

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

• 选择 添加前缀还是后缀

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

---

命名规则

• 若选择“前缀”：
  文件名将变为 → [xx页]原文件名.docx

• 若选择“后缀”：
  文件名将变为 → 原文件名_xx页.docx

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

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