vba - 用文本替换所有表格

Question

我想用以下文本替换文档中的所有表格：

“表1”（替换第一个表）“表2”（替换第二个表）...

有人可以帮我吗？

提前致谢！

标签： vbams-word

Answer 1

这样的东西更优雅，它可能会帮助你更好地学习这些概念。

Sub LoopThroughAllTablesinWorkbook()

'PURPOSE: Loop through and apply a change to all Tables in the Excel Workbook
'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault

Dim tbl As ListObject
Dim sht As Worksheet

'Loop through each sheet and table in the workbook
  For Each sht In ThisWorkbook.Worksheets
    For Each tbl In sht.ListObjects

      'Do something to all the tables...
        tbl.ShowTotals = True

    Next tbl
  Next sht

End Sub

' 或者...

Sub tableAllSheet()

    Dim sh As Worksheet
    Dim tbl As ListObject

    'Loop through all sheets
    For Each sh In ThisWorkbook.Worksheets
        'Loop through all table on a sheet
        For Each tbl In sh.ListObjects
            'Print table name, table header row address and data range address to Immediate window
            Debug.Print tbl.Name & vbTab & tbl.HeaderRowRange.Address & vbTab & tbl.DataBodyRange.Address
        Next tbl
    Next sh

End Sub