Corel: how to verticaly center paragraph text« Wróć do listy pytań

Paragraph Formating is not visible
Wysłane przez mrmucha
Zadane przez 30/11/2017 10:53
▲
0
▼

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

1
2
3
4
5
6
7
8

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

Wysłane przez mrmucha
Odpowiedziane 30/11/2017 10:56