l.zanna
31-08-2004, 15:24
sto cercando di compilare un documento word con asp.
ho creato nel documento dei segnalibri, a cui devo spostarmi e scrivere i valori che prendo da un db.
per fare una prova, ho copiato il codice di una macro.
<%
dim doc
dim percorso
percorso = server.mappath(".")
Set doc = CreateObject("Word.Application")
doc.Visible = True
ChangeFileOpenDirectory percorso
doc.Documents.Open FileName:="scheda.doc", ConfirmConversions:=False, ReadOnly _
:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
:="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
, Format:=wdOpenFormatAuto
Selection.EndKey Unit:=wdLine
Selection.HomeKey Unit:=wdLine
'Sccrive nei segnalibri del documento
'n.b. wdGoTobookmark ่ una costante definita in una libreria.
doc.Selection.GoTo What:=-1, Name:="nome"
With doc.ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
doc.Selection.TypeText Text:="luca"
doc.Selection.GoTo What:=-1, Name:="cognome"
With doc.ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
doc.Selection.TypeText Text:="zanella"
doc.Selection.GoTo What:=-1, Name:="nascita"
With doc.ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
doc.Selection.TypeText Text:="12/04/1978"
%>
ma mi da errore
Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0400)
Prevista istruzione
/word/Default.asp, line 9, column 28
doc.Documents.Open FileName:="scheda.doc", ConfirmConversions:=False, ReadOnly _
il file scheda.doc e nella root del mio sito.....
dove st๒ sbagliando????????????
help
ho creato nel documento dei segnalibri, a cui devo spostarmi e scrivere i valori che prendo da un db.
per fare una prova, ho copiato il codice di una macro.
<%
dim doc
dim percorso
percorso = server.mappath(".")
Set doc = CreateObject("Word.Application")
doc.Visible = True
ChangeFileOpenDirectory percorso
doc.Documents.Open FileName:="scheda.doc", ConfirmConversions:=False, ReadOnly _
:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
:="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
, Format:=wdOpenFormatAuto
Selection.EndKey Unit:=wdLine
Selection.HomeKey Unit:=wdLine
'Sccrive nei segnalibri del documento
'n.b. wdGoTobookmark ่ una costante definita in una libreria.
doc.Selection.GoTo What:=-1, Name:="nome"
With doc.ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
doc.Selection.TypeText Text:="luca"
doc.Selection.GoTo What:=-1, Name:="cognome"
With doc.ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
doc.Selection.TypeText Text:="zanella"
doc.Selection.GoTo What:=-1, Name:="nascita"
With doc.ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
doc.Selection.TypeText Text:="12/04/1978"
%>
ma mi da errore
Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0400)
Prevista istruzione
/word/Default.asp, line 9, column 28
doc.Documents.Open FileName:="scheda.doc", ConfirmConversions:=False, ReadOnly _
il file scheda.doc e nella root del mio sito.....
dove st๒ sbagliando????????????
help