Corel: how to verticaly center paragraph text

Question

Paragraph Formating is not visible

mrmucha · Answer

nobody knows why this option is not visible in most countries (language problems? who knows), this is my workaround.

1. Create macro (alt+f11)
2. Create new module in VBAPRoject -> Module
3. Paste this macro

Public Sub centerVerticalAllParagraphs()
    Dim s As Shape
    Dim srParagraph As ShapeRange
    Set srParagraph = ActivePage.Shapes.FindShapes(query:="@type='text:paragraph'")
     For Each s In srParagraph
       s.Text.Frame.VerticalAlignment = cdrCenterJustify
     Next s
End Sub

Public Sub centerVerticalAllParagraphs()
    Dim s As Shape
    Dim srParagraph As ShapeRange
    Set srParagraph = ActivePage.Shapes.FindShapes(query:="@type='text:paragraph'")
     For Each s In srParagraph
       s.Text.Frame.VerticalAlignment = cdrCenterJustify
     Next s
End Sub

4. Run it