Opslaan in aan te maken map onder een bepaalde naam

[naprius]

Hallo mensen,

Ik heb een Word-document dat ik automatisch wil laten opslaan in een aan te maken map met als naam een combi van de inhoud van velden. Het bestand moet ook een combinatie worden van de inhoud van een aantal velden.
Ik heb een stuk code van het forum afgeplukt, maar krijg hem niet werkend. VB roept continu "object vereist" en ik krijg het maar niet kloppend..

Sub opslaan()
Dim stPath As String

    stPath = "W:\Revalidatie\Uitleen indicatieformulieren\"
    stPath = stPath & contactnr.Value & "-" & naam.Value
    With CreateObject("Scripting.FileSystemObject")
        If Not .FolderExists(stPath) Then .CreateFolder stPath
    End With
    ActiveDocument.SaveAs FileName:=stPath & "Hoog laag bed" & naam.Value & ".doc"

End Sub

Een duwtje in de goede richting?

Alvast bedankt,

Groeten naprius

 

[OctaFish]

De melding wordt veroorzaakt doordat de juiste bibliotheek niet is geladen. Misschien moet je nog een verwijzing naar de <Microsoft Office Object Library> toevoegen, of naar de <Microsoft Scripting Runtime>.
Als je code van het net plukt, kijk dan in het betreffende topic ook of er nog over aanvullende bibliotheken wordt gerept

 

[naprius]

Nu kan ik dat topic natuurlijk niet meer terugvinden

Ik heb het topic vrij goed doorgelezen maar er werd niet gerept over andere bibliotheken.. Ik heb overigens die bibliotheken die je zei aangevinkt bij Extra -> Verwijzingen.. but no joy

 

[naprius]

Nope, krijg het niet spits

Moet ik een andere code gebruiken of moet ik iets aanroepen in de code??