Increase speed of VBA Macro

[CPGDeveloper]

I have VBA code that's repeatedly going through a document changing one style to another...something like this:

'Remove StyleA
Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("StyleA")
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Style = ActiveDocument.Styles("StyleA1")
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

I have about a dozen of these changes to make in this macro and simply repeat the above code, just replacing the style names that I want changed. Currently, the code takes something like 20 seconds to run. Does anyone know of a way to combine all of them into a simpler and/or more efficient statement? Any tips would be greatly appreciated. Thanks.

 

[hiker95]

CPGDeveloper,

You could create an array to hold the styles.

Then cycle thru your displayed code, based on the array items.

What are all the styles/names?

 

[CPGDeveloper]

hiker95,

Thank you -- I'm a newbie with arrays -- my style names vary...everything from "LL-(Chr)--Primary If-Then (red) [BRACKETS]" to "119b char".

So would I do something like:

Dim MyStyle As String
MyStyle = Array("Style1", "Style2", "Style3", etc...)

And then replace the name of the style in the code with 'MyStyle'?

Apologies if this is a very basic question...Thanks for your help.

 

[hiker95]

CPGDeveloper,

Can we see all your macro code?

If posting VBA code, please use Code Tags, see below in my Signature block: If posting VBA code, please use Code Tags - like this