Why does a date field inserted beneath WordArt bounce above WordArt when running a macro?

Question

When my wife recorded the macro, she inserted a date field under WordArt but when she ran the macro, the date field automatically bounced above WordArt. She needs the date field to appear under the WordArt when she runs the macro. What is my wife doing wrong?

Answer 1

the WordArt is part of the collection Shapes in the current document. This Shapes do not have an effect on the position of the text cursur.

If you now for sure that wordart is the first "shape" in your document you could get the position just below the WordArt by calculating something like Activedocument.shapes(1).top + activedocument.shapes(1).height

and divide that trough the height of the font you use to get how many times you need to insert a new line to get below the wordart.

if your left margin is 1 inch wide, you could use

With ActiveDocument.Shapes(1)

    .RelativeVerticalPosition = wdRelativeVerticalPositionPage

    .Top = InchesToPoints(1)

End With

Same for leftpositioning.

See help msword in vis.basic-editor.

hope that will start you.