Hi all,



Totally new to VBA but trying my best...I've searched for the answers but evidently dealing with pages is more challenging than I think it should be.

I have the following macro that bolds and centers the first line of the document, then goes through the first four pages of a document and selects and bolds the first line (which for me, is always a title). Then it goes back to the first page. So far it works great.

I believe a loop would be more efficient (especially since not every document is always four pages), but I'm failing miserably even getting started in building the loop. Can anyone help me turn what I have into a macro that loops through the document and bolds and centers the first line of each page? Thank you in advance!

Sub FirstLineCenter()
'
Dim ParaRange As range
Dim StartRange As range

Set StartRange = Selection.range

Set ParaRange = ActiveDocument.Paragraphs(1).range
ParaRange.Select
Selection.Font.Bold = True
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1
Set ParaRange = ActiveDocument.Bookmarks("\Page").range.Paragraphs (1).range
ParaRange.Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Font.Bold = True

Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1
Set ParaRange = ActiveDocument.Bookmarks("\Page").range.Paragraphs (1).range
ParaRange.Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Font.Bold = True

Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1
Set ParaRange = ActiveDocument.Bookmarks("\Page").range.Paragraphs (1).range
ParaRange.Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Font.Bold = True

Selection.HomeKey Unit:=wdStory

End Sub

Your script looks a whole lot like my first VBA script before I knew how to make a loop. One challenge I think you are going to face with trying to access the first line of a page, is that may not be a reliable thing to find as paragraphs move about and text flows from page to page.

But, here is a start which at least shows you how you can loop through the document and get close. Unless you have some more consistent/fixed way to find the first line of each page. In this script, I also made this text red to make it easy to see what it's doing. In my test, what was originally the first line of a page, was moved, so subsequent "first lines" were unpredictable.

Brian,

This works, and I can follow most of the script. I modified a few things to fit my needs, but your scripts works great.
One questions if I could, what do these lines do:

' Begin undo record
Set bhhUndo = Application.UndoRecord
bhhUndo.StartCustomRecord (scriptName)

I tested them by commenting them out (and the next to last line) and it still worked. Am I risking anything by not including them?

I really appreciate the time you took to help me - thank you!

The UndoRecord is not necessary for your macro but it is handy if there is a chance you want to UNDO all the steps of the macro with a single keystroke.

Word's undo command steps backwards through the most recent document changes. When a macro performs a lot of changes to a document it takes a lot of consecutive undo commands to reverse out all the changes made by that macro. Those lines in Brian's code groups all of those single steps into a single undo command.

So if you don't expect to undo the macro's changes then it will make no difference to the code if you include or don't include those lines.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

Andrew,

That makes sense - thank you for the explanation.