Adding ContentControl to a table

milena · #1 04-17-2015, 07:35 AM

I'm trying to add a row to a table. How can I add a date picker to one of the cells?

That's a part of the code that I have a problem with:

Code:

Sub addR()

Dim oTable As Table
Dim oCell As Cell
Dim oNewRow As Row
Dim oCCtrl As ContentControl

 ' Insert new row
    Set oTable = ActiveDocument.Tables(1)
    Set oNewRow = oTable.Rows.add

 For Each oCCtrl In ActiveDocument.ContentControls
        With oCCtrl
            If .Type = wdContentControlDate Then oNewRow.Cells(1).Range.Text = ""
        End With
  Next oCCtrl

End Sub

I'm not sure if I'm on the right path, but I would be grateful for any suggestions.

Thanks!

gmayor · #2 04-17-2015, 11:08 PM

It is not the controls (which don't yet exist) that you want to cycle through, but the cells in the added row. e.g.

Code:

Sub addR()
Dim oTable As Table
Dim oCell As Cell
Dim oNewRow As Row
    'identify table
    Set oTable = ActiveDocument.Tables(1)
    ' Insert new row
    Set oNewRow = oTable.Rows.Add
    'identify the required cell in the new row
    Set oCell = oNewRow.Cells(1)        'the first cell in the row
    'add a date control to the cell
    ActiveDocument.ContentControls.Add wdContentControlDate, oCell.Range
lbl_Exit:
    Exit Sub
End Sub

milena · #3 04-20-2015, 01:04 AM

Ahh ok! Thanks a lot!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Create UserForm ComboBox or ContentControl	ptmuldoon	Word VBA	11	01-17-2015 05:58 PM
Adding Rows to a Table	SuzeG	Word VBA	8	01-02-2014 08:05 AM
Trying to Reference a ContentControl Using DocProperty	SuzeG	Word VBA	4	12-17-2013 03:40 PM
Activate/ select ContentControl	czsti	Word VBA	1	08-14-2013 08:32 AM
adding table to a particular place	hklein	Word VBA	2	07-25-2011 01:45 AM