Results 1 to 8 of 8

Thread: Capture content controls to Excel, handle various control types

Thread Tools
- Show Printable Version
Display
- Switch to Linear Mode
- Switch to Hybrid Mode
- Threaded Mode

Threaded View

05-15-2020, 06:57 AM #2

gmaxey

Microsoft Word MVP 2003-2009 VBAX Guru

For i = 1 To intNumContentControls
      DocSheet.Cells(i + 1, 1).Value = WordDoc.ContentControls(i).Title
      If WordDoc.ContentControls(i).Type = 8 Then
        If WordDoc.ContentControls(i).Checked Then
          DocSheet.Cells(i + 1, 2).Value = "True"
        Else
          DocSheet.Cells(i + 1, 2).Value = "True"
        End If
      Else
        DocSheet.Cells(i + 1, 2).Value = WordDoc.ContentControls(i).Range.Text
      End If
    Next i