I modified the code a bit
Added a .Trim to Range.TextFor 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.Trim End If Next i
Now I get Invalid Qualifier error. How do I make this code work?