Adding auto text to end of content control field

ksigcajun · #1 10-09-2014, 07:01 AM

I have a content control field on a Word form that my users are filling out the U.S. county. I need the field to autopopulate the word "county" after they fill it out.

Example: User type in "Orange" in the field and once they tab out, the field will now say "Orange County"

Is this possible?

Thanks for the help and insight.

gmaxey · #2 10-09-2014, 11:07 AM

Why don't you just add the word "County" after the content control?

To answer your question. Yes. Assuming the CC titled "County" add the following to the ThisDocument module of your template project:

Code:

Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
  Select Case CC.Title
    Case "County"
      If Not CC.ShowingPlaceholderText Then CC.Range.Text = CC.Range.Text & " County"
  End Select
End Sub

macropod · #3 10-09-2014, 06:00 PM

And what if they type 'Orange County'?...

ksigcajun · #4 10-13-2014, 05:24 AM

Quote:

Originally Posted by macropod

And what if they type 'Orange County'?...

Thats the problem I have. I figured it would be easier if it would autopopulate.

gmaxey · #5 10-13-2014, 05:37 AM

Then add " County" as fixed text after the CC and use:

Code:

 
Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
  Select Case CC.Title
    Case "County"
      If InStr(CC.Range.Text, " County") > 0 Then CC.Range.Text = Replace(CC.Range.Text, " County", "")
  End Select
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Is there VBA to paste text into content control?	kintap	Word VBA	2	07-02-2014 07:42 AM
Deleting a table from a content control -- preserving the content control	BrainSlugs83	Word Tables	8	11-14-2013 03:06 AM
MS WORD 2007 - Content Control versus Text Form Field question	chamdan	Word VBA	2	11-12-2013 09:51 PM
How do you set rich text in a content control	Testor	Word VBA	4	07-08-2012 07:55 AM
Templates: automatic text generation from Rich Text content control	Chickenmunga	Word	0	10-01-2008 11:16 AM