ASP Word Automation
$10-15 USD
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
Project ID: #3088854