VBA Makro zur Überprüfung der Zeichenzahl in einem Inhaltssteuerelement "Nur Text" während...

Beachten Sie, dass Ihr Code Ihr Textfeld, nicht mit Inline-Text, in der oberen rechten Ecke des Dokuments ablegt. Wenn Sie es dort wollen, kann der Baustein es dort erstellen.

Sie haben immer noch nicht erklärt, warum Sie dies mit einem Makro tun möchten.

Ich weiß, dass ich mit vba kein Inhaltssteuerelement direkt einfüge, das diesem Knoten zugeordnet ist. jemand anderes kann. Der einzige Weg, wie ich es tun kann, ist die Verwendung eines Bausteins.

Hallo,
<br />das ist nur per Makro bzw. VBA-Programmierung möglich.
<br />Alternativ könnte man die einzelnen Artikel des Katalogs als Schnellbausteine speichern und in der Bestellliste die Schnellbausteine einfügen oder mithilfe eines Inhaltssteuerelements Artikel aus der Schnellbaustein-Liste auswählen.
<br />Viele Grüße
<br />Lisa
<br />

Vielen Dank für die Antwort!

Da war ich wohl etwas unpräzise:

Die Inhaltssteuerelemente sollen verschwinden, der darin eingegebene (und im Dokument an den entsprechenden Stellen wiederholte Text) nicht.

Wenn ich in das erste Inhaltssteuerelement den Firmennamen "XYZ" eingebe und danach [Rechtsklick]->[Inhaltssteuerelement entfernen], wird die Funktionalität des Feldes entfernt, der reine Text "XYZ" bleibt jedoch an dieser Stelle bestehen.

Allerdings wird dabei nur dieses eine Inhaltssteuerelement entfernt. Die weiteren Inhaltssteuerelemente im Dokument behalten zwar den Text "XYZ", bleiben aber Inhaltssteuerelemente und werden nicht zu reinem Text.

Da ich nun nicht den Umweg gehen möchte, immer das Dokument als Ganzes zu markieren und darüber alle Inhaltssteuerelemente auszuwählen, wäre es schön, wenn das automatisch ginge.

Es soll auch kein Formular sein, sondern ein langes Dokument, an dem nur an einigen Stellen ein individueller Firmenname eingetragen werden soll.

Hallo,

evtl. warst du mit der Eingabemarke noch im Inhaltssteuerelement, keine Ahnung.



Zu dem Platzhaltertext fällt mir nur folgende Lösung ein:

in einem Makro folgende Zeilen verwenden:



Sub FilePrintQuick()

Dim ise As ContentControl, sPT As String

For Each ise In ActiveDocument.ContentControls

If ise.Type = wdContentControlRichText Or wdContentControlText Then

If ise.ShowingPlaceholderText Then ' wenn Default-Text

sPT = ise.PlaceholderText

ise.SetPlaceholderText , , " " ' Neuen Platzhaltertext festlegen

End If

End If

Next ise

With Dialogs(wdDialogFilePrint)

.Execute

End With

For Each ise In ActiveDocument.ContentControls ' Default-Text wieder anzeigen

If ise.PlaceholderText.Value = " " Then ise.SetPlaceholderText , , sPT

Next ise

End Sub

zum Aufruf kannst du in die Symbolleiste für den Schnellzugriff den Befehl "Schnelldruck" aus der Register "Datei" hinzufügen.

Über diesen Befehl wird das Makro ausgeführt.

Im Makro werden alle Inhaltssteuerelemente (COntentControls) vom Typ Rich-Text und Nur-Text auf den Standard-Text überprüft, dieser ggf. durch Leerzeichen ersetzt, das Dokument gedruckt und der Standard-Text wieder zurückgeschrieben, damit das Dokument weiter
gefüllt werden kann.



Lässt sich bestimmt weiter ausfeilen, aber schau erst mal, ob es funktioniert.



Gruß

Christian

Hallo Lisa,

vielen Dank.

Ob ein Nur-Text-Inhaltssteuerelement ausreicht kann ich noch nicht sagen.

Ich möchte auf der ersten Seite/Inhaltssteuerelement folgende Formatierung haben: Calibri, 11, fett, auf der Folgeseite im zweiten Inhaltssteuerelement die Formatierung Calibri, 8, normal.

Ein Versuch mit nur Text-Inh.elementen ist es Wert.

Falls es keine Möglichkeit mit dem Rich-Text-Inhaltssteuerelement gibt, würde mich interessieren, wie es mit der sogenannten "Formatvorlage" funktionniert.

VG