#1
|
|||
|
|||
How to set the Content Control placeholder default text
Hi,
I'm designing word documents as templates for my web application. I'm using content controls to be able to get the content of the document in Java. I'm using Word 2010. When you create a content control, it sets a default placeholder text where it's written "Click here to enter text" (for input fields for example). I like this feature because my users can just click anywhere and it's automaticaly replaced by the text typed. What I'd like to do is to set The default message in French and German for my others documents. I've tried some tricks but nothing works. Something like that : Code:
Sub temp1() Dim aCC As ContentControl For Each aCC In ActiveDocument.ContentControls aCC.SetPlaceholderText , , "Now I can see the placeholder text" Next aCC End Sub Code:
Dim toggleDesignMode As Boolean toggleDesignMode = ThisDocument.FormsDesign If (toggleDesignMode) Then ThisDocument.ToggleFormsDesign End If Dim aCC As ContentControl For Each aCC In ActiveDocument.ContentControls If aCC.Tag = "SecteurActivite" Or aCC.Tag = "Pays" Then aCC.SetPlaceholderText , , "Choose an item." ElseIf aCC.Tag = "NomClient" Or aCC.Tag = "Site" Or aCC.Tag = "DureeProjet" Or aCC.Tag = "AnneeRealisation" Or aCC.Tag = "Description" Or aCC.Tag = "LibelleProjet" Or aCC.Tag = "SousTitre" Or aCC.Tag = "Benefices" Then aCC.SetPlaceholderText , , "Click here to input text" Else aCC.SetPlaceholderText , , "no reason to display this one" End If Next aCC 'This is not working ! ThisDocument.ToggleFormsDesign |
#2
|
||||
|
||||
You don't need to toggle the design mode
Code:
Dim aCC As ContentControl For Each aCC In ActiveDocument.ContentControls Select Case aCC.Tag Case "SecteurActivite", "Pays" aCC.SetPlaceholderText , , "Choose an item." Case "NomClient", "Site", "DureeProjet", _ "AnneeRealisation", "Description", "LibelleProjet", _ "SousTitre", "Benefices" aCC.SetPlaceholderText , , "Click here to input text" Case Else aCC.SetPlaceholderText , , "no reason to display this one" End Select Next aCC
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#3
|
|||
|
|||
Your first snippet of code works here just fine. What happens when you run that code on your active document containing CCs?
|
#4
|
|||
|
|||
I just discovered that I could execute directly the macro ^^ (yeah I'm pretty new to vba/macros).
I was using the document_open event. I tried executing the macro, it doesn't do anything. In the step by step it seems that ActiveDocument.ContentControls is empty (ActiveDocument shows my file and seems to be ok). |
|
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 |
Limit text length Content Control | NobodysPerfect | Word | 10 | 02-28-2014 02:40 PM |
Deleting a table from a content control -- preserving the content control | BrainSlugs83 | Word Tables | 8 | 11-14-2013 03:06 AM |
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 |