Olika uppgifter kan utföras med ASP , såsom webbsida skapande och mall generation . Eftersom Microsoft utvecklat ASP.NET programmeringsspråk , är det kompatibelt med andra produkter från Microsoft , till exempel Excel och program Word . ASP är inte svårt att ställa in och använda eftersom ansökan motor gör allt , från efterbehandling jobbet och bearbetning koden för att skicka koden till användarens webbläsare för genomförandet . Instruktioner
1
Starta Microsoft Word och klicka på " File " i menyraden . Klicka på " Spara som " från drop -down menyn . När dialogrutan Spara som dyker upp, klicka på " svarta ned - pil " och välj " Dokumentmall ( * . Dot ) " från rullgardinsmenyn som din dokumentformat . Denna mall kommer att lastas med olika avancerade Microsoft Word komponenter, såsom grafik och teckningar, kopplingsinstruktioner , text och check - box formulärfält, ett kapslat sidfot och dynamisk VBA -koder . Välj
2
" Utsikt från menyraden och välj " Verktygsfält " från rullgardinsmenyn . i verktygsfältet fly -out -menyn , klicka på " Blanketter ", och sedan lägga till ett " fält textform " till ditt dokument .
Högerklicka på " textform fältet " du skapade och välj "Egenskaper" för att få information om bokmärke . Associera ett namn i fältet Bokmärke att erhålla värdet av Merge Field du skapar senare . Ställ " Type " till vanlig text . utgången ska vara [ ____ ] .
3
Välj " Infoga " i menyraden , välj sedan " Koppla " kategorin och " MERGEFIELD " fältnamn . Ange namnet som du har angett att din text Form Field bokmärke tidigare efter texten utgången bör vara [ Bookmark namn ] också , ingång den efterföljande VBA-kod för att skydda dina MailMerge fält från att raderas i din mall av andra användare " MERGEFIELD . " . :
Sub Protect ( ) katalog
"
" skydda Macro
"
ActiveDocument.Protect wdAllowOnlyFormFields , Sant
End Sub
4
Infoga följande kod för att förbättra ditt dokument funktionalitet med makron . Denna demo ger dina användare med många avancerade funktioner på serversidan databasen , och det dessutom samla och lagra värden från formulärfälten du skapade för att användas i SendRequest funktionen :
Public Sub Update ( ) katalog
Dim yn som VbMsgBoxResult
yn = MsgBox ( " vill du uppdatera databasen med dina nya mottagarländer val ? " , vbYesNo , " Update Database ? " ) katalog p Om yn = vbNo Sedan
Exit Sub
End If
Dim vals ( 4 ) As Variant
Dim Status As Integer
p Om ActiveDocument.FormFields ( " chkA " ) . CheckBox.Value = sant då
Status = 1
ElseIf ActiveDocument.FormFields ( " chkB " ) . CheckBox.Value = sant då
Status = 2 Review
ElseIf ActiveDocument.FormFields ( " chkC " ) . CheckBox.Value = sant då
Status = 3 bilder
End If
vals ( 0 ) = " BeneficiaryStatus = " & Status
vals ( 1 ) = " Primary1 = " & Trim ( ActiveDocument.FormFields ( " Primary1 " ) . resultat)
vals ( 2 ) =" Primary2 = " & Trim ( ActiveDocument.FormFields ( " Primary2 " ) . Resultat ) katalog
vals ( 3 ) = " Contingent1 =" & Trim ( ActiveDocument.FormFields ( " Contingent1 " ) . resultat)
vals ( 4 ) = " Contingent2 =" & Trim ( ActiveDocument.FormFields ( " Contingent2 " ) . resultat ) katalog
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 ) katalog
Om Err.Number < > 0 Then
MsgBox "Fel vid sändning HotCell begäran . Kunde inte kontakta server sidan uppdatering av databasen " & _
vbCrLf & " Detaljer : . " & Err.Description , _
vbCritical , " HotCell misslyckades "
Sub
Exit
End If
On Error GoTo 0
p Om httpStatus = 200 Då
MsgBox " Du har lämnat din mottagare val . " , _
vbOKOnly , " HotCell uppdatering lyckades "
Else
MsgBox " HotCell uppdatering av databasen lyckades inte. Den serversidan uppdatering av databasen " & _
" sidan returnerade ett fel . Servern returnerade status code : " & httpStatus , _
vbCritical , " HotCell Update Error "
End If
End Sub
5
. Mata in koden nedan för att aktivera SendRequest funktionen på dokument nära skicka formuläret värdena via HTTP till ASP.NET-sida Detta kommer att befolka databasen med formulärfält du skapade samtidigt hålla all information intakt från Word- dokument mall :
Public Function SendRequest ( URL As String , requestname As String , parvis vid Variant ) As Integer
Dim strReq As String
Dim oHTTP As Object
" --- Den XMLHTTP objektet behöver bildar värden som ska skickas i detta formulär :
" --- " name1 = värde1 & namn2 = värde2 & NAME3 = value3 " , etc
" --- vi är bildar en begäran av detta format här
strReq = join ( par , " & " ) katalog
" --- Använd XMLHTTP objektet att göra HTTP-begäran
On Error Resume Next
Set oHTTP = CreateObject ( " Msxml2.XMLHTTP.3.0 " ) katalog p Om Err.Number < > 0 Then
Err.Raise Err.Number , " HotCellRequest " , _
" Kunde inte skapa XMLHTTP objekt som krävs av HotCells . "
Exit Function
End If
On Error GoTo 0
On Error Resume Next
oHTTP.Open " POST " , URL , False
p Om Err.Number < > 0 Then
Err . Höj Err.Number , " HotCellRequest " , " misslyckades HotCell att ansluta till " _
& URL & " " & _
Err.Description
Exit Function
End If
On Error GoTo 0
" --- Vi måste ställa in detta varje gång att skicka data
oHTTP.SetRequestHeader " Content - Type " , " application /x - www-form - urlencoded "
oHTTP.SetRequestHeader " x - SaHotCellRequest " , requestname
" --- Skicka begäran
On Error Resume Next
oHTTP.Send CStr ( strReq ) katalog p Om Err.Number < > 0 Then
Err.Raise Err.Number , " HotCellRequest " , _
" HotCell misslyckades när data skickas till " & URL & " " & _
Err.Description
Exit Function
End If
On Error GoTo 0
SendRequest = oHTTP.Status
' --- Städa
Set oHTTP = Nothing
End Function
