WORD值替换为空

sc204400

目的是想通过VBA一次性将WORD表格内的0或0.00的值删除留空，下列是代码提示成员示找到，是那方里不对？
Sub text()
Dim aTable As Table, aCell As Cell
Application.ScreenUpdating = False
With ActiveDocument
For Each aTable In .Tables
For Each aCell In aTable.Range.Cells
If (aCell.Range.Text) = "0" Or "0.00" Then Range.Replace.Text = ""
Next
Next
End With
Application.ScreenUpdating = True
End Sub

zhanglei1371

Sub text() Dim aTable As Table, aCell As Cell Application.ScreenUpdating = False     With ActiveDocument         For Each aTable In .Tables             For Each aCell In aTable.Range.Cells                 If (aCell.Range.text) = "0" & Chr(13) & Chr(7) Or aCell.Range.text = "0.00" & Chr(13) & Chr(7) Then aCell.Range.text = ""             Next         Next     End With Application.ScreenUpdating = True End Sub

sc204400

zhanglei1371 发表于 2022-5-10 16:00
Sub text() Dim aTable As Table, aCell As Cell Application.ScreenUpdating = False     With ActiveDocu ...

多谢，解决了问题