Seite 1 von 1
VBA Makro um VBA Variablen in Word zu füllen.
Verfasst: Donnerstag 18. Juni 2020, 08:26
von Sturmkind
Hallo,
wir wollen unsere vielen Word Vorlagen vereinheitlichen und reduzieren.
Dafür ist allerdings VBA Programmierung in den Vorlagen notwendig, da mehrer Abhängigkeiten gerade im Briefkopf gesteuert werden müssen.
Hat irgendwer ein gutes VBA Makro mit dem ich z.B. Praxis- und Patienteninformationen in VBA Variablen schreiben kann.
Die unter der Vorlage TM2011 befindlichen Makros sind leider diesbezüglich nicht sehr hilfreich.
Vielen Dank
Re: VBA Makro um VBA Variablen in Word zu füllen.
Verfasst: Freitag 19. Juni 2020, 16:32
von baerdoc
Können Sie mal ein Beispiel beschreiben, was das Makro machen soll?
Da die Turbomed-Word-Anbindung bei mir seit Update auf Windows10 extrem langsam war, habe ich mir eine eigene Wordanbindung gebastelt.
Dabei werden aus Turbomed die notwendigen Daten per VBScript in eine temporäre Textdatei exportiert und per VBA-Makro in die Platzhalter der entsprechenden
Wordvorlage importiert.
Funktioniert für meine Bedürfnisse super, ich weiß aber nicht, ob Sie so etwas suchen.
Re: VBA Makro um VBA Variablen in Word zu füllen.
Verfasst: Montag 22. Juni 2020, 10:49
von Sturmkind
Danke für die Rückmeldung.
Ein sehr interessanter Lösungsansatz, an der ich durchaus Interesse hätte.
Ist das ein direkter Zugriff auf die Datenbank ?
Ich betreue einen MVZ Verbund (insgesamt 9 MVZ mit diversen Fachabteilungen und insgesamt 54 Ärzten).
Alle liegen "glücklicherweise" in einer Turbomed DB, allerdings hat das eine Flut von Wordvorlagen zur Konsequenz, die gepflegt werden wollen.
Da viele individuelle Informationen nicht in TM hinterlegt werden und somit nicht über die TM Variablen ($....$) ausgelesen werden können, muss ich einen alternativen Weg suchen oder die bisherigen Wordvorlagen pflegen.
Es ist möglich viele Informationen aus dem Briefkopf in sogenannte INI oder Textdateien Dateien auszulagern und je nach Suchkriterium (z.B. behandelnder Arzt, Praxis) sich wieder zusammenzusetzen.
Somit kann z.B. für den Kurzarztbrief in Word nur eine Vorlage mit Textbausteinen aufgebaut und hinterlegt werden, was die Übersicht der Vorlagen auch für die MFA's vereinfachen würde.
Hier wäre allerdings VBA Programmierung die Grundvoraussetzung und TM Patienten- / Praxisinformationen in VBA Variablen oder wie bei Ihnen in einer ausgelagerten Textdatei.
Über einen Lösungsansatz würde ich mich freuen.
Re: VBA Makro um VBA Variablen in Word zu füllen.
Verfasst: Dienstag 23. Juni 2020, 08:43
von lcer
Hallo,
das wäre für mich auch sehr interessant. Früher gab es beim Formulareditor einen Objektexplorer, der ist aber nun verschwunden, nachdem er seit langem schon nicht mehr funktioniert hat. Seitdem ist alles Trial&Error und man braucht eine Blaupause.
Grüße
lcer
Re: VBA Makro um VBA Variablen in Word zu füllen.
Verfasst: Dienstag 23. Juni 2020, 12:52
von Johnny
Hallo Icer,
Icer schrieb:
Früher gab es beim Formulareditor einen Objektexplorer, der ist aber nun verschwunden, nachdem er seit langem schon nicht mehr funktioniert hat. Seitdem ist alles Trial&Error und man braucht eine Blaupause.
Könnte man nicht einen alten Objektexplorer aus einer alten TM-DVD einkopieren und dann benutzen?
Dazu müßte man wissen, wann der Objektexplorer zuletzt richtig funktioniert hat!
Gruß aus Kiel
Johnny
Re: VBA Makro um VBA Variablen in Word zu füllen.
Verfasst: Dienstag 23. Juni 2020, 13:04
von lcer
Könnte man nicht einen alten Objektexplorer aus einer alten TM-DVD einkopieren und dann benutzen?
Dazu müßte man wissen, wann der Objektexplorer zuletzt richtig funktioniert hat!
hab ich gesucht - keine alt genuge Version gefunden.
Grüße
lcer
Re: VBA Makro um VBA Variablen in Word zu füllen.
Verfasst: Dienstag 23. Juni 2020, 13:34
von Johnny
Danke Icer,
wie weit sind Sie zurückgegangen?
Danke und Gruß aus Kiel
Johnny
Re: VBA Makro um VBA Variablen in Word zu füllen.
Verfasst: Dienstag 23. Juni 2020, 13:37
von lcer
Das wahr wohl eine 2017er Version. Älteres hatte ich nicht mehr.
Grüße
lcer
Re: VBA Makro um VBA Variablen in Word zu füllen.
Verfasst: Mittwoch 24. Juni 2020, 08:36
von hofeBY
@baerdoc
Könnte man ein (paar) Bespiel Scripte der VBS Anbindung zur Einschätzung der Möglichkeiten erhalten ?
HofeBY
Re: VBA Makro um VBA Variablen in Word zu füllen.
Verfasst: Donnerstag 25. Juni 2020, 01:12
von baerdoc
Teil 1
Für Interessierte: eine Möglichkeit einer alternativen Wordanbindung
Zum Besseren Verständnis vorab ein paar Erklärungen.
Nach Update auf Windows10 war meine TM-Wordanbindung extrem langsam, das Ersetzen von 3-4 Platzhaltern dauerte 30 bis 40 Sekunden
Meine Anbindung sollte schnell sein, unnötige Suche/Ersetze-Schleifen für ungenutzte Platzhalter vermeiden und die bisherigen Wordvorlagen nutzen können
Der Ablauf funktioniert bei mir so:
1. Aufruf des TM-Formulars „Word.tmf“ (eingebunden in die Symbolleiste von TM)
2. Das Formular listet alle (z.Z. max 50) Wordvorlagen aus dem Ordner „Vorlagen“ auf
Die letzten beiden Ziffern der Vorlage codieren die Liste, der benutzen Platzhalter in der Vorlage z.B. Liste „02“ in „Anforderung Fremdbefunde 02.dotx“
Dadurch müssen nicht immer alle Platzhalter auf Vorhandensein in der Vorlage getestet werden-wenn man es einfacher möchte, kann man das aber auch aus dem Script entfernen
3. Nach Anklicken einer Wordvorlage wird eine Platzhalterliste mit den entsprechenden Werten erzeugt und in der Datei „wordanbindung.txt“ gespeichert sowie die Wordvorlage geöffnet
4.) In Word wird die VBA-Routine aus der Datei Makrovorlage „uebergabe.dotm“ nach anklicken gestartet (bei mir eingebunden in die Symbolleiste von Word, kann man aber auch als selbststartende Procedure umwandeln)
5.) Die VBA-Routine lädt die Platzhalterliste und ersetzt die Platzhalter in der Wordvorlage.
…
Re: VBA Makro um VBA Variablen in Word zu füllen.
Verfasst: Donnerstag 25. Juni 2020, 01:35
von baerdoc
Teil 2
Installation (Pfade entsprechen meiner Installation und müssen dann ggf. im VBScript an eigene Installation angepasst werden)
1.) Archiv.zip entpacken
2.) Datei „Word.tmf“ in das Verzeichnis „D:/TurboMed/Formulare/Eigene/„ kopieren und Verknüpfung in der Symbolleiste erstellen
3.) Inhalt des Ordners „Vorlagen“ in das erstellte Verzeichnis „D:/TurboMed/Formulare/Eigene/Vorlagen/„ kopieren (Ich habe ein paar meiner Mustervorlagen beigefügt)
4.) Datei „uebergabe.dotm“ in das Startup-Verzeichnis für die Microsoft-Word-Vorlagen kopieren (dort müsste auch die Datei „TM2011.dotm“) liegen
5.) In Word eine benutzerdefinierte Schaltfläche in der Symbolleiste erzeugen und mit dem VBA-Makro verbinden, ggf. Sicherheitseinstellungen anpassen
Die Datei "wordanbindung.txt" liegt als temp. Datei ebenfalls im Ordner „D:/TurboMed/Formulare/Eigene/„
Re: VBA Makro um VBA Variablen in Word zu füllen.
Verfasst: Donnerstag 25. Juni 2020, 08:31
von lcer
Hallo,
vielen Dank für das Skript. Das sieht gut aus, werde das testen.
Eine Frage hätte ich noch - gibt eine die Möglichkeit auf die "Liste der Behandlungsfälle" zuzugreifen? Das Objekt Behandlungsfall enthält ja offenbar den aktuellen Behandlungsfall. Speziell suche ich bei Privatfällen (IGeL) von GKV-Patienten die Daten der gesetzlichen Krankenkasse.
Grüße
lcer
Re: VBA Makro um VBA Variablen in Word zu füllen.
Verfasst: Donnerstag 25. Juni 2020, 11:13
von baerdoc
lcer hat geschrieben:... gibt eine die Möglichkeit auf die "Liste der Behandlungsfälle" zuzugreifen? ...lcer
Müsste in etwa so funktionieren:
Code: Alles auswählen
Dim behandlungs_faelle, bf, i
Set behandlungs_faelle = Patient.behandlungsfaelle
i = behandlungs_faelle.Count-1
Do until i < 0
Set bf = behandlungs_faelle(i)
If not bf is nothing Then
…
End If
i = i-1
loop