Hi all,
I have a 200 page document. The first line of each page needs to be in 'Heading1' style and line 2 in a style called 'Artist'

Currently they might have mixed attributes so I want to clear these first.

I've used 'record Macro' to get to something that works but it is slow and I suspect is clumsy. Whilst it isn't 'vital' because I can always wait 30 seconds for this macro to run but I would like to learn.

I'd welcome either comments or a more efficient version?

Bob
My code is:
Sub SetHeadings()
'
Application.ScreenUpdating = False
MsgBox ("this could take a while")
For x = 1 To 200
Selection.GoToNext wdGoToPage
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Range.Case = wdTitleWord
With Selection
.ClearFormatting
End With
Selection.Style = ActiveDocument.Styles("Heading 1")
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
With Selection
.ClearFormatting
End With
Selection.Style = ActiveDocument.Styles("Artist")
Next
Application.ScreenUpdating = True
MsgBox ("Finished")
End Sub