---

Hallo Leute,

Wie ich in diesem Forum schon erfahren habe, kann man die Angeforderten Eingaben im Schriftkopf nicht mittels VBA ändern.

Weiß jemand ob das im AIS 10 funktioniert??

Danke
Thomas

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

---

Hallo Thomas,

also ich habe das zwar für IV10 programmiert aber ich denke mal das es auch schon vorher hätte funktionieren müsse. Plotname und Plotdatum sind die angeforderten Felder, welche Du entsprechend abändern mußt. Das < Zeichen dient zur Unterscheidung von irgendwelchen Texten die ebenfalls im Schriftkopf vorkommen könnten.

Da ich nie einen Programmierkurs besuchen durfte kenne ich mich nicht besonders aus in Fehlerhandling und ordentlicher Formatierung und so Sachen, und wahrscheinlich ginge es auch wesentlich einfacher, aber weil sonst niemand geantwortet hat, anbei mein Code:

Public Sub Plotdaten()
    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument
    On Error Resume Next
    Dim Plotdatum As Date
    Dim Plotname As String
    Plotdatum = Date + Time
    Plotname = ThisApplication.UserName
    Dim title As TitleBlock
    Dim otextboxes As TextBoxes
    Dim otextbox As TextBox
    Set title = oDrawDoc.ActiveSheet.TitleBlock
    Set otextboxes = title.Definition.Sketch.TextBoxes
    For Each otextbox In otextboxes
        If InStr(otextbox.FormattedText, "Plotdatum<") <> 0 Then _
            Call title.SetPromptResultText(otextbox, Plotdatum)
        If InStr(otextbox.FormattedText, "Plotname<") <> 0 Then _
            Call title.SetPromptResultText(otextbox, Plotname)
    Next
End Sub

Grüße
Dieter

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

---

Hallo,

Danke jezt funktioniert es so wie ich es wollte.
Dachte schon es wird nichts mehr.

Thomas

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