Word - seleccionar varias tablas en word para cambios

Sub ApplyTableStyle()

    Dim tbl As Table

    For Each tbl In ActiveDocument.Tables

        tbl.Style = "Medium Shading 2 - Accent 1"

    Next

End Sub

'Select all tables in a Word document.

Sub SelectAllTables()

  Dim objDoc As Document

  Dim objTable As Table

  Application.ScreenUpdating = False

  'Initialization

  Set objDoc = ActiveDocument

  'Set each table in document as a range editable to everyone.

  With objDoc

  For Each objTable In .Tables

    objTable.Range.Editors.Add wdEditorEveryone

  Next

  objDoc.SelectAllEditableRanges wdEditorEveryone

  objDoc.DeleteAllEditableRanges wdEditorEveryone

  Application.ScreenUpdating = True

  End With

End Sub