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!

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