Selecting Drop-Down Auto-Populates formatted paragraphs of text

gmayor · #2 01-05-2021, 09:38 PM

The best way to do this would be to create a template that you can supply to colleagues.
The template would contain a userform in which you select the various options required for the document Create a userform .
It is then a relatively simple matter to write the variable text items to the document using rich text content controls to hold the formatted data which could be held in autotext entries stored in the template, using code similar to

Code:

Sub AutoTextToCC(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
    On Error GoTo lbl_Exit
    For Each oCC In ActiveDocument.ContentControls
        If oCC.Title = strCCName Then
            oCC.LockContentControl = True
            oTemplate.AutoTextEntries(strAutotext).Insert Where:=oCC.Range, RichText:=True
            Exit For
        End If
    Next oCC
lbl_Exit:
    Exit Sub
End Sub

If you need a specialist, contact me via my web site.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word form that auto-populates (from Excel sheet) other content controls based on one,manually filled	spinn2046@gmail.com	Word VBA	17	09-15-2020 04:13 PM
Auto Populate Text On Dependent Drop Down Exit	GregStewartPTC	Word VBA	2	02-27-2017 05:37 AM
Auto Text Drop Down List	AJohn403	Word	3	05-01-2015 05:00 AM
Text auto formatted as date format	Aikeedoh	Excel	5	09-06-2013 02:38 AM
Date auto-populates based on checkbox	mcarter9000	Word VBA	5	12-23-2010 12:39 PM