If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
|
Thread Tools | Display Modes |
#11
|
|||
|
|||
Word Field Type - Fill In Prompt Problem (Word Insert Field in
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 |
|
Thread Tools | |
Display Modes | |
|
|