使用VBA格式化Word文档中所有波浪线的问题求助

你的代码遗漏第一个波浪线的原因很明确：在进入循环前，你先执行了一次.Execute FindText:="~"，这一步已经定位到第一个波浪线，但你没有对它应用样式，紧接着循环里的.Execute直接查找下一个匹配项，导致第一个实例被跳过。

修复后的代码 #

Sub FormatTilde()
    '显式声明变量，避免隐式类型问题
    Dim TildeStyle As Style
    Set TildeStyle = ActiveDocument.Styles("Approx")
    
    '定位到文档开头
    Selection.HomeKey Unit:=wdStory
    
    With Selection.Find
        .Forward = True
        .ClearFormatting
        .MatchWholeWord = False
        .MatchCase = False
        .Wrap = wdFindContinue
        .FindText = "~" '提前设置查找文本
        
        '循环查找并应用样式，第一次Execute就会定位到第一个波浪线
        Do While .Execute = True
            Selection.Style = TildeStyle
        Loop
    End With
End Sub

关键修改点 #

1. 移除了循环前单独的.Execute FindText:="~"调用，让循环的第一次.Execute直接从文档开头开始查找第一个匹配项
2. 把.FindText = "~"提前设置，让查找配置更清晰
3. 增加了Dim TildeStyle As Style的显式变量声明，符合VBA编码规范，避免潜在的类型错误

这样修改后，所有波浪线都会被正确找到并应用"Approx"样式，包括第一个实例。

内容的提问来源于stack exchange，提问作者RankkaApina