Need Helg formating text field

[andi_bln]

Hello,
I'm totally clueless. I'm added a textfield in a way like this :

Set ShAuthor = DC.Shapes.AddTextbox(Orientation:=msoTextOrientati onHorizontal, Left:=50, Top:=50, Width:=100, Height:=100)

With ShAuthor
.Fill.ForeColor.RGB = RGB(209, 209, 209)
.Left = Psu.PageWidth / LOGO_SHIFT_TO_RIGHT_REL
.Top = -1 * (Psu.TopMargin - 15) + CentimetersToPoints(7)
.Width = CentimetersToPoints(10)
.Height = CentimetersToPoints(1)
.TextFrame.TextRange.Text = "Author : " & "TestAuthor"
.TextFrame.TextRange.Bold = True
.TextFrame.TextRange.Font.TextColor = RGB(0, 80, 113)

I works fine, the same code in an other document, the red marked line could not be executed, because <Dieser Befehl ist nicht verfügbar.>
or The command is not available. Same code, different results...
I don't know why ... can anybody help ???
THX Andreas