Verschiedene Aufgaben können mit ASP durchgeführt werden , wie z. B. die Erstellung von Webseiten und Template- Generation . Da Microsoft ASP.NET entwickelt die Programmiersprache , ist es kompatibel mit anderen Microsoft-Produkten , wie z. B. Excel -und Word- Programme . ASP ist nicht schwierig einzurichten und zu verwenden, da die Anwendung der Motor macht alles , von dem Beenden des Auftrags und die Verarbeitung der Code zum Senden der Code im Browser des Benutzers für die Umsetzung. Anleitung
1
Starten Sie Microsoft Word und klicken Sie auf "File" in der Menüleiste . Klicken Sie auf " Speichern unter " aus dem Drop -Down-Menü . Wenn das Dialogfeld Speichern unter angezeigt wird, klicken Sie auf den " schwarzen nach unten zeigenden Pfeil " und wählen Sie " Dokument -Vorlage (* . Dot) " aus dem Drop -Down-Liste als Dokument-Format . Diese Vorlage wird mit verschiedenen fortgeschrittenen Microsoft Word -Komponenten wie Grafik und Zeichnung Elemente , Seriendruck Feldern, Text und Kontrollkästchen Formularfelder einer verschachtelten footer und dynamischen VBA -Codes geladen werden.
2
Wählen " aus der Menüleiste auf Ansicht und wählen Sie" Symbolleisten "aus dem Drop -Down-Menü . In der Symbolleiste fly- out-Menü , klicken Sie auf " Formulare ", und fügen Sie dann einen " Text-Formularfeld " , um das Dokument .
< p > auf der " Text-Formularfeld " Sie erstellt die rechte Maustaste und wählen Sie "Eigenschaften " , um das Lesezeichen zu erhalten. Ordnen Sie einen Namen in das Feld Bookmark , um den Wert des Merge- Feld, das Sie später erstellen werden erhalten. Stellen Sie den "Typ" in normalen Text . die Ausgabe sollte [ ____ ] .
3
wählen Sie "Einfügen" in der Menüleiste und wählen Sie dann die " Seriendruck " Kategorie und die " MergeField " Feldnamen. Geben Sie den Namen, den Sie zu Ihrem Text Form Field bezeichnet Bookmark früher nach dem Text die Ausgabe sollte [ Bookmark Name] auch Eingang der nachfolgende VBA -Code in Ihre MailMerge Felder aus , die in der Vorlage von anderen Usern gelöscht schützen " MERGEFIELD . " . :
Sub Schützen ()
'
' Schützen Makro
'
ActiveDocument.Protect wdAllowOnlyFormFields , Wahre
< p > End Sub
4
Fügen Sie den folgenden Code , um das Dokument mit Makros Funktionalität zu verbessern. Diese Demo bietet Ihren Nutzern mit vielen erweiterten Funktionen auf der serverseitigen Datenbank , und es auch sammeln und speichern die Werte aus die Formularfelder Sie erstellt im SendRequest Funktion verwendet werden :
Public Sub Update ()
Dim yn Wie VbMsgBoxResult
yn = MsgBox (" möchten Sie aktualisieren die Datenbank mit Ihrem neuen Begünstigten Auswahl ? " , vbYesNo , " Update Database ? ")
Wenn yn = vbNo Dann
Exit Sub End If
< p > Dim Vals (4) As Variant Dim
Stand As Integer
Wenn ActiveDocument.FormFields ( " chka " ) . CheckBox.Value = True Then
Status = 1
ElseIf ActiveDocument.FormFields ( " chkB " ) . CheckBox.Value = True Then
Status = 2
ElseIf ActiveDocument.FormFields ( " chkC " ) . CheckBox.Value = True Then
Status = 3
End If
Vals (0) = " BeneficiaryStatus =" & Status
Vals (1) = " Primary1 = " & Trim ( ActiveDocument.FormFields ( " Primary1 " ) . Result)
Vals (2) = " Primary2 = "& Trim ( ActiveDocument.FormFields ( " Primary2 " ) . Result)
Vals (3) = " Contingent1 =" & Trim ( ActiveDocument.FormFields ( " Contingent1 " ) . Result)
Vals (4) = " Contingent2 =" & Trim ( ActiveDocument.FormFields ( " Contingent2 " ) . Ergebnis )
Dim URL As String Dim
reqname As String Dim
httpStatus As Integer
URL = " http://localhost/Demos/OfficeWriter /Postone /BeneficiarySelection.aspx "
reqname =" UpdateBeneficiaries "
On Error Resume Next
httpStatus = HotCellRequest.SendRequest (URL , reqname , Vals )
< p> Wenn Err.Number < > 0 Then
MsgBox " Fehler beim Senden Hotcell Anfrage. Server konnte nicht kontaktiert Datenbank-Update -Seite "& _ vbCrLf &
" Details: . " & Err.Description , _
vbCritical " Hotcell Anfrage fehlgeschlagen "
Exit Sub
End If
On Error GoTo 0
Wenn httpStatus = 200 Dann
MsgBox " Sie haben erfolgreich Ihre Begünstigter Auswahl vorgelegt . ", _
vbOKOnly " Hotcell Aktualisierung erfolgreich "
Else
MsgBox " Die Hotcell Datenbank-Update nicht erfolgreich war . Die serverseitige Datenbank-Update "& _
" Seite hat einen Fehler zurückgegeben . Der Server lieferte Statuscode : "& httpStatus , _
vbCritical " Hotcell Update Error "
End If End Sub
5
. Geben Sie den Code unten, um die Funktion auf SendRequest Dokument schließen zu ermöglichen, die Form Werte über HTTP an den ASP.NET-Seite senden das wird die Datenbank mit den Formularfeldern Sie erstellt während all die Informationen unversehrt aus dem Word-Dokument Vorlage bevölkern :
Public Function SendRequest (URL As String , requestName As String , Paare As Variant ) As Integer Dim
strReq As String Dim
oHTTP As Object
' --- Das XMLHTTP Objekt benötigt Form Werte in dieser Form gesendet werden :
" ---" name1 = Wert1 & name2 = Wert2 & name3 = value3 " , etc
' --- wir sind bilden einer Anfrage von diesem Format hier
strReq = Join ( Paare , "&")
' --- Mit dem XMLHTTP Objekt, um die HTTP-Anfrage
On Error tun Resume Next
Set oHTTP = CreateObject (" Msxml2.XMLHTTP.3.0 " )
Wenn Err.Number < > 0 Then
Err.Raise Err.Number , " HotCellRequest ", _
" konnte nicht erstellt werden XMLHTTP Objekt, das durch HotCells erforderlich ist. "
Exit Function End If
On Error GoTo 0
On Error Resume Next
oHTTP.Open "POST" , URL , Falsch
Wenn Err.Number < > 0 Then
Err . Heben Err.Number , " HotCellRequest ", " gescheitert Hotcell zu verbinden " _
& URL & "" & _
Err.Description
Exit Function
End If
On Error GoTo 0
' --- Wir müssen diese Einstellung , wenn Absenden von Formulardaten
oHTTP.SetRequestHeader "Content-Type ", " application /x -www- form-urlencoded "
oHTTP.SetRequestHeader " X- SaHotCellRequest " , requestName
' --- schicken Sie die Anfrage
On Error Resume Next
oHTTP.Send CStr ( strReq )
Wenn Err.Number < > 0 Then
Err.Raise Err.Number , " HotCellRequest ", _
< p> " Hotcell scheiterte beim Senden von Daten zu" & URL & "" & _
Err.Description
Exit Function
End If On Error
GoTo 0
SendRequest = oHTTP.Status
' --- Clean up
Set oHTTP = Nothing End Function
