footer macro

[TessaLee]

I created a macro to select text from a Word document and insert it into a footer by recording key strokes and mouse clicks. It's failing when pasting the selected text into the footer. Does anyone know what's wrong?

Selection.HomeKey Unit:=wdStory


Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Cut
WordBasic.ViewFooterOnly
ActiveDocument.AttachedTemplate.BuildingBlockEntri es(" Blank").Insert _
Where:=Selection.Range, RichText:=True
Selection.PasteAndFormat (wdPasteDefault)

[macropod]

Hi TessaLee,

Try something along the lines of:

Sub AddFooter()
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = Selection.Text
End Sub