Speedup my macro

eduzs · #1 06-23-2017, 04:30 PM

I have a code "for each para in actd.para.count" to go through each paragraph, if the paragraph text is not aligned in the center it justify the text, otherwise leaves in the center alignment.
How can i speed up this macro?
Can do this at once with find/found ?

Thanks

gmaxey · #2 06-23-2017, 04:32 PM

Is your code a state secret? Why don't you post it so we can see what your are doing.

eduzs · #3 06-23-2017, 05:04 PM

Sorry, thanks.

Code:

For i = 1 To Selection.Paragraphs.Count

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

Next i

gmayor · #4 06-23-2017, 09:08 PM

The following should work

Code:

Sub Macro1()
Dim oRng As Range
    On Error GoTo lbl_Exit
    Set oRng = ActiveDocument.Range
    With oRng.Find
        .Wrap = wdFindStop
        Do While .Execute(FindText:="^13")
            If Not oRng.ParagraphFormat.Alignment = wdAlignParagraphCenter Then
                oRng.ParagraphFormat.Alignment = wdAlignParagraphJustify
            End If
        Loop
    End With
lbl_Exit:
    Exit Sub
err_Handler:
    Err.Clear
    GoTo lbl_Exit
End Sub

eduzs · #5 06-24-2017, 04:58 AM

Perfect! Thanks a lot.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Footnote extraction macro [Why is this macro so slow? / anyway to make it faster?]	Le_Blanc	Word VBA	10	03-22-2021 11:38 AM
Spell check macro within macro button field doesn't work in one document	samuelle	Word VBA	0	07-20-2016 02:27 AM
Macro Question: Need help making a macro to highlight the first word in every sentence	LadyAna	Word	1	12-06-2014 10:39 PM
Macro Needed to bold specific lines and Macro to turn into CSV	anewteacher	Word VBA	1	05-28-2014 03:59 PM
custom icon, undo/redo for macro, permanent macro	Rapier	Excel	0	08-05-2013 06:30 AM