Software

Ask something
Discussion Locked

Word 2002 - Selecting Text

0 helpful
4 replies

by medman

Closed to new repliesThis discussion is closed. It stays readable, but it takes no new replies.

Is there a simple way of selecting ALL text including the Header and Footer in one operation. Edit:Select All only selects text in the main body of the document.

Why do I want to do this? I wish to change the font in a large number of documentsall of which have Headers and Footers. Changing the font in the Normal Style does not help as they have all had the existing font changed once before by Direct Formatting.

4 replies

by dklippert

Sub SelectChange()
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.WholeStory
FontChange
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Selection.WholeStory
FontChange
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Selection.WholeStory
FontChange
End Sub

Sub FontChange()
With Selection.Font
.Name = "Times New Roman"
.Size = 20
.Bold = True
End With
End Sub

by medman

Brilliant! Thankyou very much indeed. I have used the code to make the macro and it works a treat. I have to admit I have not really got into VB. I guess I should make the effort!

Ther's another 250 points if you can answer the related question I have just posed on selecting Styles!

This discussion is closed to new replies.