word 中用VBA 如何完成下划线替换

makou · 发表于 2023-8-8 14:16

本帖最后由 makou 于 2023-8-8 17:05 编辑

在word中将

替换成：“单位：元” 执行以下代码无效，望修改，谢谢！

Sub replace()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Font.Underline = wdUnderlineSingle
With Selection.Find
      .Text = "单位： "
      .Replacement.Text = "单位：元"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .MatchCase = False
      .MatchWholeWord = False
      .MatchByte = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
End With
Selection.Find.Execute replace:=wdReplaceAll
   MsgBox (" " & "金额单位已改为元")
End Sub

zhanglei1371 · 发表于 2023-8-8 15:31

录个宏，查找的部分加一句：.underline=true

makou · 发表于 2023-8-8 15:50

zhanglei1371 发表于 2023-8-8 15:31
录个宏，查找的部分加一句：.underline=true

还是不行

batmanbbs · 发表于 2023-8-8 16:55

这样查找肯定是查找不到的，上个样本吧，另外说明一下文档中还有其他下划线没有

batmanbbs · 发表于 2023-8-8 19:42

本帖最后由 batmanbbs 于 2023-8-8 20:31 编辑

其实，如果就这个需求完全没有必要编写VBA，直接查找替换即可。

wdpfox · 发表于 2023-8-11 21:19

本帖最后由 wdpfox 于 2023-8-11 21:21 编辑

你“单位：”的是没有下划线的，所以查不到；把查找、替换中“单位：”删掉。

batmanbbs · 发表于 2023-8-11 21:54

wdpfox 发表于 2023-8-11 21:19
你“单位：”的是没有下划线的，所以查不到；把查找、替换中“单位：”删掉。

不行啊，不光单位，其他地方也有下划线，所以不用识别下划线，直接识别^13单位：（空格）来直接替换

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

[求助] word 中用VBA 如何完成下划线替换