Sub SetStyle()
'Nastavi styl textu ve vykrese na Standard
     Dim ents As Object
     Dim ent As Object
     Dim ct As Integer
     Dim counter As Integer
     Set ents = ActiveDocument.ModelSpace
     ct = ents.Count
     
     For counter = 1 To ct
        Set ent = ents.Item(counter)
        If ent.EntityType = 33 Or ent.EntityType = 32 Or ent.EntityType = 23 Then
            ent.StyleName = "Standard"
            ent.Update
        End If
     Next
     MsgBox "Styl nastaven"     
End Sub