VBA 替换表中的所有匹配项（Word）

Question

我在 Word 中有一个表格，在第三行我有“1. Text”，我正在尝试删除点。我知道不用vba也可以，我只是在练习一些简单的东西。

Sub Test()

Dim replacePattern As String
Dim RE As RegExp
Set RE = New RegExp

RE.Pattern = "(^[0-9]).(\s[A-Za-z\s]*)"
RE.Global = True
replacePattern = "$1$2"

Set Matches = RE.Execute(Selection.Text)
For Each Match In Matches
    Selection.Text = RE.Replace(Selection.Text, replacePattern)
Next
End Sub

现在它只替换第一个选定单元格中的文本。我怎样才能正确地做到这一点？

Answer 1

这里的棘手部分是处理表格单元格中的文本。 你现在这样做的方式会删除很多表格信息，你最终会得到一个乱码。
如果你逐个单元格地做，它会更容易：

For Each Table In ActiveDocument.Tables
    For Each Cell In Table.Range.Cells
        Set Matches = RE.Execute(Cell.Range.Text)
        For Each Match In Matches
            Cell.Range.Text = RE.Replace(Cell.Range.Text, replacePattern)
        Next
    Next
Next