我已经很多年没有接触VBA了，但我想这就像骑自行车一样。
无论如何，这里有一个潜艇，应该可以帮助你。它基于Cindy Meister的声音建议，并使用可选部分的匹配模式集合填补了Regex和Wildcard Find之间差距。
首先，通配符匹配：$[0-9,]{1,}和$[0-9,]{1,}.[0-9]{2}
其实也没什么不同，不是吗？然而，为了考虑可选的分数部分，我必须使用两种模式。
这是程序

Sub WildcardsHighlightWords()
    Dim Word As Range
    Dim WildcardCollection(2) As String
    Dim Words As Variant
    WildcardCollection(0) = "$[0-9,]{1,}"
    WildcardCollection(1) = "$[0-9,]{1,}.[0-9]{2}"
    Options.DefaultHighlightColorIndex = wdYellow
    'Clear existing formatting and settings in Find
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    'Set highlight to replace setting.
    Selection.Find.Replacement.Highlight = True
    'Cycle through document and find wildcards patterns, highlight words when found
    For Each Word In ActiveDocument.Words
        For Each WildcardsPattern In WildcardCollection
            With Selection.Find
                .Text = WildcardsPattern
                .Replacement.Text = ""
                .Forward = True
                .Wrap = wdFindContinue
                .Format = True
                .MatchCase = False
                .MatchWholeWord = False
                .MatchWildcards = True
                .MatchSoundsLike = False
                .MatchAllWordForms = False
            End With
            Selection.Find.Execute Replace:=wdReplaceAll
        Next
    Next
End Sub

字符串
如果需要的话，应该很容易扩展或修改这种方法。
这highlithts美元数额所需的在我的结束：
x1c 0d1x的数据
注意：量词{n , m}中的分隔符在所有本地化中并不相同，例如在德语版本中是{n ; m}。

**更新26.07.2023：**如果你逐段浏览你的文档，你可以很容易地绕过所有这些问题。但是，这在您的情况下是有效的，因为正则表达式匹配保持在段落边界内！

考虑到这个限制，下面的vba代码将工作：

Sub DollarHighlighter4()
    
    '26.07.2023, works within tables
    Dim RegExp As RegExp
    Dim allMatches As MatchCollection
    Dim wdPar As Paragraph
    Dim rngPar, rngDoc, rngFormat As Range
    Dim i, intA, intB As Integer
    
    Set rngDoc = ActiveDocument.Range
    
    Set RegExp = New RegExp
    RegExp.Pattern = "\$([\,\d{1,3}]*(?:\.\d{2})?)"
    RegExp.Global = True

    For Each wdPar In rngDoc.Paragraphs
        
        Set rngPar = wdPar.Range
        ' Get all matches, within current paragraph
        Set allMatches = RegExp.Execute(rngPar)
        
        ' Highlight all matches, within current paragraph
        For i = allMatches.Count - 1 To 0 Step -1
            intA = allMatches.Item(i).FirstIndex
            intB = intA + allMatches.Item(i).Length
            Set rngPar = wdPar.Range ' Always reset range to whole content
            Set rngFormat = wdPar.Range 'current Paragraph.Range
            ' Adjust text-range to actual regex-match
            ' Character-address refers to current paragraph
            rngFormat.SetRange Start:=rngPar.Characters(intA + 1).Start, _
                End:=rngPar.Characters(intB).End
            ' Perform action to range
            rngFormat.FormattedText.HighlightColorIndex = wdYellow
        Next

    Next wdPar
    
    'Finish
    Set rngFormat = Nothing
    Set rngPar = Nothing
    Set rngDoc = Nothing
    Set RegExp = Nothing
    Set allMatches = Nothing
    
End Sub

字符串
@Allan：应该使用YourVariable.SetRange，这样可以根据字符位置定义范围。
这应该可以工作：

Sub DollarHighlighter3()
Set regExp = New regExp
Dim objMatch As Match
Dim colMatches As MatchCollection
Dim offsetEnd As Long
Dim rngFormat As Range
Dim intA, intB As Integer
regExp.Pattern = "\$([\,\d{1,3}]*(?:\.\d{2})?)"
regExp.Global = True
Set allMatches = regExp.Execute(ActiveDocument.Content)   ' Execute search.
For i = allMatches.Count - 1 To 0 Step -1
    intA = allMatches.Item(i).FirstIndex
    intB = intA + allMatches.Item(i).Length
    Set rngFormat = ActiveDocument.Range
    rngFormat.SetRange Start:=ActiveDocument.Range.Characters(intA).End, _
        End:=ActiveDocument.Range.Characters(intB).End
    rngFormat.FormattedText.HighlightColorIndex = wdYellow
Next
End Sub

型
昨天（2017年7月20日），我遇到了同样的问题：基于正则表达式模式识别文本出现-并将其转换为超链接。
对我有用的是：逆向求解！
regex对象一旦为“SET”，就具有基于原始单词文本的静态索引值。通过插入超链接，文字变得更长。因此，要么在每个文本操作之后重新定义regex对象（问题：如果所插入的超链接本身将获得匹配...）。或者从头到尾解析文档。这可以通过倒计时循环来完成，从最后一个regex出现开始。