Question

WORD VBA: 查找字符并选择整个格子

你好，谢谢你的回答。还有一个问题，用你的方案只把一个表格中的第一个格子处理了，这个表格其它格子没有处理。

还有就是我想把选中格子应用"引用"的格式。
谢谢！





Answer 1

这个应该完全满足要求了吧。

Sub TEST()
Dim MyTable As Table, MyRng As Cell
For Each MyTable In ThisDocument.Tables
    For Each MyRng In MyTable.Range.Cells
        With MyRng.Range.Find
            .Text = "RRDD-ST"
            .Execute
            If .Found Then
                MyRng.Range.Style = ActiveDocument.Styles("引用")
            End If
        End With
    Next MyRng
Next MyTable
End Sub

Answer 2

更正日日日满足于吱声