Converting text to field codes

  • Thread starter Thread starter Guest
  • Start date Start date
I don't know how much utility you can achieve with this, but I suppose
you could do it with a macro. Select the text and run:

Sub Scratchmacro()
Dim oRng As Word.Range
Dim pText As String
Set oRng = Selection.Range
pText = oRng.Text
oRng.Delete
oRng.Fields.Add oRng, wdFieldEmpty, pText
End Sub
 
Select the text.
Press Ctrl-F9
Press F9

The following does this after you've selected the text but I don't know that
it is any easier to use than the function keys:
Sub ChangeToField()
'
' Macro recorded 5/23/2006 by Charles Kyle Kenyon
'
Selection.Fields.Add _
Range:=Selection.Range, _
Type:=wdFieldEmpty, _
PreserveFormatting:=False
Selection.Fields.Update
End Sub

--
Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide




--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.
 
Back
Top