Here, Alignment to horizontal center of page not working. what wrong here ? please helpSub Kramank() ActiveDocument.BeginCommandGroup "Kramank" ActiveDocument.Unit = cdrCentimeter If ActiveShape.Text.IsArtisticText = True Then Exit Sub End If Dim Val As String Val = InputBox("Width?", "Paragraph Width") If StrPtr(Val) = False Then Exit Sub ActiveShape.SetSize Val - 0.1 ActiveShape.Text.Story.Alignment = cdrFullJustifyAlignment ActiveShape.Text.Story.Tabs.Clear ActiveShape.Text.Story.Tabs.Add Val - 0.1, cdrTextTabRight ActiveShape.Text.Story.ParaSpacingBefore = 87 ActiveShape.AlignToPage cdrAlignHCenter ActiveDocument.EndCommandGroup End Sub