Error 462 bij het maken van een word-bestand vanuit Access

[rebmog]

Ik genereer vanuit een Access-database een word-bestand. Dat gaat prima. Maar sinds ik daarbij een gedeelte van de tekst wil voorzien van een opsomteken (bullet) krijg ik altijd bij de tweede keer aanroepen van de code een foutmelding. Ik gebruik onderstaande code:

Private Sub btnWordgallery_Click()
    Dim wrdObject As Word.Application
    Dim objListgallery As Object
    Set wrdObject = CreateObject("Word.Application")
    wrdObject.Visible = True
    wrdObject.Documents.Open "C:\Users\gebruikersnaam\Documents\test.docx"
        With wrdObject.Selection
            .Bookmarks.Add "testregel"
            .TypeText "Dit is de eerste testregel" & vbCrLf
            .TypeText "Dit is de tweede testregel" & vbCrLf
            .TypeText "Dit is de derde testregel" & vbCrLf
            .TypeText "Dit is de vierde testregel" & vbCrLf
            .GoTo what:=wdGoToBookmark, Name:="testregel"
            .MoveDown unit:=wdLine, Count:=4, Extend:=wdExtend
        End With
    Set objListgallery = ListGalleries(wdBulletGallery).ListTemplates(1)
    Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=objListgallery
    Set wrdObject = Nothing
    Set objListgallery = Nothing
End Sub

Dit gaat dus de eerste keer telkens goed. Maar als ik na het sluiten van het word-document de code voor de 2e keer aanroep, dan komt er altijd een foutmelding bij de regel Set objListgallery. De foutmelding luidt: "Fout 462 tijdens uitvoering: de externe servercomputer bestaat niet of is niet beschikbaar". Weet iemand hoe dit komt en wat er aan gedaan kan worden?

Rebmog

 

[Tardis]

Probeer dit eens

Set objListgallery = wrdObject.ListGalleries(wdBulletGallery).ListTemplates(1)

Tardis

 

[rebmog]

Tardis, bedankt voor je reactie. Dit is inderdaad een verbetering, omdat dezelfde foutmelding nu een regel opschuift. Dus bij de regel Selection.Range. Wat is hier fout aan?

 

[Tardis]

wrdObject.Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=objListgallery

Tardis

 

[rebmog]

Helemaal goed. Hartelijk dank voor je hulp.

Rebmog

 

[Tardis]

Hier kun je nalezen waarom het eerst niet werkte en nu wel:

http://support.microsoft.com/kb/319832

Gaat over VB maar is ook van toepassing op VBA.
Gaat met name om deze alinea

The Problems in Using Unqualified Code with Office

Tardis

 

[huijb]

@Gemba Dit topic is gedateert. Reageren in een oud topic is niet relevant en ook niet gewenst. Topic gaat op slot. De regel luid: topics
ouder dan drie maanden mogen met rust gelaten mag worden.

 

[huijb]

Gemba Je mag een eigen vraag plaatsen in de daarvoor bestemde sectie.