Getting footnotes consistent

[Becky]

I am cleaning up someone else's 145-slide medical presentation. Each
page has a footnote, but they are kind of all over the place as far as
placement. Since they were not placed on the file initially using the
footnote placeholder, I can't find a way to get each one to fall in
the same place on each page without manually moving each one; a real
hassle. Is there any way get make sure a text box falls in the same
place on each slide on a document like this?

 

[Kim]

I am cleaning up someone else's 145-slide medical presentation. Each
page has a footnote, but they are kind of all over the place as far as
placement. Since they were not placed on the file initially using the
footnote placeholder, I can't find a way to get each one to fall in
the same place on each page without manually moving each one; a real
hassle. Is there any way get make sure a text box falls in the same
place on each slide on a document like this?

I'm not sure if you'll find this macro useful, but my macros are
usually in textboxes that are all over the place. Just select the
textbox, then run this macro:


Sub Footnote()
'
' Moves selected object to the correct H=.5 and V=6.35 position and
changes the font size to 10 pt
'


With ActiveWindow.Selection.ShapeRange
.Fill.Transparency = 0#
.Left = 35.88
.Top = 448.38
End With
With ActiveWindow.Selection.ShapeRange
.TextFrame.MarginLeft = 0#
.TextFrame.MarginRight = 0#
.TextFrame.MarginTop = 0#
.TextFrame.MarginBottom = 0#

End With

With ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font
.NameAscii = "Arial"
.NameOther = "Arial"
.Size = 12
.Bold = msoFalse
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 0
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppForeground
End With


ActiveWindow.Selection.TextRange.ParagraphFormat.Alignment =
ppAlignLeft

End Sub

Hope this helps! Kim