![]() |
|
#1
|
||||
|
||||
![]()
You can loop through all the controls and apply the appropriate value from the worksheet to the titled control e.g. as follows. You are still going to have to associate 30 titles with the 30 Excel cells
Code:
Dim oCC As ContentControl For Each oCC In ActiveDocument.ContentControls Select Case oCC.TITLE Case "title of control 1" oCC.Range.Text = whatever Case "title of control 2" oCC.Range.Text = whatever Case "title of control 3" oCC.Range.Text = whatever 'etc End Select Next oCC
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#2
|
|||
|
|||
![]()
Thank you. This works great.
|
#3
|
|||
|
|||
![]()
Gmayor,
You posted a way to insert text into a rich content control. Is there a way to insert an image of an Excel table into a rich content control. I can't figure out the how I would need to change what you indicated for text for an image. I would really appreciate the help. |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
tonia8675309 | Word | 5 | 06-08-2018 04:42 PM |
![]() |
Deirdre Kelly | Word VBA | 23 | 09-07-2017 02:51 PM |
![]() |
michael.fisher5 | Word | 9 | 11-19-2014 06:36 AM |
![]() |
Sammie0Sue | Word | 4 | 03-12-2014 01:43 AM |
![]() |
tinfanide | Word VBA | 8 | 03-04-2013 04:15 AM |