Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 10-14-2019, 06:08 AM
gmaxey gmaxey is offline Bold Content Control Placeholder Windows 10 Bold Content Control Placeholder Office 2016
Expert
 
Join Date: May 2010
Location: Brasstown, NC
Posts: 1,636
gmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nice
Default

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
__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/
Reply With Quote
  #2  
Old 10-14-2019, 09:14 PM
gmayor's Avatar
gmayor gmayor is offline Bold Content Control Placeholder Windows 10 Bold Content Control Placeholder Office 2016
Expert
 
Join Date: Aug 2014
Posts: 4,144
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

Quote:
Originally Posted by gmaxey View Post
Graham's method may work but it will effect the typed text as well
Actually it doesn't appear to in my tests (admittedly not exhaustive), but if you remove the text entered into the control it does not revert to showing the bold placeholder.

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
You could add an Else branch to set the font to normal weight if required.
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote
Reply



Similar Threads
Thread Thread Starter Forum Replies Last Post
Bold Content Control Placeholder Partial bold formatting of content control kevinbradley57 Word 5 05-21-2018 09:22 PM
Bold Content Control Placeholder 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
Bold Content Control Placeholder Deleting a table from a content control -- preserving the content control BrainSlugs83 Word Tables 8 11-14-2013 03:06 AM
Bold Content Control Placeholder SlideMaster: Date Placeholder, Footer Placeholder, Slide Number Placeholder? tinfanide PowerPoint 1 04-05-2013 10:37 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 07:41 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft