word如何修改数据表,数据表,修改

1.word表格怎么修改数据

Sub shux()

Dim Rng As Range, Shu As Double

Set Rng = ActiveDocument.Content

With Rng.Find

.ClearFormatting

.Replacement.ClearFormatting

.MatchWildcards = True

Do While .Execute(findtext:="[0-9.-]{1，}") '包括小数和负数

MsgBox Rng

If VBA.IsNumeric(Rng) Then

Shu = Replace(Rng, Rng, Rng + 50)

Rng = Shu

End If

Rng.SetRange Rng.End, ActiveDocument.Content.End

Loop

End With

End Sub