MS Word Footer replace.

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

chazparks - 13 Dec 2007 16:52 GMT

From a macro, how do I change the footer and margin to
Footer = .5"
Margin = .7"

Reply to this Message

Lene Fredborg - 13 Dec 2007 18:55 GMT

I am not sure exactly what you refer to with "Footer" and "Margin". If it is
the "From edge" value of the footer and the bottom margin, the following code
will do what you want:

With ActiveDocument.PageSetup
.FooterDistance = InchesToPoints(0.5)
.BottomMargin = InchesToPoints(0.7)
End With

The other margins are TopMargin, LeftMargin and RightMargin.

Signature

Regards
Lene Fredborg
DocTools - Denmark
www.thedoctools.com
Document automation - add-ins, macros and templates for Microsoft Word

> From a macro, how do I change the footer and margin to
> Footer = .5"
> Margin = .7"

Reply to this Message

chazparks - 17 Dec 2007 17:49 GMT

Would it be

With ActiveName.PageSetup
.FooterDistance = InchesToPoints(0.5)
.BottomMargin = InchesToPoints(0.7)
End With

using this syntax?
Set CurrentDoc = Application.Documents.Open(TargetFolder & "\" &
FNames(FNix), , False)
ActiveName = CurrentDoc.Name

> I am not sure exactly what you refer to with "Footer" and "Margin". If it is
> the "From edge" value of the footer and the bottom margin, the following code
[quoted text clipped - 10 lines]
> > Footer = .5"
> > Margin = .7"

Reply to this Message

Lene Fredborg - 17 Dec 2007 18:13 GMT

No – because:
ActiveDocument is a Document.
CurrentDoc is a Document.
But ActiveName is a String.

The following will work (if "TargetFolder & "\" &
FNames(FNix)" is the full name of an existing document):

Dim CurrentDoc as Document

Set CurrentDoc = Application.Documents.Open(TargetFolder & "\" &
FNames(FNix), , False)

With CurrentDoc.PageSetup
.FooterDistance = InchesToPoints(0.5)
.BottomMargin = InchesToPoints(0.7)
End With

Tip: If you use the Option Explicit statement in all modules, it will help
you find errors in your code. See:
"Why variables should be declared properly" at:
http://www.word.mvps.org/FAQs/MacrosVBA/DeclareVariables.htm

Signature

Regards
Lene Fredborg
DocTools - Denmark
www.thedoctools.com
Document automation - add-ins, macros and templates for Microsoft Word

> Would it be
>
[quoted text clipped - 22 lines]
> > > Footer = .5"
> > > Margin = .7"

Reply to this Message