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
❤️ Helfen Sie noch heute, unser LibreOffice Forum zu erhalten! ❤️
Unterstützen Sie das LibreOffice-Forum und helfen Sie uns, unser Ziel für 2025 zu erreichen!
🍀 Jeder Beitrag zählt – vielen Dank für Ihre Unterstützung!🍀
Mit Ihrer Spende sichern Sie den Fortbestand, den Ausbau und die laufenden Kosten dieses Forums. 🌱
>> Dank Ihrer Unterstützung -> Keine Werbung für alle registrierten LibreOffice-Forum User! <<
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗
Arztbrief
-
Schnewittchen
- Beiträge: 30
- Registriert: Mi 11. Mai 2011, 08:42
- Wohnort: Greifswald
-
pmoegenb
Re: Arztbrief
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).
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
- Beiträge: 30
- Registriert: Mi 11. Mai 2011, 08:42
- Wohnort: Greifswald
Re: Arztbrief
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
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
Re: Arztbrief
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.
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
- Beiträge: 30
- Registriert: Mi 11. Mai 2011, 08:42
- Wohnort: Greifswald
Re: Arztbrief
Danke, das habe ich jetzt gemacht.
Liebe Grüße, Johanna
Liebe Grüße, Johanna
An alle, die das LibreOffice-Forum gern nutzen und unterstützen wollen:
Bitte helfen Sie uns mit 7 Euro pro Monat.
Durch Ihren Beitrag tragen Sie dazu bei, unsere laufenden Kosten für die kommenden Monate zu decken.
Unkompliziert per Kreditkarte oder PayPal.
Als ein kleines Dankeschön werden Sie im LO-Forum als SUPPORTER gekennzeichnet.