Feldfunktion lesbar darstellen |
|
Felder werden als Platzhalter für sich ändernde Daten in einem Dokument verwendet und können dabei u.a.
Daten direkt anzeigen (z.B. das aktuelle Datum) oder Daten in Abhängigkeit einer Abfrage (z.B. Wenn...Dann-Abfragen). Möchte man diese Feldfunktionen aber dokumentieren oder anderen zeigen, wird immer nur das Ergebnis der Funktion
in die Zwischenablage kopiert - nie die Feldfunktion an sich. Mit Hilfe eines kleinen Makros lassen sich aber recht einfach Feldfunktionen in ihren Feldcode umwandeln. Alternativ ließe sich zwar die .Code-Eigenschaft der Felder auslesen, jedoch sind zum Einen die geschweiften Klammern nicht enthalten, was nicht wirklich schlimm wäre, sondern bei verschachtelten Feldern müsste man von innen nach außen die Felder und ihre .Code-Eigenschaft ermitteln, um die verschachtelte Feldfunktion nachbauen zu können. Dieses lässt sich zwar realisieren, aber der Aufwand wäre bedeutend größer - und das muss ja nicht sein. Das nachfolgende Makro lässt sich z.B. auf ein Tastenkürzel oder ein Symbol legen und wandelt alle im markierten Bereich enthaltenen Felder so um, dass die Feldfunktion angezeigt wird (siehe Beispiel); das Ergebnis wird zusätzlich in die Zwischenablage kopiert und kann an anderer Stelle eingefügt werden. Sub ChangeFieldCode() Dim ff As Field Dim rng As Range , rngSel As Range Dim str As String Set rngSel = Selection.Range For Each ff In rngSel.Fields ff.ShowCodes = True Next ff str = rngSel.Text str = Replace (str, Chr(19), "{") str = Replace (str, Chr(21), "}") rngSel.Text = str rngSel.Copy End Sub |
Besucher: 0 online | 0 heute | 0 diesen Monat | 2202547 insgesamt | Seitenaufrufe: 61 | Letzte Änderung: 24.06.2006 | © 2001-18 Christian Freßdorf | ||||
Wie muß Adam das Gefühl ausgekostet haben, Dinge zu sagen, die vor ihm noch keiner gesagt hat! Mark Twain |
powered by phpCMS and PAX |