用于搜索/替换表的Word VBA

Question

总之，2010年的文档中有30+表，有些只有文本，其余的只有财务表。我需要用一个表格占位符来代替所有的财务表。如何使用VBA只选择财务表？我想我可以在两个相邻的单元格中搜索数字(整数)，选择表，删除它并用文本占位符替换它，然后继续查找下一个财务表？请帮帮忙。

Answer 1

就像这样：

Sub ReplaceTables()
    Dim oTable As Table
    Dim oRng As Range
    For Each oTable In ThisDocument.Tables
        If oTable.Rows.Count > 1 And oTable.Columns.Count > 1 Then
            If IsNumeric(oTable.Cell(2, 1).Range.Words(1).Text) And _
                        IsNumeric(oTable.Cell(2, 2).Range.Words(1).Text) Then
                Set oRng = oTable.Range
                oTable.Delete
                oRng.Text = "[TABLE]" & vbCrLf
            End If
        End If
    Next
    Set oTable = Nothing
    Set oRng = Nothing
End Sub

它循环遍历文档中的所有表，在第二行的前两个单元格中检查第一个单词是否为数字，如果是，则删除该表并将表文本和新行替换。

希望这能有所帮助。

加法

若要检查4列或更多列，以及表文本中是否存在$符号，请使用此检查：

If oTable.Columns.Count >= 4 Then
    If InStrRev(oTable.Range.Text, "$") > 0 Then