forskellige opgaver kan udføres med ASP, såsom webside skabelse og skabelon generation. Da Microsoft udviklet ASP.NET programmeringssprog , er det kompatibelt med andre Microsoft- produkter, såsom Excel og Word -programmer. ASP er ikke svært at sætte op og bruge , fordi ansøgningen motor gør alt , lige fra efterbehandling jobbet og forarbejdning koden til at sende koden til brugerens browser for gennemførelsen. Instruktioner
1

Start Microsoft Word og klik på "File" på menulinjen . Klik på "Gem som" fra drop- down menu. Når dialogboksen Gem som popper op, klikker den "sorte pil nedad " og vælg " Dokumentskabelon (*. Prik) " fra drop -down listen , som dit dokument format. Denne skabelon vil blive fyldt med forskellige avancerede Microsoft Word komponenter, såsom grafik og tegning elementer, fletfelter , tekst og afkrydsningsfeltet formularfelter, en indlejret footer og dynamisk VBA koder.
2

Vælg " Udsigt fra menulinjen, og vælg" Værktøjslinjer "fra drop -down menu. i værktøjslinjen flue -menu på klikke på" Formularer "og derefter tilføje et" tekst form field " til dokumentet.
< p > Højreklik på " tekst form field" du oprettede, og vælg "Egenskaber" for at få bogmærket information. Knyt et navn i bogmærke feltet for at få værdien af ​​den Merge Field vil du skabe senere. Sæt "Type" til almindelig tekst . udgangen skal være [ ____ ] .
3

Vælg "Indsæt" i menulinjen , og vælg derefter " Brevfletning " kategorien og " MERGEFIELD " feltet navn. Indtast det navn, du har udpeget til din tekstformularfeltet bogmærke tidligere efter teksten udgangen skal være [ bogmærke Name] Også indtaste efterfølgende VBA-kode til at beskytte dine MailMerge felter fra at blive slettet i din skabelon af andre brugere " MERGEFIELD ". . : Salg

Sub Beskyt ()

'

»beskytte Macro

'

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

Indsæt følgende kode til at forbedre dit dokument funktionalitet med makroer. Denne demo giver dine brugere med mange avancerede funktioner på server-side -database, og det også indsamle og opbevare værdierne fra formularfelterne du skabt til at blive brugt i SendRequest funktionen :

Public Sub Update ( )

Dim yn Som VbMsgBoxResult

yn = MsgBox ( "Ønsker du at opdatere databasen med dine nye modtagerlande valg ? " vbYesNo , " Opdater database ? ")
p Hvis yn = vbNo Så

Exit Sub

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

Dim status As Integer
p Hvis ActiveDocument.FormFields ( " chkA "). CheckBox.Value = Sand Derefter

status = 1 < br >

EllersHvis ActiveDocument.FormFields ( " chkB "). CheckBox.Value = Sand Derefter

status = 2

EllersHvis ActiveDocument.FormFields ( " chkC "). CheckBox.Value = sandt, så

status = 3 fotos

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 "). 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 " Fejl ved afsendelse HotCell anmodning. Kunne ikke kontakte serveren database opdatering side "& _

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

vbCritical , " HotCell Request Failed "

Exit Sub

End If

Fejl GoTo 0
p Hvis httpstatus = 200 Så

MsgBox " Du har sendt dit Modtager valg . " _ < br >

vbOKOnly , " HotCell opdatering lykkedes "

Else

MsgBox " HotCell database opdatering lykkedes ikke. Server-side database opdatering "& _

" side returnerede en fejl . Serveren returnerede statuskode : "& httpstatus , _

vbCritical , " HotCell Update Fejl "

End If

End Sub
5

. input koden nedenfor til at aktivere SendRequest funktionen på dokument tæt sende formularen værdier via HTTP til ASP.NET-side Dette vil befolke databasen med formularfelterne du oprettede samtidig holde alle de oplysninger intakt fra Word-dokumentet skabelon: < br >

Public Function SendRequest (URL As String , requestname As String , eventuelt kombineret Variant ) As Integer

Dim strReq As String

Dim oHTTP As Object

' --- Den XMLHTTP objekt behov danner værdier, der skal sendes i denne form : Hej

' --- " name1 = værdi1 & name2 = værdi2 & NAME3 = value3 " osv.

' --- vi er danner en anmodning af denne format her

strReq = Deltag ( par, "&" )

' --- Brug XMLHTTP objektet til at gøre det HTTP-anmodning

On Error Resume Next

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

Err.Raise Err.Number , " HotCellRequest " _

"Kunne ikke oprette XMLHTTP objekt , som kræves af HotCells . "

Exit Function

End If

On Error GoTo 0

Fejl Resume Next

oHTTP.Open " POST " , URL, False
p Hvis Err.Number < > 0 Then

Err . Raise Err.Number " HotCellRequest ", " mislykkedes HotCell at forbinde til " _

& URL & "" & _

Err.Description

Exit Function

End If

Fejl GoTo 0

' --- Vi er nødt til at indstille dette, når indsendelse formulardata

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

oHTTP.SetRequestHeader " X - SaHotCellRequest " requestname

' --- Send anmodningen

On Error Resume Next < br >

oHTTP.Send CStr ( strReq )
p Hvis Err.Number < > 0 Then

Err.Raise Err.Number " HotCellRequest " , _
< p > " HotCell mislykkedes , når du sender data til" & URL & "" & _

Err.Description

Exit Function

End If

On Error GoTo 0

SendRequest = oHTTP.Status

' --- rydde op

Set oHTTP = Nothing

End Function
< br >