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