---

Hallo,

ich weiß wie ich den Feldtext ausfüllen kann....

Dim sPromptStrings(6) As String
sPromptStrings(0) = "String 1"
sPromptStrings(1) = "String 2"
sPromptStrings(2) = "String 3"

Ich möchte beim Schriftfeldwechsel, die vorhandenen Feldtexte vom aktuellen Schriftfeld abrufen und mit dem o.g. Symtax wieder übertragen.

Wie ist das möglich?

Danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin

Die alten Texte der angeforderten Eingaben kannst du mit der TitleBlock.GetResultText-Methode auslesen. Leg eine For Each Schleife drumrum in der du durch alle TextBoxen des TitleBlocks läufst. Ich meine, es müßte bei jeder TextBox ein Property geben, das PromptedText und True/False enthält. Je nachdem ob es eine angeforderte Eingabe ist oder nicht.

------------------
MfG
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Morgen,

danke für die Antwort.

Hast du dafür ein kleines Beispiel?

Danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi

Code:

---

Sub GetResultTextSample()

Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument

Dim oSketch As DrawingSketch
Set oSketch = oDrawDoc.ActiveSheet.TitleBlock.Definition.Sketch

Dim oTextBox As TextBox
Dim oPromptText() As String

Dim i As Integer
i = 0

For Each oTextBox In oSketch.TextBoxes
    If Left(oTextBox.FormattedText, 7) = "<Prompt" Then
        ReDim Preserve oPromptText(i)
        oPromptText(i) = oTitleblock.GetResultText(oTextBox)
        i = i + 1
    End If
Next
End Sub

---

------------------
MfG
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP