#1
|
|||
|
|||
Bold Content Control Placeholder
I have a content control on a template, which has the placeholder text in bold. I used design mode to get the text into bold in the first place.
I am trying to create a code that will change the placeholder text (based on options in a userform), but retain the bold formatting. The code below changed the text, but the bold formatting is lost. What do I need to add to control the formatting? Code:
Sub ChangePlaceholder() Dim objCC As ContentControl Set objCC = ActiveDocument.SelectContentControlsByTag("myContentControl").Item(1) objCC.SetPlaceholderText , , "New Placeholder Text" End Sub |
#2
|
||||
|
||||
Add the line
objCC.Range.Font.Bold = True before End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#3
|
|||
|
|||
Graham's method may work but it will effect the typed text as well. If you want the PHT to be bold and the typed text normal then you could set the PHT to saved building block entry of the PHT with block font) e.g.,
Code:
If A Then ActiveDocument.ContentControls(1).SetPlaceholderText ThisDocument.AttachedTemplate.BuildingBlockEntries("PHT1") Else ActiveDocument.ContentControls(1).SetPlaceholderText ThisDocument.AttachedTemplate.BuildingBlockEntries("PHT2") End If |
#4
|
||||
|
||||
Quote:
You could get round that with a macro Code:
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean) If ContentControl.Title = "myContentControl" Then If ContentControl.ShowingPlaceholderText = True Then ContentControl.Range.Font.Bold = True End If End If End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#5
|
|||
|
|||
Graham, you are right. Yesterday, I could have sworn after running your bit a code on a CC that after I typed in it, the text was bold. Not the case today. Thanks.
|
#6
|
|||
|
|||
Thanks, guys.
|
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Partial bold formatting of content control | kevinbradley57 | Word | 5 | 05-21-2018 09:22 PM |
Don't Print Content Control Placeholder Text | vera | Word VBA | 3 | 07-01-2016 01:57 PM |
How to set the Content Control placeholder default text | dsimon14 | Word VBA | 3 | 03-27-2015 07:15 AM |
Deleting a table from a content control -- preserving the content control | BrainSlugs83 | Word Tables | 8 | 11-14-2013 03:06 AM |
SlideMaster: Date Placeholder, Footer Placeholder, Slide Number Placeholder? | tinfanide | PowerPoint | 1 | 04-05-2013 10:37 AM |