Word Field Type - Fill In Prompt Problem (Word Insert Field in .NE

Hi Peter,

That works. Thank you very much for your help. I really appreciate it.

Regards,
Evan

"Peter Jamieson" wrote:

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