VonDoczuDoc.de

Hallo,
ich habe einen Schnellbrief verfasst und möchte nun mit dem Platzhalter für den Geburtstag des Patienten Berechnungen anstellen, sowie es auch mit dem Platzhalter für das aktuelle Datum (Bsp:$4001[5]$) von TM vorgesehen ist.
Hat jemand eine Idee (VBA, Excel?) wie man so etwas realisieren könnte oder ist dies grundsätzlich nicht möglich?
Danke im Vorraus....

Habe gegoogelt, weil mich das auch interessiert, und folgendes bei mir gut funktionierende Makro gefunden:

Sub Fristdatum()

wieviel = InputBox("wieviele Tage sollen addiert werden?")
If wieviel = "" Then Exit Sub
Selection.InsertAfter DateAdd("d", wieviel, Date)

End Sub

Quelle: http://www.office-loesung.de/ftopic47340_0_0_asc.php

Das könnte man entsprechend modifizieren. MfG - JR

Problem der Datumsberechnung ist, das sie automatisch vonstatten gehen soll. Hier muss man TM etwas nachhelfen. Es ginge zB so:
1. Am Textbeginn des TM-Platzhalters für zB das Geburtsdatum des Patienten ($1077$) in der Vorlage eine Textmarke einfügen (hier: GebDat).
2. An der Stelle, wo das berechnete Datum stehen soll, eine 2. Textmarke einfügen, hier: Gebdat2.
3. Das nachfolgende VB-Makro (im Menü der Vorlage auf einen Befehl oder Button der Menüleiste gelegt) aufrufen:
*************************************************
Sub DatumBerechnen()

Dim GebDat As String, GebDat2 As Date

Selection.GoTo What:=wdGoToBookmark, Name:="GebDat"
Selection.EndKey Unit:=wdLine, Extend:=wdExtend

GebDat = Selection.Range
GebDat2 = DateAdd("m", 1, CDate(GebDat))
Selection.GoTo What:=wdGoToBookmark, Name:="GebDat1M"
Selection.InsertAfter CStr(GebDat2)
End Sub
**************************************************
Hierbei wird das von TM bereitgestellte GebDatum ausgelesen, mit der Funktion DateAdd um 1 Monat erhöht und an der Stelle der 2. Textmarke ins Dokument eingefügt. Andere Verfahrensvarianten sind natürlich beliebig zu erstellen. Aber ganz ohne Tricks gehts leider nicht.

Gatuliere + Danke für die Anregungen, das Makro funktioniert!

MfG - JR

Hallo mh,

vielen Dank für den gut funktionierenden Lösungsansatz. Ich konnte diesen wunderbar an meine Erfordernisse anpassen.

mfg
Berg