Public Sub X45()
    Dim ooDrawDoc As Document
    Set ooDrawDoc = ThisApplication.ActiveDocument

    If ooDrawDoc.DocumentType <> kDrawingDocumentObject Then
        Exit Sub
    End If

Dim oDrawDoc As DrawingDocument
 Set oDrawDoc = ThisApplication.ActiveDocument
    If oDrawDoc.SelectSet.Count = 0 Then
        MsgBox "Musíte vybrat kótu."
        Exit Sub
    End If
    Dim oSheet As Sheet
    Set oSheet = oDrawDoc.ActiveSheet
    Dim oDrawingDimtype As ObjectTypeEnum
    Dim oDrawingDim As DrawingDimension
    For Each oDrawingDim In oDrawDoc.SelectSet
             oDrawingDim.text.FormattedText = "<<>>x45<StyleOverride Font='AIGDT'>~</StyleOverride>"
    Next

End Sub

Já jsem si udělal makro a přidělil mu ikonu. Po okótování vyberu (přes CTRL)kóty které mají mít příponu "x45°" a stisknu ikonu. K vybraným kótám se přípona přiřadí.

Jan Hujer