AddTextEffect - Anchor argument not working in footers (or headers)

[McX]

Hi all

My problem is about inserting a TextEffect in footers when first (or even)
pages are different.
While Anchor argument works fine for AddShape and AddTextBox methods, the
AddTextEffect ignores it and adds to a different footer. I don't understand
what Word uses to choose the footer for the TextEffect.
Isn't it a Word 2003 VBA bug ?

Here's the VBA code :

Sub Problem()
Dim oDoc As Document
Dim oFooter As HeaderFooter
Dim oRange As Range
Dim oShapes As Shapes, oShape As Shape

' New document with 3 pages and 3 different headers / footers
Set oDoc = Word.Documents.Add
oDoc.PageSetup.DifferentFirstPageHeaderFooter = True
oDoc.PageSetup.OddAndEvenPagesHeaderFooter = True
Set oRange = oDoc.Range
oRange.InsertBreak wdPageBreak
oRange.InsertBreak wdPageBreak

' Add to the second page's footer
Set oFooter = oDoc.Sections(1).Footers(wdHeaderFooterEvenPages)
Set oShapes = oFooter.Shapes
Set oRange = oFooter.Range

' AddTextEffect adds to a different footer !!!
oShapes.AddShape msoShapeHeart, 1, 1, 36, 36, oRange
oShapes.AddTextEffect msoTextEffect10, "TextEffect", _
"Arial Black", 12, msoFalse, msoFalse, 40, 1, oRange
oShapes.AddTextbox(msoTextOrientationHorizontal, 120, 1, 80, 30, oRange)
_
.TextFrame.TextRange.InsertAfter "TextBox"
End Sub

Thank you in advance
McX