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











LinkBack URL
About LinkBacks
Register To Reply
Bookmarks