I'm trying to use VBA to add a list to a Word document and format it as a bulleted list. It just so happens that the list is generated from the captions of check boxes in my Excel sheet. I want the bullet points to start in the Word document on the next line following "Company will complete the following:"
This code is almost there, the problem I have is that it makes the line "Company will complete the following:" the first bullet point. I need the bullets to start after that line. Any suggestions?
With wrdDoc.Content
.Find.Forward = True
.Find.Wrap = wdFindStop
.Find.Text = "Company will complete the following:"
.Find.Execute
.InsertParagraphAfter
For i = 1 To 6
If Excel.Application.Sheets("Commercial Calculator").OLEObjects("Checkbox" & i).Object.Value = True Then
.InsertAfter Excel.Application.Sheets("Commercial Calculator").OLEObjects("Checkbox" & i).Object.Caption
.InsertParagraphAfter
.ListFormat.ApplyBulletDefault (wdWord9ListBehavior)
End If
Next i
End With
Thank you in advance
Bookmarks