Arztbrief

[Schnewittchen]

Hallo, ich soll in meinem Praktikum Arztbriefe mit Makros automatisieren. Ich habe es jetzt mit Schaltflächen und Autotext gemacht. Habt ihr noch gute Ideen dafür. Vielen Dank.
LG; Johanna

[pmoegenb]

Hallo Johanna,

was soll bei einem Dokument automatisiert werden ? Wenn Du damit vorgefertigte Dokumente meinst, dann befasst Dich mal mit Dokumentvorlagen (http://www.ooowiki.de/WriterVorlagen?hi ... orlagen%29).

[Schnewittchen]

Hallo Peter!
Vielen Dank für den Hinweis. Also, die Befunde sollen aus dem Aufnahmebogen automatisch übernommen werden. Kannst du mir sagen, was an diesem Code falsch ist.
Ich bekomme immer die Fehlermeldung, dass der Die Prozedur oder Funktion a3 nicht definiert ist. Wie kann ich das machen?
Sub Dokumentvorlage_neu
Dim a3, a4 As String
Dim myFileProp(0) As New com.sun.star.beans.PropertyValue
Dim args(0) As New com.sun.star.beans.PropertyValue
Dim url As String

oDoc = ThisComponent
url = oDoc.getUrl

If oDoc.hasLocation = False Then
Beep
MsgBox "Das Dokument muss einen Namen haben! Ende!"
Exit Sub
End If

a3 = Dokument_Dateiname(url)
a4 = Pfad_OOo_User & "template/" & a3 & ".ott"

FileCopy url, a4
Fertig

End Sub

Vielen Dank und liebe Grüße, Johanna

[pmoegenb]

Hallo Johanna,

in StarBasic kenne ich mich nur unzureichend aus. Du solltest, aber Deine Anfrage an den Forumsbereich LibreOffice Programmierung richten. Möglicher Weise erhältst Du auch hier http://www.dannenhoefer.de/faqstarbasic/index.html einige Antworten.

[Schnewittchen]

Danke, das habe ich jetzt gemacht.
Liebe Grüße, Johanna