@Gast24848, Danke
ich habe :
' 'Ausgabe aller Shapes (deren Namen) im Dokument
' For Each shp In ThisDocument.Shapes
' Debug.Print shp.Name
' Next
ausgeführt und als Ergebnis im Direktbereich "Text Box 4" erhalten.
Mit:
Set shp = ThisDocument.Shapes("Text Box 4")
shp.TextFrame.TextRange.Text = MonthName(m, False) & " " & Str(y)
funktioniert die Eingabe.
Ich habe nur ein Textfeld erstellt und frage mich, warum das nicht "Text Box 1" als Ergebnis liefert.
|