G'day "Robert L" <address923@hotmail.com>,

Alt+F9 to reveal field codes.

Steve Hudson - Word Heretic

steve from wordheretic.com (Email replies require payment)
Without prejudice

Robert L reckoned:

hi Robert,

Try the following, which I picked up somewhere:

Sub FieldCodeToString()
   Dim Fieldstring As String, NewString As String, CurrChar As String
   Dim CurrSetting As Boolean, fcDisplay As Object
   Dim MyData As DataObject, X As Integer
   NewString = ""
   Set fcDisplay = ActiveWindow.View
   Application.ScreenUpdating = False
   CurrSetting = fcDisplay.ShowFieldCodes
   If CurrSetting <> True Then fcDisplay.ShowFieldCodes = True
   Fieldstring = Selection.Text
   For X = 1 To Len(Fieldstring)
       CurrChar = Mid(Fieldstring, X, 1)
       Select Case CurrChar
           Case Chr(19)
               CurrChar = "{"
           Case Chr(21)
               CurrChar = "}"
           Case Else
       End Select
       NewString = NewString + CurrChar
   Next X
   Set MyData = New DataObject
   MyData.SetText NewString
   MyData.PutInClipboard
   fcDisplay.ShowFieldCodes = CurrSetting
End Sub

Select the field then run the code. The code puts the field's coding into
the clipboard, from where you can paste it into whatever application you
want.

Cheers
PS: You'll need to include a vba reference to the Microsoft Forms 2.0 (or
later) object library.