TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Sub thing()
    Dim oTblStyle As TableStyle
    With ActiveWindow.Selection.ShapeRange(1)
        With .Table.Style
            Debug.Print .Name
            Debug.Print .Id
        End With
        With .Table
            .ApplyStyle ("{2D5ABB26-0587-4C30-8999-92F81FD0307C}")
        End With
    End With
End Sub