Push Word content control data and excel cells

Guessed · #13 08-27-2018, 06:36 AM

So you need to change the loop to only look for particular text CCs. I would do this by using the CC Title property to nominate which text CCs are meant to feed the XL workbooks

Code:

Function UpdateXL(xlWkBk As Object)
  Dim aCC As ContentControl, sSheet As String, sCell As String, sValue As String
  For Each aCC In ActiveDocument.SelectContentControlsByTitle("Excel Data")
    If aCC.Type = wdContentControlText Then
      sSheet = Split(aCC.Tag, "!")(0)
      sCell = Split(aCC.Tag, "!")(1)
      sValue = aCC.Range.Text
      xlWkBk.Sheets(sSheet).Range(sCell).Value = sValue
    End If
  Next aCC
End Function

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Importing content control data from excel and populate two fields on selected dropdown	badarlodhi	Word VBA	8	02-08-2023 10:47 AM
Export Word Drop-Down Content Control to Excel Specific Sheet	nolanthomas32	Word VBA	4	09-19-2017 06:25 AM
Edit table cells based on content control selection	gennatr12	Word VBA	7	03-26-2017 08:51 PM
Content Control Copy - Copies Data and CC itself	shammi_raj	Word	3	03-30-2016 07:01 PM
Push data automatically from Acess or Excel to create a Gantt chart in Project	GST2212	Project	3	07-06-2012 12:52 PM