Задать Язык для Рамок с текстом

Sub A_mm1713_font()
''On Error Resume Next
Dim sh As Shape
Dim SH1 As Shape
For Each sh In ActiveDocument.Shapes
    sh.Select
    If sh.Type = 1 Then
        ''Debug.Print sh.Type, sh.Name, sh.TextFrame.TextRange;
        Selection.Font.Size = 10
        Selection.Font.ColorIndex = wdBlue
    ElseIf sh.Type = 20 Then
        Debug.Print sh.Type, sh.Name, sh.CanvasItems.count, "====="
        For Each SH1 In sh.CanvasItems
        SH1.Select
        
            Debug.Print SH1.Type, SH1.Name,
            If SH1.Type = 1 Then
            Selection.Font.Size = 10
            Selection.Font.ColorIndex = wdGreen
            Debug.Print SH1.TextFrame.TextRange;
            
            Debug.Print
            End If
            Debug.Print
            
            
        
        Next SH1
    ElseIf sh.Type = 13 Then
        ''
    Else
        Debug.Print sh.Type, sh.Name
    End If
Next sh
End Sub