我想把word里面的元字左边的数字标记成红色字体，并加粗，请帮我写一段vba代码实现这个功能，注意：数字只能有一个小数点

下面是一段VBA代码，可以将Word文档中的元字左边的数字标记为红色字体并加粗（注意：数字只能有一个小数点）： ``` Sub MarkNumbers() Dim rng As Range Dim i As Long '设置查找范围为整个文档 Set rng = ActiveDocument.Range With rng.Find .ClearFormatting .Text = "<[0-9]*\.?[0-9]+元>" .Forward = True .Wrap = wdFindStop .Format = False .MatchWildcards = True '循环查找所有匹配项 Do While .Execute '将找到的数字标记为红色字体并加粗 rng.Font.ColorIndex = wdRed rng.Font.Bold = True Loop End With End Sub ``` 在这段代码中，我们使用了Word的查找功能来查找文档中的数字。通过设置`.Text`属性为`"<[0-9]*\.?[0-9]+元>"`，我们可以使用通配符来匹配任意一个小数点左边的数字，并且该数字后面跟着“元”字。然后，我们使用`.Execute`方法来执行查找操作，并在每次找到匹配项时将其标记为红色字体并加粗。 要运行这段代码，只需打开Word文档，按下`Alt + F11`打开VBA编辑器，将代码复制粘贴到新模块中，然后按下`F5`键即可。