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?
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: