Yes, I could have sworn you could make it work that way. But maybe not.
Anyway, I think the following will give you what you need except you may
need to set the field code view how you want it at the end:
Sub insfillin()
Dim f As Field
Const sPromptText = "SOME TEXT"
Dim strDefaultText As String
strDefaultText = Chr(34) & "SOME DEFAULT VALUE" & Chr(34)
Set f = ActiveDocument.Fields.Add(Selection.Range, wdFieldQuote,
strDefaultText, False)
' you should not need the next line...
'f.Update
f.Code.Text = " FILLIN " & Chr(34) & sPromptText & Chr(34) & "\d " &
strDefaultText & " "
End Sub
--
Peter Jamieson
http://tips.pjmsn.me.uk
"Evan Putranto" wrote in message
...
Hi Peter,
Thx for your reply. I know what you mean.
This is what I need Peter using vb syntax:
During
ActiveWindow.View.ShowFieldCodes = True
The following will be shown:
{ FILLIN "SOME TEXT" \d "SOME DEFAULT VALUE" }
During
ActiveWindow.View.ShowFieldCodes = False
The following will be shown:
SOME DEFAULT VALUE
But I need to achieve this without prompting the user.
Is that possible?
Currently during
ActiveWindow.View.ShowFieldCodes = True
it shows
{ FILLIN "SOME TEXT" \d "SOME DEFAULT VALUE" } SOME DEFAULT VALUE
Thank you again for your help.
Regards,
Evan