Also, you have to lower the security settings on the browser to allow the creation of the instance.
Dim myWdApp, myWd
On Error Resume Next
Set myWdApp = CreateObject("Word.application")
myWdApp.Visible = True
Set myWd = myWdApp.Documents.Add
If Err.Number<>0 Then
If...
Might Help,
try this:
Sub MakeWord()
Dim myWdApp,myWd
Set myWdApp = CreateObject("Word.Application")
myWdApp.Visible = True
Set myWd = myWdApp.Documents.Add
End Sub
Note: This creates the instance on the client machine and not on your server.
To create an instance on your server...
try this too
Set myXLApp = createobject("Excel.Application")
myXLApp.Visible = True
Set myXL = myXLApp.Workbooks.Add
Set mySheet =myXL.WorkSheets(1)
Set myRng = mySheet.Range("A1")
rCount=0
With myRng.Offset(rCount,0)
.Font.Bold = True
.value="This is it"...
yep!
You could write this in a sub:
Sub NavigateTo(sUrl)
Response.redirect sUrl
End Sub
or
<input type=button onclick="Javascript:window.location.href 'http://whatever.asp'">
Hope this helps :-)
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.