Vrftjkry

Is it possible to copy text from a Word document containing field codes, so that when asted into another application, the FIELD CODES REMAIN AS RAW TEXT. i.e. something like

This is about whales { XE "Cetations:Whales" }. This is about dolphins { XE "Cetations:Dolphins" }.

rather than have the field codes stripped out?

Add macro to document, select text, run macro, You can now copy fields codes to clipboard.

Ps. in office 2010 ALT+F9 is used to display fields codes.

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

Press Alt+F9 to show the field code, then highlight all the text inside the braces {}. You can they copy and paste this text.

Here's a link to a macro someone wrote to do all the work: Copy and Pasting Field Codes