Van Access naar Word Probleem Saveas

Status
Niet open voor verdere reacties.

rudyV

Gebruiker
Lid geworden
25 feb 2019
Berichten
34
Geacht forum,

Vanuit Access wordt een .dotm gestart en gegevens ingevoerd.
Dotm, omdat daarin sneltoetsen worden gebruikt om macro's uit te voeren.
So far so good.

Bij het opslaan ontvang ik een error 4248 error 4248 “the command is not available because no document is open”

Onderstaand een stukje code (uitgekleed).
Waar gaat het fout?
Code:
Dim sPath As String
Dim Filename As String
Dim sOpen As String

sPath = Application.CurrentProject.Path
sOpen = Application.CurrentProject.Path & "\Test.dotm"

    
Dim sBelangrijk As String
sBelangrijk = "xxxx"
    
    Dim objWord
    Dim objDoc
    Dim objRange

    Set objWord = CreateObject("Word.Application")
    Set objDoc = objWord.Documents.Open(sOpen)

    objWord.Visible = True
    Set objRange = objDoc.Bookmarks("txtDossier").Range
    objRange.InsertAfter (sBelangrijk)

    sPath = Application.CurrentProject.Path & "\" & sDir & "\" & sSubDir & "\" & sFile
    
    Dim NieuwPath As String
    NieuwPath = Application.CurrentProject.Path & "\" & Format(Date, "yyyymmdd") & " Test1.docx"
    
    ActiveDocument.SaveAs Filename:=NieuwPath
    ' error 4248 “the command is not available because no document is open”
    
    Set objRange = Nothing
    Set objDoc = Nothing
    Set objWord = Nothing
 
Laatst bewerkt:
Je gebruikt de sjablonen verkeerd. Een sjabloon in Word is bedoeld om nieuwe documenten mee te maken die zijn gebaseerd op dat sjabloon. Het nieuwe document dat je genereert is dan een docx of docm, als je daar macro's in op wilt slaan. Een dotm openen doe je dus alleen als je de sjabloon wilt wijzigen. En dat doe jij niet. Je moet dus een code hebben die een nieuw document aanmaakt dat is gebaseerd​ op de gewenste sjabloon.
 
Dank je voor je antwoord.
Tunnelvisie noemt men dat, als je het voor de hand liggende niet (meer) ziet.
Dus, dank voor je uitleg en voor de sturing.

By the way, Natuurlijk werk het nu zoals het hoort.

Groet, Ruud.
 
Status
Niet open voor verdere reacties.

Nieuwste berichten

Terug
Bovenaan Onderaan