Footer Page 1 of 2

[jamal464]

Thank's brucevde

This code help me but can i make Footer like that 1 Of 4 rather than Page 1 of 4

What's wrong with this code not working with the code i use and add new page and dilogbox open to save the word as new document

Set oDoc = oWord.Documents.Add

This is my code

Dim oWord As object
Dim oDoc As WORD.Document
 
set oWord = Createobject("Word.Application)
     oWord.Visible = False
     oWord.documents.Add
 
' Here Code to make Dir for folder on the desktop and save the doc on it by given name
 
oDoc.Save
'Code to format the page
 
oWord.documents.Close
oWord.Application.Quit
Set oWord = Nothing