Makroen kan ikke åbnes

Hej!  ;-)

Jeg har et script (som er fundet her på Eksperten), som skulle kunne generere et word-dokument ud fra noget ASP.

Scriptet ser således ud:


Set Query_funktioner = objConnect.Execute("Select * From funktioner Order by overskrift1")
Set Query_tilbud = objConnect.Execute("Select * From tilbud Where id = "& intId &"")
Set Query_kunde = objConnect.Execute("Select kunde From kunder Where id = "& Query_tilbud("kundeId") &"")


    Set WordApp = CreateObject("word.application")
    Set WordDoc = WordApp.Documents.Add()
       
    WordApp.Application.Visible = False
       
    Set MyRange1 = WordDoc.Paragraphs.Add.Range
    MyRange1.InsertBefore("Testing")       
'    MyRange1.Style = "Heading 1"       
       
    Set MyRange1 = WordDoc.Paragraphs.Add.Range
    MyRange1.InsertBefore(vbcrlf & "Weeh")

    WordDocPath = "c:\"
    WordDoc.SaveAs WordDocPath & Query_kunde("kunde") & "_" & Query_tilbud("dato") & ".doc"
       
    WordDoc.Close
    WordApp.Quit
   
    Set WordDoc = Nothing
    Set WordApp = Nothing

    MsgBox("Completed")


Når jeg eksekverer det, får jeg en fejl om, at "makroen kan ikke åbnes".

Hvad kan dette skyldes?

På forhånd tak!