Risk Matrix table using Content Controls

macropod · #6 07-18-2018, 06:08 PM

Try the attached. I needed to make some minor changes to your table (including restoration of the placeholder texts), but that won't affect its utility.

Note: If you want to shade the output cells to match the ratings, you could change:

Code:

  .Range.Tables(1).Cell(r, c).Range.Text = StrTxt

to:

Code:

  With .Range.Tables(1).Cell(r, c)
    .Range.Text = StrTxt
    .Shading.BackgroundPatternColor = Tbl.Cell(i + 1, j + 1).Shading.BackgroundPatternColor
  End With

Do note, though, that this will apply the light grey shading to those cells if you click through them without making a selection. Making that the default state might work for you.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
insert the 2 content controls into a Repeating Section in a table	smaccharoli	Word VBA	2	02-27-2018 08:49 AM
Duplicating one or more table rows or an entire table with content controls	kevinbradley57	Word VBA	10	08-17-2017 02:13 PM
2nd matrix gives a resut that doesn´t match numbers in the 1st matrix	Diver	Excel	25	02-22-2017 04:39 PM
Macro to save docx to doc that checks compatibility and converts content controls to static content.	staicumihai	Word VBA	4	10-12-2016 08:23 PM
Content Controls - Add Table Rows	dgiromini	Word VBA	1	04-11-2014 03:04 PM