Textfeld umbenennen

[Alexander Mueller]

Hallo

Wie kann ich ein Textfeld, das ich über Einfügen->Textfeld in Doc
eingefügt habe (also keine Textbox aus der Toolbox), umbenennen?
Irgendwie wird es im Gegnsatz zu Buttons nicht im
Eigenschaftsfenster des Dokuments aufgelistet.

MfG,
Alex

[Thomas Gahler]

Hallo Alexander

> Wie kann ich ein Textfeld, das ich über Einfügen->Textfeld in Doc
> eingefügt habe (also keine Textbox aus der Toolbox), umbenennen?

Am einfachsten ist es, wenn du das Ding markierst und dann den gewünschten
Namen per Code zuweist.

Sub Benennen()
Selection.ShapeRange(1).Name = "DasTextfeld"
End Sub

Und später kannst du das Teil via .Name-Eigenschaft einem Objekt zuweisen

Sub Demo()
Dim shp As Word.Shape
Set shp = ActiveDocument.Shapes("DasTextfeld")
with shp
.Height = 100
'...
end with
End Sub

--
Thomas Gahler
MVP für WordVBA
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)

- Windows XP (SP2), Office XP (SP3)

[Alexander Mueller]

Thomas Gahler schrieb:

Hallo Thomas

>> Wie kann ich ein Textfeld, das ich über Einfügen->Textfeld in Doc
>> eingefügt habe (also keine Textbox aus der Toolbox), umbenennen?
> Am einfachsten ist es, wenn du das Ding markierst und dann den gewünschten
> Namen per Code zuweist.
>
> Sub Benennen()
> Selection.ShapeRange(1).Name = "DasTextfeld"
> End Sub
>
> Und später kannst du das Teil via .Name-Eigenschaft einem Objekt zuweisen
>
> Sub Demo()
> Dim shp As Word.Shape
> Set shp = ActiveDocument.Shapes("DasTextfeld")
> with shp
> .Height = 100
> '...
> end with
> End Sub

Danke sehr,
das funktioniert sehr gut!

MfG,
Alex