Microsoft Office Forums - View Single Post - Speedup my macro

Thread: Speedup my macro

View Single Post

Old

06-23-2017, 05:04 PM

eduzs

eduzs is offline

eduzs uses Windows 10

Windows 10 eduzs uses Office 2010 32bit

eduzs uses Office 2010 32bit

Office 2010 32bit

Expert

The original poster

Join Date: May 2017

Posts: 266

eduzs is on a distinguished road

Default

Sorry, thanks.

Code:

For i = 1 To Selection.Paragraphs.Count

    If Selection.Paragraphs(i).Alignment <> wdAlignParagraphCenter Then Selection.Paragraphs(i).Alignment = wdAlignParagraphJustify

Next i

__________________
Backup your original file before doing any modification.

Reply With Quote