怎样把”、“替换成”、“？

相见是缘8

蜀中草莽 发表于 2024-7-8 11:02
我这里是可以的

蜀中草莽 老师好！

我用的是公司的电脑，因公司的“仓储”软件，与 2003 版的 Office 绑死了，工具栏内，没有你用的选项，只有如图：

相见是缘8

tcdatongye 发表于 2024-7-8 11:21
Sub aa()
Selection.Find.ClearFormatting
    With Selection.Find

Tcdatongye 老师好！
感谢你写的代码！
我这里测试的结果，是：介于两者之间，比查找的宽，比想要替换成的窄，不知有办法修改否？

相见是缘8

zds0616 发表于 2024-7-8 13:01
是这样吗？
1、
2、

zds0616 老师好！
我用的是公司的电脑，因公司的 “仓储” 软件，与 2003 版的 Office 绑死了，工具栏内，没有你用的选项。

蜀中草莽

相见是缘8 发表于 2024-7-8 17:20
蜀中草莽 老师好！我用的是公司的电脑，因公司的“仓储”软件，与 2003 版的 Office 绑死了，工具栏内， ...

03版的  在 格式  更改大小写  里面

zds0616

相见是缘8 发表于 2024-7-8 17:24
zds0616 老师好！
我用的是公司的电脑，因公司的 “仓储” 软件，与 2003 版的 Office 绑死了，工具栏内 ...

额。那没办法。节哀吧。。。

tcdatongye

Sub aa()
Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "、"
        .Forward = True
        .Wrap = wdFindContinue
        Do While .Execute
        Selection.Font.Spacing = -4
        Selection.Previous.Font.Spacing = -2
        Selection.Collapse wdCollapseEnd
        Loop
    End With
End Sub

相见是缘8

蜀中草莽 发表于 2024-7-8 17:48
03版的  在 格式  更改大小写  里面

蜀中草莽 老师好！
找到了，可以了，感谢你指教！

先通过“查找”，让 Word 文档内的 ”、“ 全部处于选中状态，再点 Word 文档左上方的“格式”→“更改大小写”→“全角”即可。

相见是缘8

tcdatongye 发表于 2024-7-9 09:12
Sub aa()
Selection.Find.ClearFormatting
    With Selection.Find

Tcdatongye 老师好！
这个代码，我这里测试的结果，不知怎么会事，还是和你前一个代码差不多：介于两者之间，比查找的宽，比想要替换成的窄。