Sub Macro1()
'
' Macro1 Macro
'
'
   ActiveDocument.SelectAllEditableRanges
   If (Selection.ParagraphFormat.RightIndent <> 0) Then
    Selection.ParagraphFormat.RightIndent = Selection.ParagraphFormat.RightIndent - 2  ' InchesToPoints(0.8)
   End If
End Sub