我想把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`键即可。