DOCX引号转换器 v1.0.0

jack98

前言：
AI参与编写的程序不算原创，禁止发布原创区，所以来到了这里发布。
首先声明，我不是程序员，全程是AI协助完成的软件。
如果管理员觉得不合适，帮忙删帖。


制作原因：
现在大量AI生成的文本，可能在复制后就变成了英文的半角引号，一个个手动去改太繁琐。
此前为了偷懒，再丢给AI改docx，每次AI要现场写几轮代码，消耗大量的token每次
今天突然灵光一现，论坛没搜到相关作品后，让AI协助我制作了一个。


友情提示：
建议勾选字体，如果忘记了，勾选再跑一次就行。
耗时秒级别，几乎无感。


以下是AI写的说明：内嵌了 Python 运行环境 + docx 处理库 + GUI 库，无需额外安装任何东西，双击即用。
功能特性
   功能          说明
  ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   📂 浏览选择   点击"浏览选择文件"按钮，可多选 .docx 文件

   批量处理      列表里可以累积多个文件，一键全部转换
   字体修复      可勾选"修复中文引号字体"，避免转换后引号变成 Times New Roman（默认使用"宋体"，可修改）
   覆盖保存      转换后直接覆盖原文件，输出在源文件位置
   日志显示      底部有处理日志，显示每个文件替换了几处引号，以及是否引号成对
  ──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
  🛠 如何使用
  1. 双击运行 DOCX引号转换器.exe
  2. 添加文件：点击"浏览选择文件"按钮
  3. （可选）勾选"修复中文引号字体"，防止引号显示为西文字体
  4. 点击 "开始转换（覆盖原文件）"
  5. 处理完成后会弹出提示，原文件已被更新
  ──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
  ⚠️ 注意事项
  仅支持 .docx 格式（Word 2007+），不支持 .doc
  转换会直接覆盖原文件，建议先备份重要文档
  如果文档里原本就有未成对的引号（比如奇数个 "），日志会提示你检查

测试前：

没勾选字体：


勾选字体：


百度
链接: https://pan.baidu.com/s/11wsVHB393mXTvw-CRpCa2A?pwd=2g28

夸克因新规就不放啦
关于优化用户使用网盘链接的公告（2026.04.17更新）
https://www.52pojie.cn/thread-1895207-1-1.html

badog521

Word中批量将英文引号替换为中文引号：

1．在Word选项中，进入“自动套用格式”“键入时自动套用格式”2个选项卡中，取消“直引号替换为弯引号(Q)”。

2．替换中，选定“使用通配符”，输入"(*)"，替换为“\1”（均含引号），选全部替换即可。

badog521

Word中批量将英文标点符号替换为中文标点符号（使用宏命令）：

在宏命令中，生成如下宏，保存后执行（看每段里的替换内容，比如第一个就是把,替换为，也可以自定义其他标点）：

Sub 替换标点()
'
' 替换标点 宏
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ","
        .Replacement.Text = "，"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "("
        .Replacement.Text = "（"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ")"
        .Replacement.Text = "）"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ":"
        .Replacement.Text = "："
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ";"
        .Replacement.Text = "；"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "<"
        .Replacement.Text = "〈"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ">"
        .Replacement.Text = "〉"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

风之暇想

@jack98 请阅读网盘公告，继续持续使用会被禁用 https://www.52pojie.cn/thread-1895207-1-1.html

vipxh

请楼主能否修改一下，支持拖放可以吗？

qiansiyu01

感谢楼主分享

robertclarke

不太明白使用场景，如果在word里直接用查找替换，还是说要批量处理文档用

jack98

风之暇想 发表于 2026-5-3 21:50
@jack98 请阅读网盘公告，继续持续使用会被禁用 https://www.52pojie.cn/thread-1895207-1-1.html

收到，这就下架夸克链接

jack98

vipxh 发表于 2026-5-3 21:52
请楼主能否修改一下，支持拖放可以吗？

本来做了支持拖放的，出现了路径有中文会闪退的问题，所以取消这个功能

jack98

robertclarke 发表于 2026-5-4 09:41
不太明白使用场景，如果在word里直接用查找替换，还是说要批量处理文档用

word直接查找替换会全部变成左引号或者右引号。

我通过分析奇偶来区分左右引号

可以单文件，也可以批量处理

jack98

风之暇想 发表于 2026-5-3 21:50
@jack98 请阅读网盘公告，继续持续使用会被禁用 https://www.52pojie.cn/thread-1895207-1-1.html

大佬，我通读了一下这个新的公告。之前确实没读到这个。

我是按照习惯百度放首位了，夸克放第二位。应该不违法相关规定。

不过大佬提醒了，我现在下架了夸克的链接。

badog521

太复杂了吧，以前有个很简单的操作，批量替换引号