Feldcodes können in einem Dokument sehr hilfreich sein. Irgendwann möchten Sie möglicherweise einen Feldcode für jemanden freigeben. Möglicherweise bereiten Sie ein Schulungsdokument vor, in dem die Codes als Text angezeigt werden müssen, oder Sie möchten den Feldcode per E-Mail an eine andere Person senden.

Das Problem ist, wenn Sie den Feldcode einfach kopieren und einfügen, wird nicht der tatsächliche Code eingefügt. es ist das Ergebnis dieses Feldcodes. Sie können natürlich den Feldcode (Umschalt + F9) anzeigen, die Einfügemarke in den geschweiften Klammern positionieren, alle Zeichen außer der schließenden Klammer sorgfältig auswählen und dann in die Zwischenablage kopieren.

Dieser Ansatz kann jedoch in großer Eile mühsam werden. Ein besserer Ansatz besteht darin, ein Makro zu verwenden, um den Feldcode anzuzeigen und die gewünschten Informationen in die Zwischenablage einzufügen. Das folgende Makro macht genau das:

Sub StuffFieldCode()

Dim sField As String     Dim sTextCode As String     Dim bSFC As Boolean     Dim MyData As DataObject     Dim sTemp As String     Dim J As Integer

Application.ScreenUpdating = False

If Selection.Fields.Count = 1 Then         bSFC = Selection.Fields.Item(1).ShowCodes         Selection.Fields.Item(1).ShowCodes = True         sField = Selection.Text         sTextCode = ""

For J = 1 To Len(sField)

sTemp = Mid(sField, J, 1)

Select Case sTemp                 Case Chr(19)

sTemp = "{"

Case Chr(21)

sTemp = "}"

Case vbCr                     sTemp = ""

End Select             sTextCode = sTextCode & sTemp         Next J

Set MyData = New DataObject         MyData.SetText sTextCode         MyData.PutInClipboard                  Selection.Fields.Item(1).ShowCodes = bSFC     End If

Application.ScreenUpdating = True End Sub

Das Makro schaltet zunächst die Bildschirmaktualisierung aus und überprüft dann, ob die Auswahl nur ein Feld enthält. (Sie sollten das gewünschte Feld auswählen, bevor Sie das Makro ausführen.) Wenn es ein einzelnes Feld enthält, wird der Feldcode für dieses Feld angezeigt, einer Variablen (sField) zugewiesen und dann zeichenweise ausgewählt. Wenn das zu untersuchende Zeichen die öffnende Feldklammer ist – Chr (19) -, wird sie durch eine reguläre öffnende Klammer ersetzt. Wenn es sich um eine schließende Feldklammer handelt – Chr (21) -, wird sie durch eine reguläre schließende Klammer ersetzt. Wenn das Zeichen eine Absatzende-Markierung (vbCr) ist, wird das Zeichen ignoriert.

Schließlich wird die PutInClipboard-Methode verwendet, um die Textversion des Feldcodes in die Zwischenablage einzufügen. Sie können dann einen regulären Einfügebefehl (Strg + V) verwenden, um den Feldcode entweder in ein Dokument, eine E-Mail oder ein anderes Programm einzufügen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (3844) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Kopieren und Einfügen von Feldcodes.