witregels in word verwijderen, na macro vanuit excel

[mieppie1984]

Goedemiddag,

Vanuit Excel (macro start ik daar) vul ik in Word een offerte-sjabloon via de bladwijzers.
Niet alle bladwijzers worden gebruikt, waardoor er vele lege witregels in het document blijven.
Hoe kan ik er voor zorgen dat hij deze lege witregels (2 mogen er blijven, dus 1 witregel tussen de alinea) ook automatisch verwijderd in het sjabloon bij het uitvoeren van de macro vanuit Excel?
Heb eea gelezen over het gebruik van ^p, maar hier kom ik nog niet uit.
Hebben jullie een voorzet voor me?

Dit is de code die er nu is (korte versie):

Sub Offerte() 
Dim objWord As Object
Dim ws As Worksheet


Set s3 = ThisWorkbook.Sheets("checklist") )
Set sw = ThisWorkbook.Sheets("offerte word") 


    Set objWord = CreateObject("Word.Application")

    objWord.Visible = True

    objWord.Documents.Add Template:="W:sjabloon.dot"



    With objWord.ActiveDocument
    
        .bookmarks("aannemer").Range.Text = s3.Range("d5").Value


End With
    
    Set objWord = Nothing

End Sub

Ik heb het idee om aan het eind van deze macro de macro voor het verwijderen van de witregels aan te roepen, maar vraag me tegelijk ook af of dat wel werkt vanuit Excel.
wellicht moet ik de macro voor de witregels koppelen aan het wordsjabloon en die aanroepen?

Wie weet er raad mee?

gr. Miranda

 

[OctaFish]

In een bladwijzer hoeven geen alienamarkeringen te zitten, dus waarom heb je dat gedaan? Haal ze in ieder geval uit je document weg, en plaats ze bij het vullen in je macro.

 

[mieppie1984]

Hoi OctaFish,

dat verschil heb ik opgemerkt.
Als ik de bladwijzer in Word typ en selecteer zonder het "enter" teken, dan blijft uiteraard de enter staan als de bladwijzer niet gevuld wordt.
Als ik de bladwijzer met "enter" teken selecteer, dan verdwijnt de witregel als de bladwijzer leeg blijft.

Nu dacht ik slim te wezen en alle bladwijzers incl. enter teken op te maken.
helaas werkt dan meer dan de helft van de bladwijzers niet meer!
Dit probleem had ik al eerder op het forum gepost, maar helaas nog geen oplossing gevonden.

"Plaats ze bij het vullen van de macro": de bladwijzers staan op een vaste plek in het word sjabloon, hoe kan ik ze naar deze plek wijzen als ik ze nog moet aanmaken in de macro?
dank voor je hulp!

gr. Miranda