word查找替换

晨晓之黎 · 发表于 2020-12-29 21:43

大神，帮忙写2个查找替换VBA，谢谢!（有附件）

413191246se · 发表于 2020-12-31 10:00

楼主，附件看了，第一个问题：只有一个示例，将大写字母 I（埃）替换为小写字母 l（皑路）。举例过少，编程没必要，请多举几个例子，才好定夺。第二个问题：替换后的字符怎么打出来的，我尚未知晓，暂无办法。

413191246se · 发表于 2020-12-31 11:01

楼主，你的第二个问题，我没找到要替换的那个字符，但我有个替代解决方案，那就是，将查找的那个字符，转换为全角字符，但看着比较细，将它加粗后，与你想要的那个字符就看着差不多了，如果急用，可以试试下面的宏：

Sub aaaa_Replace_It()
With Selection
.HomeKey 6
With .Find
.ClearFormatting
.Text = Chr(-24075)
.Replacement.Text = ""
.Forward = True
.MatchWildcards = True
Do While .Execute
With .Parent
.Range.CharacterWidth = wdWidthFullWidth
.Font.Bold = True
.Start = .End
End With
Loop
End With
End With
End Sub

复制代码

晨晓之黎 · 发表于 2020-12-31 18:53

本帖最后由晨晓之黎于 2020-12-31 18:56 编辑

413191246se 发表于 2020-12-31 11:01
楼主，你的第二个问题，我没找到要替换的那个字符，但我有个替代解决方案，那就是，将查找的那个字符，转换 ...

鼠标点方框双击就可以查到那个方框，我想要是这个，怎么替换？能不能去掉加粗？

sylun · 发表于 2020-12-31 21:30

晨晓之黎发表于 2020-12-31 18:53
鼠标点方框双击就可以查到那个方框，我想要是这个，怎么替换？能不能去掉加粗？

可试试：

Sub test()
With ActiveDocument.Content.Find
Do While .Execute("^u9633")
With .Parent
.Text = ChrW(163)
.Font.NameOther = "wingdings 2"
.Collapse wdCollapseEnd
End With
Loop
End With
End Sub

复制代码

413191246se · 发表于 2020-12-31 21:55

* 楼主，这回对了，请试试吧！（第一个问题，多举几个例子，至少 3 个。）

Sub aaaa_Replace_It_Now_It_IS_OK()
With Selection
.HomeKey 6
With .Find
.ClearFormatting
.Text = Chr(-24075)
.Replacement.Text = ""
.Forward = True
.MatchWildcards = True
Do While .Execute
With .Parent
.InsertSymbol Font:="Wingdings 2", CharacterNumber:=-3933, Unicode:=True
End With
Loop
End With
End With
End Sub

复制代码

cuanju · 发表于 2021-1-1 11:03

Sub word小方框替换为大方框()
Rem 将小方框□替换成大方框
With ActiveDocument.Content.Find
   .Text = Chr(-24075) '小方框□
      Do While .Execute
         With .Parent
            .Text = ChrW(163) '大方框
            .Font.NameOther = "Wingdings 2"
            '.Font.Color = vbRed
            .Collapse 0
         End With
      Loop
End With
End Sub

晨晓之黎 · 发表于 2021-1-1 12:04

413191246se 发表于 2020-12-31 21:55
* 楼主，这回对了，请试试吧！（第一个问题，多举几个例子，至少 3 个。）

谢谢楼上两位大神！

晨晓之黎 · 发表于 2021-1-1 12:22

413191246se 发表于 2020-12-31 21:55
* 楼主，这回对了，请试试吧！（第一个问题，多举几个例子，至少 3 个。）

你说的第一个问题，多举几个例子，至少 3 个。我这有好几个不同的例子，比如Cl替换CI，IX替换1X，Ibf替换lbf，这3个可以一起替换？

413191246se · 发表于 2021-1-1 13:46

楼主，你这 3 个例子，不具有普遍性啊！VBA程序的最大威力是循环处理，找不到判断依据，如何循环呢？
要不再举一些例子？

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

word查找替换

评分

评分