Code von Feldfunktionen als normalen Text einfⁿgen

Sie arbeiten mit Feldfunktionen und m÷chten eine Dokumentation dazu verfassen. Dafⁿr wollen Sie den reinen Code der Feldfunktionen als Beispiele im Text darstellen Codes mit Kopieren und Einfⁿgen in den Text ⁿbernehmen. Nach dem Einfⁿgen erhalten Sie aber stets nur das Ergebnis der Feldfunktion. Sie suchen eine andere L÷sung, um das manuelle Abschreiben der Codes zu umgehen.

Da Sie mit dem Kopieren ⁿber die Zwischenablage an dieser Stelle nicht direkt weiterkommen, mⁿssen Sie diese Aufgabe mit einem Makro erledigen.
Fⁿhren Sie ╗Extras | Makro | Makros½ aus. Geben Sie als Makronamen zum Beispiel ╗FeldCodeInString½ ein und klicken Sie auf ╗Erstellen½. Dann ergΣnzen Sie den Code im VBA-Editor um die folgenden Zeilen oder kopieren sie von der Heft-CD unter CHIP-Code Praxis03:

Sub FeldCodeInString()
Dim FeldString As String, NewString As String
Dim Einstellung As Boolean
Dim Daten As DataObject
NewString = äô
Application.ScreenUpdating = False
Einstellung = ActiveWindow.View.ShowFieldCodes
If Einstellung <> True Then ActiveWindow.View.ShowFieldCodes = True
FeldString = Selection.Text
For X = 1 To Len(FeldString)
  CurrChar = Mid(FeldString,  X, 1)
  Select Case CurrChar
    Case Chr(19): CurrChar = ä{ä
    Case Chr(21): CurrChar = ä}ô
    Case Else: End Select
  NewString = NewString + CurrChar
Next X
Set Daten = New DataObject
Daten.SetText NewString
Daten.PutInClipboard
ActiveWindow.View.ShowFieldCodes = Einstellung
End Sub