Verschillende taken kunnen worden uitgevoerd met ASP , zoals het maken van webpagina's en het genereren template . Aangezien Microsoft ontwikkelde de ASP.NET programmeertaal , het is interoperabel met andere Microsoft-producten , zoals Excel en Word -programma's . ASP is niet moeilijk te installeren en te gebruiken , omdat de motor van de applicatie doet alles , van afwerking van het beroep en de verwerking van de code om de code te sturen naar de browser van de gebruiker voor de uitvoering. Instructies
Start Microsoft Word 1 en klik op " Bestand " in de menubalk . Klik op "Opslaan als" uit het drop - down menu . Wanneer het dialoogvenster Opslaan als verschijnt , klikt u op de ' zwarte omlaag wijzende pijl " en kies " Document -sjabloon ( * . Dot ) "uit het drop - down lijst als uw document formaat . Dit sjabloon zal worden geladen met diverse geavanceerde Microsoft Word- onderdelen , zoals afbeeldingen en tekening elementen , mail merge velden , tekst en check-box formuliervelden , een geneste voettekst en dynamische VBA codes . Kopen van 2 Kies " Uitzicht vanaf de menubalk en selecteer " Werkbalken " uit het drop - down menu . In fly - out menu van de werkbalk , klik op" Formulieren ", en voeg vervolgens een " tekst formulierveld "om uw document .
klik met de rechtermuisknop op de " tekst formulierveld " u hebt gemaakt en kies " Eigenschappen" om de bookmark informatie te verkrijgen . Koppel een naam in het veld bladwijzer om de waarde van de Merge Field je later zult maken krijgen . Stel de "Type " om gewone tekst . de output zou moeten zijn [ ____ ] .
3 Kies "Invoegen" in de menubalk en selecteer vervolgens de " Mail Merge " categorie en de " MERGEFIELD " veldnaam . Voer de naam in die u in uw tekst Form Field eerder bookmark na de tekst de output zou moeten zijn [ Bookmark Name ] ook , voer de volgende VBA- code naar uw MailMerge velden te beschermen tegen in uw sjabloon wordt verwijderd door andere gebruikers " MERGEFIELD . " . : Sub
Protect ( ) op '
' Bescherm Macro
'
ActiveDocument.Protect wdAllowOnlyFormFields , True
End Sub
4 Voeg de volgende code aan uw document functionaliteit te verbeteren met macro's . Deze demo biedt uw gebruikers met veel geavanceerde functies op de server - side -database , en het is ook het verzamelen en opslaan van de waarden uit de formuliervelden die u hebt gemaakt om te worden gebruikt in de SendRequest functie : Public Sub update ( ) Dim yn
Zoals VbMsgBoxResult
yn = MsgBox ( " wilt u updaten de database met uw nieuwe begunstigde selecties ? ' , vbYesNo , "Update Database ?' ) op Twitter Als yn = vbNo dan Exit Sub End
Als
Dim vals ( 4 ) als Variant
Dim Status As Integer
Als ActiveDocument.FormFields ( " chka " ) . CheckBox.Value = True Status dan
= 1 < br > ElseIf ActiveDocument.FormFields ( " chkB " ) . CheckBox.Value = True Status dan
= 2
ElseIf ActiveDocument.FormFields ( " chkC " ) . CheckBox.Value = True Status dan
= 3 End
Als vals
( 0 ) = " BeneficiaryStatus = " & Status vals
( 1 ) = " Primary1 = " & Trim ( ActiveDocument.FormFields ( " Primary1 " ) . Resultaat ) vals
( 2 ) = " Primary2 = " & Trim ( ActiveDocument.FormFields ( " Primary2 " ) . Resultaat ) op Twitter vals ( 3 ) = " Contingent1 = " & Trim ( ActiveDocument.FormFields ( " Contingent1 " ) . Resultaat ) vals
( 4 ) = " Contingent2 = " & Trim ( ActiveDocument.FormFields ( " Contingent2 " ) . resultaat ) Dim URL
als Koord Dim reqname
als Koord Dim httpStatus
als Geheel URL
= " http://localhost/Demos/OfficeWriter /PostOne /BeneficiarySelection.aspx " reqname
= " UpdateBeneficiaries "
On Error Resume Next httpStatus = HotCellRequest.SendRequest
( URL , reqname , vals ) op Als Err.Number < > 0 Then MsgBox " Fout
sturen HotCell aanvraag. Kon geen contact met de server -database -update pagina " & _ vbCrLf
& " Details : . " & Err.Description , _
vbCritical , " HotCell Request Failed " Exit Sub
End
Als
On Error GoTo 0
Als httpStatus = 200 dan MsgBox
" je hebt de Begunstigde selecties ingediend . " , _ < br > vbOKOnly , " HotCell update Geslaagd "
Else MsgBox
" De update van de database HotCell niet gelukt . De server - side update van de database " & _ Nieuws" pagina heeft een fout geretourneerd . De server heeft statuscode : " & httpStatus _
vbCritical , , " HotCell Fout van de Update " End
Als End Sub
5
. Voer de onderstaande code om de SendRequest functie document dicht in staat te stellen het formulier waarden via HTTP naar de ASP.NET-pagina Dit zal de database te vullen met de formuliervelden die u hebt gemaakt terwijl alle gegevens intact uit het Word-document template : < br > Overheidsfunctie SendRequest ( URL als Koord , requestname als Koord , paren als Variant ) als Geheel Dim strReq als Koord
Dim oHTTP als Voorwerp
'
--- De deXMLHTTPobject moet vorm waarden in deze vorm worden meegedeeld :
' --- " name1 = waarde1 & name2 = waarde2 & name3 = waarde3 " , etc
' --- we zijn het vormen van een verzoek van dat formaat hier strReq = Join ( paren , " & " ) op Twitter ' --- Gebruik de deXMLHTTPobject aan de HTTP- aanvraag
doen On Error Resume Next Set oHTTP = CreateObject
( " Msxml2.XMLHTTP.3.0 " ) op Twitter Als Err.Number < > 0 Err.Raise Err.Number dan
, " HotCellRequest " , _
" Kon niet deXMLHTTPobject die vereist is door HotCells creëren . " Exit Function End
Als
On Error GoTo 0
On Error Resume Next oHTTP.Open " POST "
, URL , Valse
Als Err.Number < > 0 Then Err
. verhogen Err.Number , " HotCellRequest " , _
" HotCell niet om verbinding te maken " & URL & " " & _ Err.Description
Exit Function
End If
On Error GoTo 0
' --- We moeten dit in te stellen wanneer het indienen van formuliergegevens oHTTP.SetRequestHeader " Content - Type"
, " application /x - www-form - urlencoded " oHTTP.SetRequestHeader
" x - SaHotCellRequest " , requestname
' --- Stuur de aanvraag
On Error Resume Next < br > oHTTP.Send CStr ( strReq ) op Als Err.Number < > 0 Then
Err.Raise Err.Number , " HotCellRequest " , _
" HotCell gefaald bij het verzenden van gegevens naar " & URL & " " & _ Err.Description
Exit Function End
Als
On Error GoTo 0
SendRequest = oHTTP.Status
' --- Clean up
Stel oHTTP = Nothing
End Function
< br >
|
