CCTag | Detection of CCTag markers made up of concentric circles | Computer Vision library

Firstly, I recommend that you refer to your range directly by referencing the workbook/worksheet you have declared in your variable cs This will ensure your subroutine executes on the correct workbook and correct worksheet.

If I have understood your question correctly - you would like to transfer a set of values in an Excel range over to the matching MS Word content control box - the issue would appear to be your use of

CStxt = Range(CCTag)

You cannot assign a variable of type string (CStxt) to an entire range of cells. This would generate a "Runtime error 13: Type mismatch" when executing your code.

In order to get this line to work, I had to change it to a single value/cell reference. See example below;

CStxt = cs.Sheets(1).Range("A1")

In this example, cell A1 has the value you want to transfer over to the relevant MS Word content control. This has the effect of giving the content control a display value equal to the Excel value, but is not added to the list to allow you to select it.

You can change the reference to A1 so that your named range is a single cell.