Ulike oppgaver kan utføres med ASP , som websideoppretting og mal generasjon. Siden Microsoft utviklet ASP.NET programmeringsspråk, er det sammen med andre Microsoft-produkter , for eksempel Excel -og Word- programmer. ASP er ikke vanskelig å sette opp og bruke, fordi programmets motor gjør alt , fra å fullføre jobben og bearbeiding koden for å sende koden til brukerens nettleser for gjennomføring. Instruksjoner
en

start Microsoft Word og klikk på " File" på menylinjen . Klikk "Lagre som " fra drop -down menyen. Når dialogboksen Lagre som dukker opp, klikk på "black ned pil som peker mot " og velg " Dokument mal (* . Dot ) " fra drop -down liste som dokumentformat . Denne malen vil bli lastet med ulike avanserte Microsoft Word- komponenter, for eksempel grafikk og tegning elementer, flettefelt, tekst og check- box skjemafelt, en nestet bunntekst og dynamisk VBA -koder .
2

Velg " Utsikt fra menylinjen og velg " Verktøylinjer "fra drop -down menyen . i verktøylinjen er fly-out menyen , klikk på" Skjemaer ", og deretter legge til en" tekstform field " i dokumentet .
< p > Høyreklikk på " tekstform feltet " du opprettet, og velg " Properties" for å innhente informasjon om et bokmerke . Knytt et navn i bokmerke -feltet for å få verdien av flettefelt du vil lage senere. Still "Type" til vanlig tekst . utgangen skal være [ ____ ] .
3

Velg "Insert" fra menylinjen , velg deretter "Mail Merge "-kategorien og " MERGEFIELD " feltnavnet. skriv inn navnet du utpekt til tekst skjemafelt bokmerke tidligere etter teksten utgangen skal være [ Bookmark navn] også innspill lykkes VBA -kode for å beskytte dine MailMerge felt fra å bli slettet i malen av andre brukere " MERGEFIELD . " . :

Sub Protect ( )

'

"beskytte Macro

'

ActiveDocument.Protect wdAllowOnlyFormFields , Sann
< p > End Sub
4

Sett inn følgende kode for å forbedre dokumentet funksjonalitet med makroer . Denne demoen gir brukerne med mange avanserte funksjoner på serversiden database , og det også samle og lagre verdiene fra skjemafeltene du opprettet for å brukes i SendRequest funksjon :

Public Sub Update ( )

Dim yn Som VbMsgBoxResult

yn = MsgBox ( " vil du oppdatere databasen med dine nye mottakerlandene valg ? " , vbYesNo , " Update Database ? ")
p Hvis yn = vbNo Deretter

Exit Sub

End If
< p > Dim vals ( 4 ) Som Variant

Dim Status As Integer
p Hvis ActiveDocument.FormFields ( " chkA ") . CheckBox.Value = True Deretter

Status = 1

ElseIf ActiveDocument.FormFields ( " chkB ") . CheckBox.Value = True Deretter

Status = 2

ElseIf ActiveDocument.FormFields ( " chkC ") . CheckBox.Value = sant Deretter

Status = 3

End If

vals ( 0 ) = " BeneficiaryStatus = " & Status

vals ( 1 ) = " Primary1 = "& Trim ( ActiveDocument.FormFields ( " Primary1 ") . Resultat)

vals ( 2 ) =" Primary2 = "& Trim ( ActiveDocument.FormFields ( " Primary2 ") . Resultat)

vals ( 3 ) = " Contingent1 = " & Trim ( ActiveDocument.FormFields ( " Contingent1 ") . Resultat)

vals ( 4 ) = " Contingent2 = " & Trim ( ActiveDocument.FormFields ( " Contingent2 ") . resultat)

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> Hvis err.number < > 0 Then

MsgBox "Feil ved sending HotCell forespørsel. Kunne ikke kontakte server database update side "& _

vbCrLf &" Details : . "& Err.Description , _

vbCritical , " HotCell Request Failed "

Exit Sub

End If

On Error GoTo 0
p Hvis httpstatus = 200 Så

MsgBox " Du har lagt inn dine Betalingsmottakers valg . ", _

vbOKOnly , " HotCell Update Etterfølger "

Else

MsgBox " The HotCell database oppdatering lyktes ikke . The server-side database update "& _

" side returnerte en feil . Tjeneren returnerte statuskode : "& httpstatus , _

vbCritical , " HotCell Oppdatere Feil "

End If

End Sub
5

. Input koden nedenfor til å aktivere SendRequest funksjonen på dokumentet tett sende skjemaet verdiene via HTTP til ASP.NET side Dette vil fylle databasen med feltene du opprettet mens du holder all informasjon intakt fra Word-dokumentet mal:

Public Function SendRequest ( URL As String , requestname As String , parene som variant ) As Integer

Dim strReq As String

Dim oHTTP som objekt

' --- Den XMLHTTP objektet må danne verdier som skal sendes i dette skjemaet : en

' --- " navn1 = verdi1 & navn2 = value2 & NAME3 = verdi3 " , etc

' --- vi er danner en forespørsel fra det formatet her

strReq = Join ( par, " &" )

' --- Bruk XMLHTTP objekt å gjøre HTTP-forespørsel

On Error Resume Next

Set oHTTP = CreateObject ( " Msxml2.XMLHTTP.3.0 ")
p Hvis err.number < > 0 Then

Err.Raise err.number , " HotCellRequest ", _

" Kunne ikke opprette XMLHTTP objekt som kreves av HotCells . "

Exit Function

End If

On Error GoTo 0

On Error Resume Next

oHTTP.Open " POST " , URL , False
p Hvis err.number < > 0 Then

Err . Hev err.number , " HotCellRequest " , "feilet HotCell å koble til " _

& URL & " " & _

err.Description

Exit Function

End If

On Error GoTo 0

' --- Vi må sette dette når du sender skjemadata

oHTTP.SetRequestHeader " Content -Type ", " application /x -www - skjema - urlencoded "

oHTTP.SetRequestHeader " x - SaHotCellRequest " , requestname

' --- Send forespørsel

On Error Resume Next

oHTTP.Send CStr ( strReq )
p Hvis err.number < > 0 Then

Err.Raise err.number , " HotCellRequest ", _
< p > " HotCell sviktet under sending av data til" & URL & " " & _

err.Description

Exit Function

End If

On Error GoTo 0

SendRequest = oHTTP.Status

' --- Rydd opp

Sett oHTTP = Ingenting

End Function