Πώς να συμπληρώσετε μια φόρμα ASP Field σε ένα αρχείο Word στο Side Server

Διάφορες εργασίες μπορούν να εκτελούνται με ASP , όπως η δημιουργία ιστοσελίδας και τη δημιουργία προτύπου . Δεδομένου ότι η Microsoft ανέπτυξε τη γλώσσα προγραμματισμού ASP.NET , είναι διαλειτουργικό με άλλα προϊόντα της Microsoft , όπως τα προγράμματα Excel και Word. ASP δεν είναι δύσκολο να στηθεί και να χρησιμοποιηθεί , διότι κινητήρα της εφαρμογής κάνει τα πάντα , από την ολοκλήρωση του έργου και την επεξεργασία του κώδικα για να στείλει τον κώδικα στο πρόγραμμα περιήγησης του χρήστη για την εφαρμογή . Οδηγίες
Η 1

Ξεκινήστε το Microsoft Word και κάντε κλικ στο "Αρχείο" από τη γραμμή μενού . Κάντε κλικ στο " Αποθήκευση ως " από το μενού drop-down . Όταν το παράθυρο διαλόγου Αποθήκευση ως εμφανίζεται , κάντε κλικ στο « μαύρο κάτω βέλος " και επιλέξτε " Πρότυπο εγγράφου ( * . Dot ) " από το drop - down λίστα, όπως μορφή εγγράφου σας . Αυτό το πρότυπο θα είναι φορτωμένο με διάφορα προηγμένα στοιχεία του Microsoft Word, όπως γραφικά και στοιχεία σχεδίασης , τα πεδία συγχώνευσης αλληλογραφίας , το κείμενο και τα πεδία φόρμας check -box , μια ένθετη υποσέλιδο και δυναμική κωδικούς VBA . 2

Επιλέξτε "Προβολή από τη γραμμή μενού και επιλέξτε" Γραμμές εργαλείων "από το drop -down μενού . σε fly -out μενού της γραμμής εργαλείων , κάντε κλικ στο « Έντυπα », και στη συνέχεια να προσθέσετε ένα " πεδίο φόρμας κειμένου " στο έγγραφό σας .

κάντε δεξί κλικ στο " κείμενο πεδίου φόρμας " που δημιουργήσατε και επιλέξτε "Ιδιότητες" για να συγκεντρώσει τις πληροφορίες σελιδοδεικτών . Συσχετίζει ένα όνομα στο πεδίο Bookmark να υπολογισθεί η τιμή του πεδίου συγχώνευσης θα δημιουργήσετε αργότερα . Ρυθμίστε το "Τύπος " σε τακτική κείμενο . Η έξοδος πρέπει να είναι [ ____ ] .
εικόνων 3

Επιλέξτε "Εισαγωγή" από το μενού , στη συνέχεια, επιλέξτε την κατηγορία " Συγχώνευση αλληλογραφίας " και το " MergeField " όνομα πεδίου . " . MERGEFIELD " Πληκτρολογήστε το όνομα που έχετε ορίσει στο κείμενο σας πεδίο φόρμας σελιδοδείκτη νωρίτερα μετά το κείμενο η έξοδος πρέπει να είναι [ όνομα Bookmark ] Επίσης , η είσοδος και η μεταγενέστερη κώδικα VBA για να προστατεύσει τα πεδία MailMerge σας από τη διαγραφή στο πρότυπό σας με άλλους χρήστες . :

Sub Προστασία ()

«

« Προστατέψτε Macro

«

ActiveDocument.Protect wdAllowOnlyFormFields , True

End Sub
Η 4

Εισάγετε τον παρακάτω κώδικα για να ενισχύσει τη λειτουργικότητα του εγγράφου σας με μακροεντολές . Αυτή η επίδειξη παρέχει στους χρήστες σας με πολλά προηγμένα χαρακτηριστικά για το server-side βάσης δεδομένων , και , επίσης, να συγκεντρώσει και να αποθηκεύσει τις τιμές από τα πεδία της φόρμας που έχετε δημιουργήσει για να χρησιμοποιηθεί στη λειτουργία SendRequest :

Ενημέρωση Public Sub ( )

Dim υν Όπως VbMsgBoxResult

yn = MsgBox ( " θέλετε να ενημερώσετε η βάση δεδομένων με το νέο δικαιούχο τις επιλογές σας ; " , vbYesNo , " Ενημέρωση βάσης δεδομένων ; " )

Αν υν = vbNo τότε

Exit Sub

End If

Δημ. βαλς ( 4 ) Όπως Παραλλαγή

Dim Κατάσταση As Integer

Εάν ActiveDocument.FormFields ( " chkA " ) . CheckBox.Value = True τότε

Κατάσταση = 1

ElseIf ActiveDocument.FormFields ( " chkB " ) . CheckBox.Value = True τότε

Status = 2

ElseIf ActiveDocument.FormFields ( " chkC " ) . CheckBox.Value = True τότε

Status = 3

End If

βαλς ( 0 ) = " BeneficiaryStatus = " & Status

βαλς ( 1 ) = " Primary1 = " & Trim ( ActiveDocument.FormFields ( " Primary1 " ) . Αποτέλεσμα )

χρονικά διαστήματα ( 2 ) = " Primary2 = " & Trim ( ActiveDocument.FormFields ( " Primary2 " ) . Αποτέλεσμα )

διαστήματα ( 3 ) = " Contingent1 = " & Trim ( ActiveDocument.FormFields ( " Contingent1 " ) . Αποτέλεσμα )

βαλς ( 4 ) = " Contingent2 = " & Trim ( ActiveDocument.FormFields ( " Contingent2 " ) . αποτέλεσμα)

Dim URL As String Dim

reqname Όπως String Dim

httpstatus As Integer

URL = " http://localhost/Demos/OfficeWriter /Postone /BeneficiarySelection.aspx "

reqname = " UpdateBeneficiaries "

On Error Resume Next

httpstatus = HotCellRequest.SendRequest ( URL , reqname , βαλς )

Αν Err.Number <> 0 τότε

MsgBox " Σφάλμα κατά την αποστολή αιτήματος HotCell . Δεν θα μπορούσε να επικοινωνήσετε σελίδα ενημέρωσης της βάσης δεδομένων διακομιστή " & _

vbCrLf & " Λεπτομέρειες : . " & Err.Description , _

vbCritical , " HotCell Αίτηση απέτυχε "

Exit Sub

End If

On Error GoTo 0

Αν httpstatus = 200 τότε

MsgBox " Έχετε υποβληθεί με επιτυχία επιλογές Δικαιούχος σας . " , _

vbOKOnly , " HotCell Ενημέρωση Πετυχημένος "

Else

MsgBox " Η ενημέρωση της βάσης δεδομένων HotCell δεν πετύχει . Η ενημέρωση της βάσης δεδομένων server-side " & _

" σελίδα επέστρεψε ένα σφάλμα . Ο διακομιστής επέστρεψε κωδικός κατάστασης : " & httpstatus , _

vbCritical , " HotCell Update Error "

End If

End Sub
5

. Εισάγετε τον παρακάτω κώδικα για να ενεργοποιήσετε τη λειτουργία SendRequest στο έγγραφο κοντά προκειμένου να στείλει τις τιμές της φόρμας μέσω HTTP στην σελίδα ASP.NET Αυτό θα συμπληρώσετε τη βάση δεδομένων με τα πεδία της φόρμας που έχετε δημιουργήσει , διατηρώντας παράλληλα όλες τις πληροφορίες ανέπαφα από το πρότυπο εγγράφου του Word :

Public Function SendRequest ( URL As String , requestname As String , ζευγάρια Όπως Variant ) As Integer

Dim strReq Όπως String Dim

oHTTP As Object

» --- για ναXMLHTTPαντικείμενο χρειάζεται αξίες έντυπο που θα αποσταλεί σε αυτή τη μορφή :

" --- " name1 = value1 & όνομα2 = value2 & NAME3 = τιμή3 " , κλπ

» --- είμαστε σχηματίζοντας ένα αίτημα από αυτή τη μορφή εδώ

strReq = Συμμετοχή ( ζεύγη , " & " )

» --- Χρησιμοποιήστε το αντικείμενο XMLHTTP να κάνει την αίτηση HTTP

On Error Συνέχιση Επόμενο

Set oHTTP = CreateObject ( " Msxml2.XMLHTTP.3.0 " )

Εάν Err.Number <> 0 τότε

Err.Raise Err.Number , " HotCellRequest " , _

" δεν ήταν δυνατή η δημιουργία αντικειμένου XMLHTTP που απαιτείται από HotCells . "