Word中英文引号替换为中文

Sub ReplaceEnglishQuotesWithChinese()

Dim rng As Range

Dim doubleQuoteOpen As Boolean

Dim singleQuoteOpen As Boolean

Set rng = ActiveDocument.Content

doubleQuoteOpen = True

singleQuoteOpen = True

With rng.Find

.ClearFormatting

.MatchWildcards = False

.Forward = True

.Wrap = wdFindStop

.Format = False

.MatchCase = False

.MatchWholeWord = False

' 替换英文双引号

Do While rng.Find.Execute(FindText:="""", Replace:=wdReplaceNone)

If doubleQuoteOpen Then

rng.Text = """

Else

rng.Text = """

End If

doubleQuoteOpen = Not doubleQuoteOpen

rng.Collapse wdCollapseEnd

Loop

' 重设范围

Set rng = ActiveDocument.Content

' 替换英文单引号

Do While rng.Find.Execute(FindText:="'", Replace:=wdReplaceNone)

If singleQuoteOpen Then

rng.Text = "'"

Else

rng.Text = "'"

End If

singleQuoteOpen = Not singleQuoteOpen

rng.Collapse wdCollapseEnd

Loop

End With

MsgBox "英文引号已替换为中文引号!"

End Sub

  • 打开 Word;

  • 按下 Alt + F11 打开 VBA 编辑器

  • 菜单栏 → 插入模块

  • 将上面的代码粘贴进去;

  • 关闭编辑器;

  • 在 Word 中按 Alt + F8

  • 选择 ReplaceEnglishQuotesWithChinese → 点击"运行"

相关推荐
wh39331 小时前
使用Python将PDF转换成word、PPT
python·pdf·word
bu_shuo2 天前
word表格中使用公式
word·表格
不坑老师2 天前
利用不坑盒子的Copilot,快速排值班表
microsoft·word·powerpoint·excel·copilot·wps
开开心心就好2 天前
批量PDF转换工具,一键转换Word Excel
开发语言·前端·学习·pdf·电脑·word·excel
RainSerein3 天前
Laravel8中使用phpword生成word文档
word·php·laravel
qq_393828223 天前
办公文档批量打印器 Word、PPT、Excel、PDF、图片和文本,它都支持批量打印。
windows·word·powerpoint·excel·软件需求
_oP_i13 天前
实现 “WebView2 获取word选中内容
开发语言·c#·word
LENG_Lingliang13 天前
word出现由WPS切换后公式异常无法删除的情况处理
word·wps·mathtype
贤和兄13 天前
使用docx4j 实现word转pdf(linux乱码处理)
linux·pdf·word
开开心心就好14 天前
高效批量转换Word到PDF的方法
javascript·安全·智能手机·pdf·word·objective-c·lisp