Word 365: Einfügen eines Schnellbausteins in ein Textfeld

Thank you for your swift answer!!

You are welcome. I apologize for not being clearer.

I understand the reason for wanting that particular structure. I think the AutoText solution will work well.

Let us know if there's anything else. If you don't have any more questions, feel free to choose a rating. Thanks! (Five stars means helpful, one star means not helpful.)

Haben Sie die Textfelder in der von mir bereitgestellten Vorlage ausprobiert?

Hier ist ein Link zu meinem Schreiben, wie sie ein Makro verwenden, um ein Textfeld oder einen anderen Baustein einzufügen.

http://www.addbalance.com/usersguide/autotextau...

----------------------------------

Dieser Link ist zu einer Seite auf meiner Website. Es ist sicher. Ich stelle sie zur Verfügung, weil ich denke, dass sie Informationen enthält, die Ihnen helfen werden. Als unabhängiger Berater muss ich jedoch Folgendes hinzufügen, wenn ich hier einen Link
zu einer Nicht-Microsoft-Website, sogar zu meiner eigenen Website, aufstelle:

----------------------------------

Erforderlicher Hinweis: Dies ist eine Website, die nicht von Microsoft ist. Die Seite scheint genaue, sichere Informationen bereitzustellen. Achten Sie auf Anzeigen auf der Website, die Produkte bewerben können, die häufig als PUP (Potenziell unerwünschte Produkte)
klassifiziert werden. Gründlich jedes Produkt auf der Website beworben, bevor Sie sich entscheiden, es herunterzuladen und zu installieren.

----------------------------------

Was Sie einfügen, ist kein Feld, noch ist es eine integrierte Dokumenteigenschaft, sondern ein Inhaltssteuerelement, das der XML-Datei des Dokuments zugeordnet ist, die diese Dokumenteigenschaft widerspiegelt. Es ermöglicht Ihnen, Informationen in Ihr Dokument
einzugeben und sie zum Inhalt der Dokumenteigenschaft werden zu lassen. Außerdem wird der aktuelle Wert dieser Eigenschaft angezeigt.

Wenn Sie möchten, ist einfach etwas, das Ihnen sagt, was der Wert des Status ist, können Sie ein DocProperty-Feld einfügen. Ich kann Ihnen zeigen, wie Sie das mit vba machen.

Good afternoon,

here is the english version:

I would like to insert a BuiltInDocumentPropertie (to be precise the field itself) into a text box. The text box should contain the content of the quick function block "Status" (internally referred to as "Content status").

The following code only inserts the name of the field, but not the field itself.

Dim proDoc As DocumentProperty

Add a text box

Set shpCanvas = ActiveDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:=1, Top:=1, Width:=100, Height:=100)

For Each proDoc In ActiveDocument.BuiltInDocumentProperties

If proDoc.Name = "Content status" Then

Set proDoc = ActiveDocument.BuiltInDocumentProperties("Content status")

shpCanvas.TextFrame.TextRange = ActiveDocument.BuiltInDocumentProperties("Content status")

End If

Next

Thank you for your help in advance!

Here is a temporary link to a sample template:

https://www.dropbox.com/s/n9wrhxvnpcauze1/delet...

This is a zip folder containing a .dotx template. If that template is placed in your Word Startup Folder the two Text Box Building Blocks will be available in all documents. They each are a textbox that contains the Status Document Property Content Control.
One is set for text wrapping; the other is in-line with text.

They can be inserted by typing their names and pressing the F3 key. The names are: StatusTextBox and StatusInLine. They also have keyboard shortcuts of Ctrl+Shift+I,1 and Ctrl+Shift+I,2.

Here are some links about AutoText and Building Blocks:

https://support.microsoft.com/office/create-reu...

https://support.microsoft.com/en-us/office/quic...

https://support.microsoft.com/office/use-quick-...

I hope this helps you do what you want. I can give you a macro for inserting these as well if you want. Keep safe.