Word VBA efficiency (novice)

[gmayor]

You can insert more than one autotext entry into a content control, one after another, but you would need to modify the code to allow that e.g. the following will insert the

Sub AutoTextToCC2(strCCName As String, oTemplate As Template, strAutotext As String)
    ' Graham Mayor - https://www.gmayor.com - Last updated - 10 Apr 2019
    ' strCCName is the ContentControl title
    ' oTemplate is the template with the autotext entry
    ' strAutotext is the name of the autotext entry
    Dim oCC As ContentControl
    Dim oRng As Range
    On Error GoTo lbl_Exit
    For Each oCC In ActiveDocument.ContentControls
        If oCC.TITLE = strCCName Then
            oCC.LockContentControl = True
            Set oRng = oCC.Range
            If oCC.ShowingPlaceholderText = False Then
                oRng.Collapse 0
            End If
            oTemplate.AutoTextEntries(strAutotext).Insert Where:=oRng, RichText:=True
            Exit For
        End If
    Next oCC
    lbl_Exit:
    Exit Sub
End Sub

You can use macros to limit the length of the content of a control.