Kopiëren en plakken Veldcodes

Velden codes kan heel nuttig zijn in een document. Op een gegeven moment, kunt u een veld code met iemand te delen. Misschien bent u het voorbereiden van een training document dat nodig heeft om de codes te zien zijn als tekst, of wilt u een e-mail het veld code aan iemand anders.

Probleem is, als je gewoon kopiëren en plakken het veld code, het is niet de werkelijke code die is geplakt; het is het resultaat van dat veld code. U kunt natuurlijk weer het veld code (Shift + F9), plaatst u de invoegpositie binnen de accolades, zorgvuldig te selecteren alle tekens behalve de accolade sluiten, en dan kopiëren naar het klembord.

Deze aanpak kan krijgen vervelend in een grote haast, echter. Een betere aanpak is om een ​​macro gebruiken om het veld code weer te geven en vul de gewenste informatie in het Klembord. De volgende macro doet precies dat:

Sub StuffFieldCode ()
Dim sField als Koord
Dim sTextCode als Koord
Dim BSFC zoals Van Boole
Dim MyData Zoals DataObject
Dim Stemp als Koord
Dim J As Integer

Application.ScreenUpdating = False

Als Selection.Fields.Count = 1 Dan
BSFC = Selection.Fields.Item (1) .ShowCodes
Selection.Fields.Item (1) .ShowCodes = True
sField = Selection.Text
sTextCode = ""
Voor J = 1 To Len (sField)
Stemp = Mid (sField, J, 1)
Selecteer Case Stemp
Case Chr (19)
STEMP = "{"
Case Chr (21)
STEMP = "}"
Case vbCr
Stemp = ""
Einde Select
sTextCode = sTextCode & Stemp
Volgende J

Stel MyData = Nieuwe DataObject
MyData.SetText sTextCode
MyData.PutInClipboard

Selection.Fields.Item (1) .ShowCodes = BSFC
End If

Application.ScreenUpdating = True
End Sub

De macro begint met het uitschakelen van het scherm bijwerken, dan wordt gecontroleerd om ervoor te zorgen dat de selectie bevat slechts één veld. (Je moet het veld dat u wilt selecteren voor het uitvoeren van de macro.) Als het niet een enkel veld bevat, dan is het veld code voor dat veld wordt weergegeven, toegewezen aan een variabele (sField), en dan geplukt uit elkaar teken voor teken. Als het teken wordt onderzocht is de opening gebied brace-Chr (19) -dan het wordt vervangen door een gewone opening brace. Als het een afsluiting veld brace-Chr (21) -dan het wordt vervangen door een reguliere accolade sluiten. Tenslotte, indien het teken een merker (vbCr) einde van paragraaf, dan het teken genegeerd.

Ten slotte wordt de PutInClipboard methode gebruikt om de tekst versie van het veld code spullen in het Klembord. U kunt dan gebruik maken van een gewone pasta commando (Ctrl + V) om het veld code plakken in ofwel een document, een e-mail, of een ander programma.

WordTips is uw bron voor kosteneffectieve Microsoft Word training. (Microsoft Word is de meest populaire tekstverwerker in de wereld.) Deze tip (3844) is van toepassing op Microsoft Word 97, 2000, 2002 en 2003. U kunt een versie van deze tip voor de ribbon-interface van het Woord (Word 2007 en later) hier: Kopiëren en plakken veldcodes.