ASP Word Automation

Closed Posted Feb 4, 2004 Paid on delivery
Closed Paid on delivery

I want to create a word document from ASP.

on the web server using automation.

Sub createDoc()

Dim wordApp

Dim wordDoc

Set wordApp = CreateObject("[url removed, login to view]")

With wordApp

.visible=False

.WindowState = wdWindowStateMaximize

.[url removed, login to view]

Set wordDoc = [url removed, login to view]

.[url removed, login to view] "c:\[url removed, login to view]"

.Quit

End With

Set wordDoc = Nothing

Set wordApp = Nothing

End Sub

Call createDoc

<% Sub createDoc() Dim wordApp Dim wordDoc Set wordApp = CreateObject("[url removed, login to view]") With wordApp .visible=False .WindowState = wdWindowStateMaximize .[url removed, login to view] Set wordDoc = [url removed, login to view] .[url removed, login to view] "c:\[url removed, login to view]" .Quit End With Set wordDoc = Nothing Set wordApp = Nothing End Sub Call createDoc %><% Sub createDoc() Dim wordApp Dim wordDoc Set wordApp = CreateObject("[url removed, login to view]") With wordApp .visible=False .WindowState = wdWindowStateMaximize .[url removed, login to view] Set wordDoc = [url removed, login to view] .[url removed, login to view] "c:\[url removed, login to view]" .Quit End With Set wordDoc = Nothing Set wordApp = Nothing End Sub Call createDoc %><% Sub createDoc() Dim wordApp Dim wordDoc Set wordApp = CreateObject("[url removed, login to view]") With wordApp .visible=False .WindowState = wdWindowStateMaximize .[url removed, login to view] Set wordDoc = [url removed, login to view] .[url removed, login to view] "c:\[url removed, login to view]" .Quit End With Set wordDoc = Nothing Set wordApp = Nothing End Sub Call createDoc %><% Sub createDoc() Dim wordApp Dim wordDoc Set wordApp = CreateObject("[url removed, login to view]") With wordApp .visible=False .WindowState = wdWindowStateMaximize .[url removed, login to view] Set wordDoc = [url removed, login to view] .[url removed, login to view] "c:\[url removed, login to view]" .Quit End With Set wordDoc = Nothing Set wordApp = Nothing End Sub Call createDoc %>

## Deliverables

1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done.

2) Installation package that will install the software (in ready-to-run condition) on the platform(s) specified in this bid request.

3) Exclusive and complete copyrights to all work purchased. (No GPL, GNU, 3rd party components, etc. unless all copyright ramifications are explained AND AGREED TO by the buyer on the site per the coder's Seller Legal Agreement).

## Platform

Win 2000

ASP Engineering MySQL PHP Software Architecture Software Testing

Project ID: #3088854

About the project

2 proposals Remote project Active Feb 13, 2004

2 freelancers are bidding on average $9 for this job

gautammassoft

See private message.

$5.95 USD in 1 day
(13 Reviews)
3.8
msmughal

See private message.

$12.75 USD in 1 day
(35 Reviews)
3.6