├── README.md ├── VBA Script ├── 保存文档所有图片.vba ├── 公文自动排版.vba ├── 删除页眉页脚.vba ├── 图片批量加边框.vba ├── 复制文件本地路径.vba ├── 复制文件路径并打开微信.vba ├── 多文档内容替换.vba ├── 多文档批量打印.vba ├── 多文档转PDF.vba ├── 姓名对齐.vba ├── 所选内容纵横页转换.vba ├── 手写体(需提前安装字体).vba ├── 打印文档中的所有书签.vba ├── 批量doc转docx.vba ├── 批量调整图片大小.vba ├── 指定页面纵横转换.vba ├── 按分节符拆分文档.vba ├── 按所选内容存为新文档.vba ├── 按页拆分文档.vba ├── 提取Excel内容到word.vba ├── 插入图片生成PDF.vba ├── 数字转为人民币.vba ├── 文字加拼音.vba ├── 文本框转文字.vba ├── 桌签标牌制作.vba ├── 每页批量盖章.vba ├── 生成乘法口诀表.vba ├── 用所选文字保存文件名.vba ├── 移除xls写保护.vba └── 自动打印序列号.vba ├── VBA指南.md └── img ├── a1.png ├── a3.png ├── a6.png ├── q1.png ├── q3.png ├── q5.png ├── q6.png └── test.md /README.md: -------------------------------------------------------------------------------- 1 | ## 小恐龙公文排版助手 for Word/WPS 2 | 3 | 官网地址: [https://xkonglong.com](https://xkonglong.com) 4 | 5 | ![小恐龙公文排版助手](https://gw.xkonglong.com/img/xklbanner.jpg) 6 | 7 | 根据《党政机关公文格式国家标准》(GB/T 9704—2012)的格式要求，快速设置页面版式、快速设置常用文字格式、插入常用符号、版头、版记、公文页码、红线等。 8 | 9 | 支持对文字的快速排版，中文首行缩进2字符、删除空白，断句重排等。 10 | 11 | 支持对文档盖章、可以在文档同目录下生成 PDF/ doc /图片 格式的副本。 12 | 13 | 可广泛用于各类规范文本的排版。 14 | 15 | 插件支持 VBA 脚本,可以在此处`VBA Script`文件夹查看和下载vba脚本, 也可到 [VBA脚本讨论组](https://github.com/xkonglong/gw/discussions) 16 | VBA 脚本可以实现自动排版等复杂的且个性化的操作. 17 | ![vba](https://gw.xkonglong.com/img/screenshots.gif) 18 | 19 | 点此查看 [VBA指南](VBA指南.md) 20 | 21 | 本插件完全免费，承诺不含任何恶意代码。 22 | 23 | 24 | -------------------------------------------------------------------------------- /VBA Script/保存文档所有图片.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/保存文档所有图片.vba -------------------------------------------------------------------------------- /VBA Script/公文自动排版.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/公文自动排版.vba -------------------------------------------------------------------------------- /VBA Script/删除页眉页脚.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/删除页眉页脚.vba -------------------------------------------------------------------------------- /VBA Script/图片批量加边框.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/图片批量加边框.vba -------------------------------------------------------------------------------- /VBA Script/复制文件本地路径.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/复制文件本地路径.vba -------------------------------------------------------------------------------- /VBA Script/复制文件路径并打开微信.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/复制文件路径并打开微信.vba -------------------------------------------------------------------------------- /VBA Script/多文档内容替换.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/多文档内容替换.vba -------------------------------------------------------------------------------- /VBA Script/多文档批量打印.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/多文档批量打印.vba -------------------------------------------------------------------------------- /VBA Script/多文档转PDF.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/多文档转PDF.vba -------------------------------------------------------------------------------- /VBA Script/姓名对齐.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/姓名对齐.vba -------------------------------------------------------------------------------- /VBA Script/所选内容纵横页转换.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/所选内容纵横页转换.vba -------------------------------------------------------------------------------- /VBA Script/手写体(需提前安装字体).vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/手写体(需提前安装字体).vba -------------------------------------------------------------------------------- /VBA Script/打印文档中的所有书签.vba: -------------------------------------------------------------------------------- 1 | '==================================================================== 2 | ' 使用说明: 3 | '制作 VBA 文件时, 请只保留一个Sub 用于执行, 其他过程请用 Function 关键字。 4 | 'Sub 过程名推荐用 用户ID_中文名称 的方式命名,避免代码冲突。 5 | 'VBA 文件请使用ANSI(简体中文GB2312)编码保存, 微软的VBA解释器不支持UTF-8这类编码,会导致中文乱码。 6 | '不正确的代码可能导致word崩溃、文档丢失或损坏。 7 | '请务必保证vba代码来源安全可靠，插件作者不承担vba文件造成的任何损失！ 8 | '分享 VBA 文件时，请尊重作者版权，注明来源以示感谢。 9 | '==================================================================== 10 | '原作者: Extendoffice 11 | '修改: 小恐龙 12 | 13 | 14 | 15 | Sub ExtractBookmarksInADoc() 16 | 17 | Dim xRow As Long 18 | Dim xTable As Table 19 | Dim xDoc As Document 20 | Dim xBookMark As Bookmark 21 | Dim xBookMarkDoc As Document 22 | Dim xParagraph As Paragraph 23 | On Error Resume Next 24 | Set xDoc = ActiveDocument 25 | If xDoc.Bookmarks.Count = 0 Then 26 | MsgBox "文档中没有书签", vbInformation, "VBA脚本:打印书签" 27 | Exit Sub 28 | End If 29 | Set xBookMarkDoc = Documents.Add 30 | xRow = 1 31 | Selection.TypeText "书签在 " & "'" & xDoc.Name & "'" 32 | Set xTable = Selection.Tables.Add(Selection.Range, 1, 3) 33 | xTable.Borders.Enable = True 34 | With xTable 35 | .Cell(xRow, 1).Range.Text = "名称" 36 | .Cell(xRow, 2).Range.Text = "文字" 37 | .Cell(xRow, 3).Range.Text = "页码" 38 | For Each xBookMark In xDoc.Bookmarks 39 | xTable.Rows.Add 40 | xRow = xRow + 1 41 | .Cell(xRow, 1).Range.Text = xBookMark.Name 42 | .Cell(xRow, 2).Range.Text = xBookMark.Range.Text 43 | .Cell(xRow, 3).Range.Text = xBookMark.Range.Information(wdActiveEndAdjustedPageNumber) 44 | xDoc.Hyperlinks.Add Anchor:=.Cell(xRow, 3).Range, Address:=xDoc.Name, _ 45 | SubAddress:=xBookMark.Name, TextToDisplay:=.Cell(xRow, 3).Range.Text 46 | Next 47 | End With 48 | xBookMarkDoc.SaveAs xDoc.Path & "\" & "书签在 " & xDoc.Name 49 | xBookMarkDoc.PrintOut 50 | xBookMarkDoc.Close 51 | Kill xBookMarkDoc.Path 52 | End Sub -------------------------------------------------------------------------------- /VBA Script/批量doc转docx.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/批量doc转docx.vba -------------------------------------------------------------------------------- /VBA Script/批量调整图片大小.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/批量调整图片大小.vba -------------------------------------------------------------------------------- /VBA Script/指定页面纵横转换.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/指定页面纵横转换.vba -------------------------------------------------------------------------------- /VBA Script/按分节符拆分文档.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/按分节符拆分文档.vba -------------------------------------------------------------------------------- /VBA Script/按所选内容存为新文档.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/按所选内容存为新文档.vba -------------------------------------------------------------------------------- /VBA Script/按页拆分文档.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/按页拆分文档.vba -------------------------------------------------------------------------------- /VBA Script/提取Excel内容到word.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/提取Excel内容到word.vba -------------------------------------------------------------------------------- /VBA Script/插入图片生成PDF.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/插入图片生成PDF.vba -------------------------------------------------------------------------------- /VBA Script/数字转为人民币.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/数字转为人民币.vba -------------------------------------------------------------------------------- /VBA Script/文字加拼音.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/文字加拼音.vba -------------------------------------------------------------------------------- /VBA Script/文本框转文字.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/文本框转文字.vba -------------------------------------------------------------------------------- /VBA Script/桌签标牌制作.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/桌签标牌制作.vba -------------------------------------------------------------------------------- /VBA Script/每页批量盖章.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/每页批量盖章.vba -------------------------------------------------------------------------------- /VBA Script/生成乘法口诀表.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/生成乘法口诀表.vba -------------------------------------------------------------------------------- /VBA Script/用所选文字保存文件名.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/用所选文字保存文件名.vba -------------------------------------------------------------------------------- /VBA Script/移除xls写保护.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/移除xls写保护.vba -------------------------------------------------------------------------------- /VBA Script/自动打印序列号.vba: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/VBA Script/自动打印序列号.vba -------------------------------------------------------------------------------- /VBA指南.md: -------------------------------------------------------------------------------- 1 | # 小恐龙公文排版助手VBA脚本操作指南 2 | 3 | ## 一、VBA功能能做什么？ 4 | 5 | 尽管公文排版助手已经提供了大量的排版功能，但是具体到每个用户，往往众口难调。若插件本身集成大量繁杂的功能，不仅会影响运行速度，还可能增加更多bug，逐渐变得臃肿，这并不符合“小而美”的思想。 6 | ##### （一）实现更多功能，满足更多需求，比如《公文自动排版》、《多脚本批量修改》、《图片批量调整》…… 7 | ##### （二）即用即走，文档不保存VBA代码，不占空间，减少安全隐患； 8 | ##### （三）VBA代码可见，可自由修改，保存和分享。 9 | 10 | ## 二、VBA脚本使用篇 11 | ### （一）使用方法： 12 | ##### 第一步：先保存文档。（避免错误的VBA脚本造成损失） 13 | ##### 第二步：点击“运行VBA”按钮，在打开脚本对话框里，选择一个合适的VBA脚本即可。 14 | ##### 第三步：部分VBA会有交互操作，按照提示进行。 15 | 16 | ### （二）注意事项： 17 | VBA脚本的后缀名通常为.vba或者.bas。 18 | 19 | 一般来说.vba是专用于本插件的脚本，.bas则是Word Visual Basic编辑器导出的脚本。 20 | 21 | 它们都可以执行，但是.bas并不是专为插件服务，有可能存在一些bug或兼容性问题，需要代码制作者略作修改。 22 | 23 | 注意：请务必保证VBA代码安全可靠，插件作者不承担VBA脚本造成的任何损失！ 24 | 25 | 您可将VBA脚本上传到https://www.virscan.org/进行病毒检验。 26 |   27 | ### （三）常见问题： 28 | #### 问题一:VB Project访问不被信任 29 | 30 | ![q1](img/q1.png) 31 | 32 | 解决方法：您可以按下图开启选项： 33 | 34 | ![a1](img/a1.png) 35 | 36 | + 勾选“禁用所有宏，并发出通知”（保障安全性） 37 | 38 | + 勾选“信任对VBA工程对象模型的访问”，（开启本功能） 39 |   40 | #### 问题二：无法执行指定的宏 41 | 通常情况下，是所选的.vba脚本有bug，导致其无法执行。 42 | 43 | 您可以联系代码作者或分享人，也可以用记事本自行查看该脚本。 44 | 45 | #### 问题三：所选脚本非ANSI编码 46 | 47 | ![q3](img/q3.png) 48 | 49 | 解决方法： 50 | 51 | 记事本另存时选择ANSI编码即可，其他编辑器可选为简体中文GB2312(代码页936)。 52 | 53 | ![a3](img/a3.png) 54 | 55 | #### 问题四：异常来自HRESULT:0x800A802D的错误提示 56 | 运行错误的VBA代码导致Word解释器出错，在当前文档残留有执行失败的模块脚本。 57 | 58 | 解决方法：点击 代码清理 按钮即可。 59 | 60 | #### 问题五：代码陷入死循环导致Word停止响应。 61 | 62 | 先尝试按Ctrl+Break中断执行，若无法中断，解决方法如下： 63 | 64 | ##### 第一步：关闭并重启Word。 65 | ##### 第二步：遇到下图对话框，千万记得点“否”： 66 | 67 | ![q5](img/q5.png) 68 | 69 | ##### 第三步：通常Word会提示恢复未保存的文档。 70 | 71 | 如果提示有未启用的宏，清理VBA代码后保存即可。 72 | 73 | ##### 第四步：然后核实检查VBA代码是否兼容插件或存在Bug不，具体可参见下“VBA脚本制作篇”。 74 | 75 | #### 问题六：WPS运行时出错 76 | 77 | ![q6](img/q6.png) 78 | 79 | 解决办法： 80 | 81 | ##### 第一步:开发工具->切换到VB环境 82 | 83 | [免费切换VB环境的方法](https://www.bilibili.com/video/BV19y4y1X7DE/) 84 | 85 | ##### 第二步: WPS 选项 -> 信任中心-> 宏安全性 -> 可靠发行商勾选“信任对于VB项目的访问”  86 | 87 | ## 三、VBA脚本制作篇 88 | ### （一）获取VBA脚本最常用的方法 89 | + 找个AI网站,比如通义千问,让它帮你写一个Word VBA脚本，复制到记事本，存为` xxx.vba`即可。 90 | + 使用Word宏功能来录制你的操作,然后编辑宏代码,导出为`.bas`脚本。 91 | 92 | ** 经过调试验证后的代码脚本，建议保存为.vba再分享。** 93 | 94 | ### （二）制作VBA需要注意的问题 95 | * 一个VBA只做一件事，制作VBA脚本时,请只保留一个`Sub……End Sub`代码块用于执行,其他调用过程改用`Function`关键字。 96 | * VBA脚本请使用`ANSI(简体中文GB2312)`编码保存,Word VBA不支持`UTF-8`这类编码,会导致中文乱码。 97 | * 不正确的代码可能导致Word崩溃、文档丢失或损坏，请勿故意制作和传播具有破坏性的VBA脚本，否则可能触犯刑法第285和286条。 98 | * 分享或复制VBA代码时，请尊重作者版权，注明来源，保留注释。 99 | -------------------------------------------------------------------------------- /img/a1.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/img/a1.png -------------------------------------------------------------------------------- /img/a3.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/img/a3.png -------------------------------------------------------------------------------- /img/a6.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/img/a6.png -------------------------------------------------------------------------------- /img/q1.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/img/q1.png -------------------------------------------------------------------------------- /img/q3.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/img/q3.png -------------------------------------------------------------------------------- /img/q5.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/img/q5.png -------------------------------------------------------------------------------- /img/q6.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/xkonglong/gw/13de962ea6b7f6486dabd2197f6378bede06ee3d/img/q6.png -------------------------------------------------------------------------------- /img/test.md: -------------------------------------------------------------------------------- 1 | 11111111 2 | --------------------------------------------------------------------------------