Capitalize the first letter in a content control

PSSMargaret · #14 06-15-2016, 04:39 PM

gmaxey,

The below code you provided has worked perfectly with all of my testinig. The form I'm developing contains rich text content controls. You have to enter a shift+enter for a carriage return for a new paragraph. Is there any code that we can add to this, or separate code, that will assure the first letter of a new paragraph after two shift+enters will automatically be capitalized?

Margaret

Code:

Private Sub Document_ContentControlOnExit(ByVal CCtrl As ContentControl, Cancel As Boolean)
With CCtrl
  Select Case .Type
    Case wdContentControlText, wdContentControlRichText, wdContentControlComboBox
      On Error Resume Next
      .Range.Characters.First = UCase(.Range.Characters.First)
      Case Else
  End Select
End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to capitalize first letter after timecode + tab	muiy	Word VBA	1	06-17-2015 11:03 PM
Deleting a table from a content control -- preserving the content control	BrainSlugs83	Word Tables	8	11-14-2013 03:06 AM
Only Capitalize First Letter & Delete Last Name	zulhfreelancer	Excel	5	12-10-2012 07:51 AM
Exceptions for 'Capitalize first letter of sentences'	gazpacho	Word	1	01-12-2012 11:43 AM
capitalize first letter of sentences	norco1	Word	0	06-25-2006 12:37 PM