adding a line in a footer (office 2000)

Topic

New Reply

Hello,
I want to add a graphic line to my footer. I have defined the range. In a normal paragraph I use:

Set T1Line = ActiveDocument.Shapes.AddLine(96#, 256.5, 554.25, 256.5, T1Range)

I don’t know what to use in a footer. Please help. Tks

Reply | Quote

Replies

Each Header and Footer is a Range, so if you can insert Shapes to any Range you like, it should work in the footer. We recently had a thread on inserting a field code into a footer, perhaps that code will get you started with adding a shape.

Reply | Quote

Tks. That was me yesterday. I managed to put a field into the footer now I want a graphic line. Can’t seem to find the right code for it.
Set Line = activedocument.shapes.addline won’t work because I am in a range and
Set Line = .range.shapes.addline won’t work either. My VBA knowledge is very limited. Could you help please.
tks.

Reply | Quote

Sorry, I don’t understand Shapes and Ranges well enough to work this out. I get the same error as you, and recording a macro uses the Selection object, which you seem to be trying to avoid. I don’t suppose you could get by with a top border on that paragraph, instead of a line? Much easier.

Reply | Quote

Yep, I thought of the paragraph border in the style but this template will end up on a Mac that uses Word 98 and there is a very limited choice of color for paragraph borders in Word 98. I think I will just let it go for now and when they upgrade the software I will put a paragraph border with the right color.

tks alot.

Reply | Quote

Here’s a working example for you to start from…


Dim shpLine As Shape

With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)
.Range.Fields.Add Range:=.Range, Type:=wdFieldPage
.Range.InsertBefore ("Page ")
Set shpLine = .Shapes.AddLine(BeginX:=1, BeginY:=1, EndX:=100, EndY:=1, Anchor:=.Range)
End With


StuartR

Reply | Quote

This worked just fine. Tks alot.
jc

Reply | Quote

This worked just fine. Tks alot.
jc

Reply | Quote

Here’s a working example for you to start from…


Dim shpLine As Shape

With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)
.Range.Fields.Add Range:=.Range, Type:=wdFieldPage
.Range.InsertBefore ("Page ")
Set shpLine = .Shapes.AddLine(BeginX:=1, BeginY:=1, EndX:=100, EndY:=1, Anchor:=.Range)
End With


StuartR

Reply | Quote

Yep, I thought of the paragraph border in the style but this template will end up on a Mac that uses Word 98 and there is a very limited choice of color for paragraph borders in Word 98. I think I will just let it go for now and when they upgrade the software I will put a paragraph border with the right color.

tks alot.

Reply | Quote

Sorry, I don’t understand Shapes and Ranges well enough to work this out. I get the same error as you, and recording a macro uses the Selection object, which you seem to be trying to avoid. I don’t suppose you could get by with a top border on that paragraph, instead of a line? Much easier.

Reply | Quote

Tks. That was me yesterday. I managed to put a field into the footer now I want a graphic line. Can’t seem to find the right code for it.
Set Line = activedocument.shapes.addline won’t work because I am in a range and
Set Line = .range.shapes.addline won’t work either. My VBA knowledge is very limited. Could you help please.
tks.

Reply | Quote

Each Header and Footer is a Range, so if you can insert Shapes to any Range you like, it should work in the footer. We recently had a thread on inserting a field code into a footer, perhaps that code will get you started with adding a shape.

Reply | Quote