Vba word текст по центру

I have created a textbox in Word and can set various properties for it, such as position, text, text style, text horizontal alignment (left/right/center), color, and so on.

But I cannot find any settings to set the vertical alignment of text in the box to Top/Middle/Bottom. There’s a button for vertical alignment on the ribbon to set that property, but I can’t find it through the object inspector, through Intellisense, or through searching the net. I tried recording a macro, but the only line that showed up in the macro was the VBA line to select the textbox. Nothing else.

The ribbon button is beside the «set text direction» option, but I couldn’t find VBA for that setting either. I also tried the Textframe2 property, but saw nothing in there for vertical alignment.

Here’s the code that sets the horizontal alignment of text. Also, I included the enum that I think I need to use. But I can’t find the property to accept a value from the enum.

   tbox.TextFrame.TextRange.ParagraphFormat.Alignment = wdAlignParagraphRight

WdVerticalAlignment enumeration (Word):
Name                 Value  Description
wdAlignVerticalBottom   3   Bottom vertical alignment.
wdAlignVerticalCenter   1   Center vertical alignment.
wdAlignVerticalJustify  2   Justified vertical alignment.
wdAlignVerticalTop      0   Top vertical alignment.

Does anyone know the syntax for the property that I need to set to vertically align text inside a textbox shape? Thank you

Sub CommandButton2_Click()
    Dim FileName As String, oMyDoc As Word.Document
    FileName = GetFilePath
    If FileName$ = "" Then Exit Sub
    MsgBox "Выбран файл: " & FileName$
    Set oMyDoc = Documents.Open(FileName$)
    oMyDoc.Activate
    Dim P As Paragraph
    For Each P In ActiveDocument.Paragraphs
       If IsOrdinaryParagraph(P) Then P.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Next
End Sub
Function IsOrdinaryParagraph(Par As Paragraph) As Boolean
    Dim ParCharLen&, i&
    With Par.Range
        ParCharLen = Len(Trim$(.Text))
        If ParCharLen = 1 Then Exit Function            ' Пустая строка
        If .ListFormat.ListType > 0 Then Exit Function  ' Список
        If .Tables.Count > 0 Then Exit Function         ' Таблица
        If .InlineShapes.Count > 0 Then Exit Function   ' Рисунок
        If .OMaths.Count > 0 Then Exit Function         ' Формула
        If .Style.NameLocal Like "Заголовок*" Then Exit Function 'Заголовок
        Select Case .StoryType
            Case wdCommentsStory ' Комментарии.
                Exit Function
            Case wdEndnoteContinuationNoticeStory
                Exit Function
            Case wdEndnoteContinuationSeparatorStory
                Exit Function
            Case wdEndnoteSeparatorStory
                Exit Function
            Case wdEndnotesStory
                Exit Function
            Case wdEvenPagesFooterStory ' Нижний колонтитул
                Exit Function
            Case wdEvenPagesHeaderStory ' Верхний колонтитул
                Exit Function
            Case wdFirstPageFooterStory ' Нижний колонтитул 1-ой страницы раздела
                Exit Function
            Case wdFirstPageHeaderStory ' Верхний колонтитул 1-ой страницы раздела
                Exit Function
            Case wdFootnoteContinuationNoticeStory
                Exit Function
            Case wdFootnoteContinuationSeparatorStory
                Exit Function
            Case wdFootnoteSeparatorStory
                Exit Function
            Case wdFootnotesStory  'Текст сноски.
                Exit Function
            Case wdPrimaryFooterStory ' Нижний колонтитул
                Exit Function
            Case wdPrimaryHeaderStory ' Верхний колонтитул
                Exit Function
            Case wdTextFrameStory  'Текстовая рамка - полотно
                Exit Function
            Case wdMainTextStory ' Основной текст , только его и надо проверять
            Case Else
                Exit Function
        End Select
        If .Fields.Count > 0 Then
            For i = 1 To .Fields.Count
                Select Case .Fields(i).Type
                    Case wdFieldTOC: Exit Function            ' Содержание
                    Case wdFieldEmbed: Exit Function          ' Внедренный OLE объект
                    Case wdFieldIncludePicture: Exit Function ' Поле с рисунком
                    Case wdFieldBibliography: Exit Function   ' Поле - библиография
                End Select
            Next i
        End If
        If ParCharLen < 20 And (UCase$(.Text) Like "РИС*") Then Exit Function ' Нумерация рисунков
        If ParCharLen < 20 And (UCase$(.Text) Like "ДИА*") Then Exit Function ' Нумерация диаграмм
        If ParCharLen < 20 And (UCase$(.Text) Like "ТАБ*") Then Exit Function ' Нумерация таблиц
    End With
    IsOrdinaryParagraph = True
End Function