Word Sjabloon opslaan met andere naam werkt niet meer

[ScottyDOG]

Beste,
Met de nieuwe versie msAccess 2013 heb ik problemen met het opslaan via VBA van een word document onder andere naam en locatie dit van een copy van een word sjabloon .
De voorgaan de code werkt niet meer.


Dim wrdDoc As Word.Application

wrdDoc.ActiveDocument.SaveAs strFileSavePath !!werkt niet
wrdDoc.Documents.SaveAs FileName:="F:\testbestand.docx" !!werkt niet
wrdDoc.SaveAs "F:\testbestand.docx" !!werkt niet

Het Word document kan worden geopend maar altijd foutmelding bij SaveAs.

Kan iemand informatie bezorgen wat oorzaak kan zijn ...

 

[edmoor]

Handig dat je er ook even de betreffende foutmelding bij laat weten...

 

[OctaFish]

Daarnaast zie ik liever een db met alle benodigde objecten, zodat we het probleem zelf kunnen constateren. Aan correcte code kunnen we immers niks zien.

 

[ScottyDOG]

Beste,

Hierbij een copy van access app, de foutnummers heb ik gemeld in de code,
Met dank bij voorbaat.

 

[Rene71]

je moet de verwijzing msword.olb
microsoft word 14.0 object library
aanvinken

 

[OctaFish]

Volgens mij is in Office 2013 de verwijzing naar versie 15.0, dus dat is wel correct. 14.0 hoort bij Office 2010.

 

[Rene71]

je hebt helemaal gelijk Michel :thumb:

 

[OctaFish]

En de macro doet het, zó uit de doos, (bijna) in één keer goed. De Dialog doet het niet, maar dat is logisch want je geeft niet aan in welke app dat moet gebeuren. En dus krijg je een foutmelding. Zet je hem in de Word procedure, dan is er niks aan de hand. Sowieso kan de code een beetje netter geschreven, dus dat heb ik ook maar even gedaan.

Private Sub Knop2_Click()
Dim wdApp As New Word.Application
    
    With wdApp
        .Documents.Add
        .Visible = True
        With .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
        End With
        With .Dialogs(wdDialogFileSaveAs)
            .Name = "F:\testdoc22.docx"   'Correcte locatie en doc naam wordt niet voorgesteld
            .Show
        End With
        .ActiveDocument.SaveAs "F:\testdoc2.docx"
        .ActiveDocument.Close False
        .Quit
    End With
    Set wdApp = Nothing

End Sub

 

[ScottyDOG]

Beste,

Voordien ook al geprobeerd volgens uw opgegeven code,
Word word geopend met de ingevoerde tekst,
Dan krijg ik het venster Opslaan als maar niet op de ingestelde locatie! dit bij Office 2013.

Ik heb deze nu getest op een andere pc met office 2010 en werkt, ik denk dat er eventueel een probleem is met het uitvoeringsbestand versie 15.0,
Wat denkt u?

 

[OctaFish]

Ik heb je code (zoals hierboven in mijn bericht staat) gedraaid op Access 2013 en Word 2013, en het werkt prima. Ik heb beide Office (2010 en 2013) versies naast elkaar staan, en de code werkt in beide even goed. Dus daar ligt je probleem niet.