Convert raw field codes to plain text and back again

macropod · #2 02-12-2017, 04:19 PM

To convert field codes to text, you could use the following macro:

Code:

Sub FldCodeToStr()
Application.ScreenUpdating = False
Dim StrFld As String, StrTxt As String, StrChr As String, bFldShw As Boolean, i As Long
StrTxt = "": bFldShw = ActiveWindow.View.ShowFieldCodes
ActiveWindow.View.ShowFieldCodes = True
StrFld = Selection.Text
For i = 1 To Len(StrFld)
  StrChr = Mid(StrFld, i, 1)
  Select Case StrChr
    Case Chr(19)
      StrChr = "{"
    Case Chr(21)
      StrChr = "}"
    Case Else
  End Select
  StrTxt = StrTxt + StrChr
Next
Selection.TypeText StrTxt
ActiveWindow.View.ShowFieldCodes = bFldShw
Application.ScreenUpdating = True
End Sub

To reverse the process, see Convert Text Representations of Fields to Working Fields in the Mailmerge Tips and Tricks thread in the Mailmerge forum:
https://www.msofficeforums.com/mail-...ps-tricks.html
The code there turns a text representation of a field code into a working field. Not only does it do so for fields represented via parenthetic expressions (i.e. { }) but also for mergefields represented by chevrons (i.e. « »).

Do note that both processes lose any formatting the applied to the content within quoted strings or via the Charformat switch. If the retention of such formatting is required, it is advisable to run it on a copy of any such fields so the formatting can be restored post-conversion.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro Needed To Convert Text in Word to Plain Text and Back to Word	rsrasc	Word VBA	5	12-18-2015 07:13 AM
Convert image-text hybrids into plain text	morlack	Excel	4	12-03-2014 05:29 PM
Converting field codes to plain text	Jennifer Murphy	Word	6	08-20-2014 05:10 AM
My plain text post got converted to rich text in a reply, how to convert it back?	david.karr	Outlook	0	01-05-2012 09:46 AM
Convert LISTNUM field codes to text	remedios43	Word	2	07-31-2011 09:21 AM