space verwijderen na bulletpoints

[vaneijk]

Geachte helpers van het Forum,

Ik ben momenteel bezig om vanuit excel een word document op te laten maken. Tussen alle tekst heb ik een kleine lijst met 'bullet-points' gemaakt van 6 regels, dit kon ik bij microsoft help vinden hoe deze te maken met onderstaande code, uiteraad zou dit makkelijker en eventueel beter kunnen, maar dit is momenteel de manier waarop ik het laat opmaken.

.Content.InsertAfter "Blablabla stuk tekst blablabla"

i = rs.Paragraphs.Count
With .Content
        .Paragraphs(i).Range.ListFormat.ApplyBulletDefault  ''Start plaatsen van 'Bullet-points'
        .InsertAfter "Tekst 1."
        .InsertParagraphAfter
        .InsertAfter "Tekst 2."
        .InsertParagraphAfter
        ''enz tm tekst 6
End with

i = rs.Paragraphs.Count
.Content.Paragraphs(i).Range.ListFormat.ApplyBulletDefault ''Einde plaatsen van 'Bullet-points'

.Content.InsertParagraphAfter
.Content.InsertAfter "Nieuwe tekst blablabla"

Nu loop ik tegen het volgende probleem aan wat ik niet goed begrijp of terug kan vinden.
Nadat ik de lijst met bullet-points heb laten opmaken in Word met bovenstaande code begint de 'Nieuwe tekst' tekst met een vrije ruimte welke gelijk wordt getrokken aan de bullet-point lijst. zie onderstaande opmaak voorbeeld 1:.


Voorbeeld 1:
Blablabla stuk tekst blablabla

• Tekst 1.
• Tekst 2.

(hier zit een vbtab ofzo ?? ) Nieuwe tekst blablabla


Nu wil ik onderstaande voorbeeld 2: zien te bereiken, maar hier kom ik dus niet helemaal uit.


Voorbeeld 2:
Blablabla stuk tekst blablabla

• Tekst 1.
• Tekst 2.

Nieuwe tekst blablabla


Zou een beste helper mij kunnen vertellen wat ik fout doe of wat ik zou moeten aanpassen om dit te kunnen bereiken zodat de 'Nieuwe tekst blablabla' weer begint aan het begin van het blad i.p.v. dat het gelijk wordt getrokken met de Bullet-points??


M.v.g.

E.

 

[vaneijk]

nu zit ik in me bericht dat ik de voorbeelden ook niet krijg zoals ik het bedoel, excuses hiervoor. Ik hoop dat de bedoeling hiervan wordt begrepen.

 

[vaneijk]

Hierbij de volledige code dit ik gebruik:

Set rs = GetObject("C:\Blank word document.doc")

With rs

.Content.InsertAfter "Blablabla stuk tekst blablabla"

i = rs.Paragraphs.Count
With .Content
        .Paragraphs(i).Range.ListFormat.ApplyBulletDefault  ''Start plaatsen van 'Bullet-points'
        .InsertAfter "Tekst 1."
        .InsertParagraphAfter
        .InsertAfter "Tekst 2."
        .InsertParagraphAfter
        ''enz tm tekst 6
End with

i = rs.Paragraphs.Count
.Content.Paragraphs(i).Range.ListFormat.ApplyBulletDefault ''Einde plaatsen van 'Bullet-points'

.Content.InsertParagraphAfter
.Content.InsertAfter "Nieuwe tekst blablabla"

.Windows(1).Visible = True
End with

 

[vaneijk]

heeft er niemand een id hierover?