Setting Text Node Justification in MS VBA

[dkleinot]

I'm trying to place a text node in VBA and i want to set it's justification to CenterCenter. TextNodeElement.Justification is readonly...

Dim txt As TextNodeElement
txt.Justification = MsdTextJustification.msdTextJustificationCenterCenter

so i cant set it that way...
Any ideas?
Thanks

 

[RodWing]

There are a few ways to accomplish this.

1. Set the active text node justification prior to creating the text node

ActiveSettings.TextStyle.NodeJustification = MsdTextJustification.msdTextJustificationCenterCenter

2. After you place the text node modify the justification on each element in the text node

Dim ee as ElementEnumerator

set ee = txt.GetSubElements
Do While ee.MoveNext
ee.Current.AsTextElement.TextStyle.Justification = MsdTextJustification.msdTextJustificationCenterCenter
Loop

 

[dkleinot]

Option 1 worked.
Thanks for the help.