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

相见是缘8 · 发表于 2024-7-8 06:53

本帖最后由相见是缘8 于 2024-7-8 16:43 编辑

各位老师好！

这个在“查找替换框”内，替换后，还是会变成较宽的 ”、“

详见：附件。

求那位老师指教，多谢！

zds0616 · 发表于 2024-7-8 08:54

这个应该是设置段落属性来处理的吧，和中文字符宽度有关的。

zds0616 · 发表于 2024-7-8 08:56

本帖最后由 zds0616 于 2024-7-8 12:56 编辑

或者可以批量选择“、”然后调整字体缩放比例

改一下，是调整字符间距。

蜀中草莽 · 发表于 2024-7-8 09:03

先选中 ”、
然后选中 ”
切换全半角

相见是缘8 · 发表于 2024-7-8 10:43

蜀中草莽发表于 2024-7-8 09:03
先选中 ”、
然后选中 ”
切换全半角

蜀中草莽老师好！
你那里可以吗？我这里好像不成，还请详教！

相见是缘8 · 发表于 2024-7-8 10:52

zds0616 发表于 2024-7-8 08:56
或者可以批量选择“、”然后调整字体缩放比例

zds0616 老师好！
我想先用 “查找替换” 的方法，看有不有那位老师能解决，如万一不成，再用你教的方法。多谢！

蜀中草莽 · 发表于 2024-7-8 11:02

相见是缘8 发表于 2024-7-8 10:43
蜀中草莽老师好！
你那里可以吗？我这里好像不成，还请详教！

我这里是可以的

tcdatongye · 发表于 2024-7-8 11:21

相见是缘8 发表于 2024-7-8 10:52
zds0616 老师好！
我想先用 “查找替换” 的方法，看有不有那位老师能解决，如万一不成，再用你教的方法 ...

Sub aa()
Selection.Find.ClearFormatting
With Selection.Find
      .Text = "、"
      .Forward = True
      .Wrap = wdFindContinue
      Do While .Execute
      Selection.Range.CharacterWidth = wdWidthHalfWidth
      Selection.Collapse wdCollapseEnd
      Loop
End With
End Sub

zds0616 · 发表于 2024-7-8 12:54

蜀中草莽发表于 2024-7-8 09:03
先选中 ”、
然后选中 ”
切换全半角

他应该是要缩小字符宽度，切换全半角的话字符都变了。

zds0616 · 发表于 2024-7-8 13:01

本帖最后由 zds0616 于 2024-7-8 13:12 编辑

是这样吗？
1、

2、

3、

4、

5、

		自动登录	找回密码
密码			免费注册

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

评分