und vielen Dank vorab, dass Ihr meinen Post anschaut.
Ich möchte ein Textdokument mit Feldern versehen, die abgerufen werden, wenn man das Dokument aufruft.
Soweit bin ich schon recht weit gekommen, nur ruft mein Makro den Namen, aber auch die Bezeichnung der Felder nicht ab.
Mir wird also immer nur Textfeld 1, Textfeld2 etc. angezeigt.
Ich bin leider trotz einiger Stunden mit Versuchen keinen Schritt weiter gekommen, habe aber eben auch echt keine Ahnung
Kann mir jemand sagen, wo der Fehler in dem Skript unten liegt?
Was ich auch gerne noch wüsste, wie ich dem Makro einen "Stempel" geben kann, um es auch bei hoher Sicherheitseinstellung ausführen zu können
Danke euch!
OkidokiB
Sub AutoOpen()
Dim doc As Object
Dim form As Object
Dim field As Object
Dim sName As String
Dim sValue As String
Dim oCursor As Object
doc = ThisComponent
form = doc.DrawPage.Forms(0)
oCursor = doc.CurrentController.getViewCursor()
For Each field In form
If field.SupportsService("com.sun.star.form.component.TextField") Then
sName = field.Model.Name
sValue = InputBox("Bitte geben Sie den Wert für das Feld '" & sName & "' ein:")
If sValue <> "" Then
field.Text = sValue
End If
End If
Next
doc.CurrentController.getViewCursor().gotoStartOfDoc(True)
End Sub
