Temat: aplikacja o prace online
Najlepiej przez jakieś API.
Przykład konwertera online "word-> pdf":
' Get local path as varPath
arrayScr = Split(WScript.ScriptFullName, "\", -1, 1)
For i = 0 to UBound(arrayScr) - 1
strPath = strPath & arrayScr(i) & "\"
Next
' Define File Variables
strFileToCreate = strPath & "doc.pdf"
strFileToConvert = strPath & "word.doc"
' Instantiate the PrimoPDF Object
Set APPrimo = CreateObject("PrimoAPI.Object")
' Licensing Information (ignored with evaluation version)
APPrimo.UserString = "xxxxxxxxxxx"
APPrimo.LicenseKey = "POAxxxxxxxxxxxxxxxxxxxx"
' Set the output file name and location
APPrimo.OutputFile = strFileToCreate
' Optional properties should be added here
' Logging
APPrimo.DebugLogging = False
' Update the PrimoAPI printer with new settings
rtnPrinter = APPrimo.CreatePrinter
If rtnPrinter = 0 Then
' Automate the application to print to the PrimoAPI printer
Set WordObject = CreateObject("Word.Application")
WordObject.DisplayAlerts = False
Set NewDoc = WordObject.Documents.Open (strFileToConvert, False, True)
Set WordDialog = WordObject.Dialogs(97)
WordDialog.Printer = "PrimoAPI"
WordDialog.DoNotSetAsSysDefault = 1
WordDialog.Execute
NewDoc.PrintOut False
NewDoc.Close False
WordObject.Quit False
Set WordObject = Nothing
' Return the status
pdfStatus = APPrimo.CheckStatus(30)
Select Case pdfStatus
Case 0
msgbox "Success!", 0, "Conversion"
Case -1
msgbox "File to create not specified!", 16, "Error"
Case -2
msgbox "Timeout!", 16, "Error"
Case -3
msgbox "Old file found!", 16, "Error"
Case Else
msgbox "Unknown Error: " & pdfStatus, 16, "Error"
End Select
Else
MsgBox "Create/Update Printer Error: " & rtnPrinter, 16, "Error"
End If
' Clear PrimoAPI Object
Set APPrimo = Nothing
Albo przez coś takiego jak Pdf Form Filler.
Przykład tutaj:
http://www.pdfescape.com/
Więcej tu:
http://www.google.pl/#hl=pl&source=hp&q=pdf+online+edi...
A najmniej zabawy, to zwykły formularz na stronie z opcją wysyłki
na @ i po sprawie :)
Marcin B. edytował(a) ten post dnia 20.11.09 o godzinie 12:38