Sub PDF防复制设置提示() Dim msg As String msg = "【终极防复制：PDF禁止复制（防截图OCR）设置步骤】" vbCrLf vbCrLf _ "1. 先将当前 Word 文档手动导出为 PDF 文件" vbCrLf _ "2. 用 Adobe Acrobat 打开该 PDF" vbCrLf _ "3. 点击【工具】→【保护】" vbCrLf _ "4. 选择【加密】→【用密码加密】" vbCrLf _ "5. 勾选【限制编辑和打印】，设置权限密码" vbCrLf _ "6. 【内容复制】选择【不允许复制】" vbCrLf _ "7. 确定保存，完成防复制设置" vbCrLf vbCrLf _ "说明：此设置可禁止文本复制，增强防 OCR 效果。" ' 弹出提示框 MsgBox msg, vbInformation, "PDF防复制设置指引" End SubVBA 如何变成加载项（永久可用）VBA 如何转成 VSTO 插件（独立安装、不依赖文档）一、VBA 变成【Excel 加载项】（永久生效）作用把VBA 代码变成Excel 启动就自动加载的插件，任何工作簿都能用。3 步完成1. 新建空白 Excel，按 Alt + F11 插入模块，粘贴你的 VBA 代