在word里，对一句话里（逗号为一句话）没有数字或者数字为0.0的则删除

过客fppt

sunfei00426 发表于 2024-4-14 08:53
不仅是你标红的地方，还有没有数字的地方，请你仔细看一下，有些行业比如“建筑业增加亿元”这句话里也没 ...

根据你的描述，并且你自己没有做模拟结果，所以一开始我弄的是：删除没有数字并且有空格的一句话

后面觉得不太对，所以修正了：删除任意以[，；。]结束，不包含数字的句子
结果在你的另一个同样求助帖的15楼中，请前往核对

小花鹿

我找到的和冬瓜老师一样，也是460个
Sub test()
    Dim i&, n&, ED&
    With ActiveDocument.Range
        .End = .Start
        Do
            ED = .MoveStartUntil("元")
            If ED = 0 Then Exit Do
            .MoveStartUntil "；;，,元", wdBackward
            If (.Text Like "*[1-9]*") = 0 Then
                .End = .End + 1
                .Font.ColorIndex = wdRed
                n = n + 1
            End If
            .Start = .End + 1
        Loop
    End With
    MsgBox n
End Sub

sunfei00426

小花鹿 发表于 2024-4-14 10:39
我找到的和冬瓜老师一样，也是460个
Sub test()
    Dim i&, n&, ED&

感谢大神的指导，今天的小花花送完了，明天送哈，非常感谢