10 lines
258 B
Plaintext
10 lines
258 B
Plaintext
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 |