-word宏编辑,word宏编程

我简化了代复码，可制以将所有百的度2变成下标。你知试试：道

sub 改下标_by_zzllrr()
Set myRange = ActiveDocument.Range(Start:=0, End:=0)
With myRange.Find
.ClearFormatting
.Text = "2"
With .Replacement
.ClearFormatting
.Text = "2"
.Font.Subscript = True
End With
.Execute Replace:=wdReplaceAll
End With
end sub