细的中间点替换成粗的中间点

yuanfuyong · 发表于 2020-8-11 09:39

本帖最后由 yuanfuyong 于 2020-8-11 09:44 编辑

如图，如果通过word直接替换，word不能识别粗细，导致无法替换呢，
还请各位老师帮我实现上面的替换，谢谢了。

daibao88 · 发表于 2020-8-11 14:10

你用的是假的Word的吧，直接查找替换就行

cuanju · 发表于 2020-8-11 14:21

Sub dm1()
With ActiveDocument.Content.Find
      .ClearFormatting
      .Font.Name = "微软雅黑"
      .MatchWildcards = True
      .Text = "·"
      With .Replacement
         .ClearFormatting
         .Font.Name = "新宋体"
      End With
      .Execute Format:=True, Replace:=wdReplaceAll
End With
End Sub

413191246se · 发表于 2020-8-11 19:46

本帖最后由 413191246se 于 2020-8-11 20:03 编辑

daibao88老师、cuanju老师，你们两位认为是一样的符号，但我认为不对。
因为，楼主要替换的是半角替换为半角，而代码所呈现的是全角。看我的：

Sub aaaa小圆点变大圆点()
'小圆点是：CharacterNumber:=183, Unicode:=True/chr(-24156)/设置为“新宋体”后是全角
'大圆点是：CharacterNumber:=8226, Unicode:=True不是同一个符号/设置为“新宋体”后仍是半角
With ActiveDocument.Content.Find
.ClearFormatting
.Text = Chr(-24156)
.Forward = True
.MatchWildcards = True
Do While .Execute
With .Parent
.Font.Color = wdColorRed
.InsertSymbol Font:="新宋体", CharacterNumber:=8226, Unicode:=True
End With
Loop
End With
End Sub

复制代码

413191246se · 发表于 2020-8-11 20:05

再发一遍：daibao 老师和 cuanju 老师都认为是同一种符号，其实不是，请看下面代码：

Sub aaaa小圆点变大圆点()
'小圆点是：CharacterNumber:=183, Unicode:=True/chr(-24156)/设置为“新宋体”后是全角
'大圆点是：CharacterNumber:=8226, Unicode:=True不是同一个符号/设置为“新宋体”后仍是半角
With ActiveDocument.Content.Find
.ClearFormatting
.Text = Chr(-24156)
.Forward = True
.MatchWildcards = True
Do While .Execute
With .Parent
.Font.Color = wdColorRed
.InsertSymbol Font:="新宋体", CharacterNumber:=8226, Unicode:=True
End With
Loop
End With
End Sub

复制代码

yuanfuyong · 发表于 2020-8-12 09:53

我确实直接替换，放进去是一样的呢？感谢各位老师的精彩解答

yuanfuyong · 发表于 2020-8-12 10:01

413191246se 发表于 2020-8-11 20:05
再发一遍：daibao 老师和 cuanju 老师都认为是同一种符号，其实不是，请看下面代码：

谢谢老师辛苦写代码，帮我解决了我的问题。

413191246se · 发表于 2020-8-12 11:40

本帖最后由 413191246se 于 2020-8-12 11:43 编辑

楼主，你注意到没有，你的附件，前后两者都是半角，而像 daibao/cuanju 两位老师说的，替换后变成了全角，这怎么解释？

413191246se · 发表于 2020-8-12 13:57

楼主，将小细圆点设置为“新宋体”后，它是全角的字符了；而与你要求的大圆点半角字符不是一个。
而用我的宏，就能正确变为半角。

yuanfuyong · 发表于 2020-9-1 11:02

413191246se 发表于 2020-8-12 13:57
楼主，将小细圆点设置为“新宋体”后，它是全角的字符了；而与你要求的大圆点半角字符不是一个。
而用我的 ...

413191246se老师，不好意思，这么晚才看到你的消息，我就是采用您的宏了，感谢

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

[求助] 细的中间点替换成粗的中间点

评分

评分