Microsoft Office Forums - View Single Post - [Solved] Adding auto text to end of content control field

gmaxey · 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