how to protect header and footer in word 2007

#HOW TO PROTECT HEADER AND FOOTER IN WORD 2007 HOW TO#
#HOW TO PROTECT HEADER AND FOOTER IN WORD 2007 PDF#
#HOW TO PROTECT HEADER AND FOOTER IN WORD 2007 CODE#
#HOW TO PROTECT HEADER AND FOOTER IN WORD 2007 PLUS#

Converting the document to PDF has not solved the problem either as the conversion removes the hyperlink completely.

#HOW TO PROTECT HEADER AND FOOTER IN WORD 2007 HOW TO#

Unfortunately though, I have not been able to work out how to this as the link is not clickable once the footer editor has been closed. Basically, I would like to have a clickable hyperlink at the bottom of each page that will return the user to the contents page when it is clicked. The problem I am having at the moment is with the documents footer. am in the process of creating a site document for a client and as it is in electronic format, I am using bookmarks and Hyperlinks to help readers navigate the document more easily. 'Following example of opening with a template 'Late binding requires constants to be declared with values 'LATE BINDING METHOD - Reference to Word not required.ĭim objWord As Object 'Note Object in lieu of Word.Applicationĭim objDoc As Object 'Note Object in lieu of Word.Document 'If Word is visible, Setting objWord = Nothing

#HOW TO PROTECT HEADER AND FOOTER IN WORD 2007 CODE#

'Following is example lines of code if required 'Alternatively make Document1 the top window. Range:=.Selection.Range, Type:=wdFieldEmpty, Text:= _ Selection.TypeText Text:=' Today'sDate: ' & Format(Date, 'dd mmm yyyy') 'Following line edit date format to desired format Selection.TypeText Text:='Scedule Issues as at:' '.Documents.Add Template:=strTemplatePathAndName (See above where Path and File name saved to variable.) Set objWord = CreateObject('Word.Application')

If objWord Is Nothing Then 'Word not open so create object Set objWord = GetObject(, 'Word.Application') 'Try GetObject first in case Word Application is already open. StrTemplatePathAndName = ThisWorkbook.Path & _

'Following example assigning template path and name to variable 'Early binding method with Intellisense dropdowns (Ensure you check the box _Īnd not just select the line before clicking OK.) Microsoft Word nn.n Object library (where nn.n is version) _Īnd Check the box and click OK. 'Go to VBA menu item Tools -> References and scroll down to _ Take particular note of the comment at the top of the first example re setting the Reference for Early Binding.

Best to click the dropdown and select the document in which It defaults to Normal.dotm which makes it available to all documents. Note that when starting the recorder in Word it does not default to recording in a standard module. If you need additional code then try recording the code in Word and translating that to your Excel project. With Late Binding, the reference is not required and provided that the code and functions etc are compatible with the earlier versions then it will run without the need to re-set References. However, if Early Binding is used and the code is used in an earlier version of Office then the Reference has to be re-set. With Early Binding you have the advantage of the VBA Intellisence dropdowns to assist with codeing. I usually develop with Early Binding and then convert to Late Binding. The first example uses Early Binding and the second uses Late Binding. Note that the code as recorded in Word requires objWord (Object variable for Word) in front of all of the code lines when the code is copied into the Excel project. Was recorded in Word and then adapted for an Excel project. I am not as fully conversant with VBA in Word as I am in Excel so the code for the Word section

#HOW TO PROTECT HEADER AND FOOTER IN WORD 2007 PLUS#

There are 2 examples of code below which opens a new document in Word and inserts a header with today's date concatenated plus a footer with Page X of Y pages.

How to protect header and footer in word 2007