Hallo Allen,
Ik heb een Word-sjabloon gemaakt, dat via een userform een tweede sjabloon invult.
Deze constructie werkte goed onder mijn eigen account.
Nu ben ik het op het netwerk aan het testen, en loop tegen een fout 5151 aan: "dit document kan niet worden gelezen".
De user heeft wel toegang tot de op te roepen bestanden.
Sterker nog: zodra de user een van de aan te roepen sjablonen handmatig heeft geopend, werkt het hele verhaal wèl, ook als dat eerste sjabloon alweer is gesloten.
De volgende functie staat in de module:
Function getAppPath()
getAppPath = ActiveDocument.AttachedTemplate.Path & Application.PathSeparator
End Function
en deze staat onder de knop van het userform:
Private Sub BtnOk_Click()
Me.Hide
'bij printen moeten de velden geupdate worden
Options.UpdateFieldsAtPrint = True
Documents.Add Template:=getAppPath & "AgendaX.dot", _
newtemplate:=False
Application.ScreenUpdating = False
etc.
Wat zou de oorzaak kunnen zijn? En vooral, hoe los ik dit op?
Vriendelijke groet,
Marjolein
Ik heb een Word-sjabloon gemaakt, dat via een userform een tweede sjabloon invult.
Deze constructie werkte goed onder mijn eigen account.
Nu ben ik het op het netwerk aan het testen, en loop tegen een fout 5151 aan: "dit document kan niet worden gelezen".
De user heeft wel toegang tot de op te roepen bestanden.
Sterker nog: zodra de user een van de aan te roepen sjablonen handmatig heeft geopend, werkt het hele verhaal wèl, ook als dat eerste sjabloon alweer is gesloten.
De volgende functie staat in de module:
Function getAppPath()
getAppPath = ActiveDocument.AttachedTemplate.Path & Application.PathSeparator
End Function
en deze staat onder de knop van het userform:
Private Sub BtnOk_Click()
Me.Hide
'bij printen moeten de velden geupdate worden
Options.UpdateFieldsAtPrint = True
Documents.Add Template:=getAppPath & "AgendaX.dot", _
newtemplate:=False
Application.ScreenUpdating = False
etc.
Wat zou de oorzaak kunnen zijn? En vooral, hoe los ik dit op?
Vriendelijke groet,
Marjolein
Laatst bewerkt:
