Hvordan kan jeg stille inn dette Gjør et felt i MS Word 2007 for tilgang i VBA?

Hvordan kan jeg stille inn dette Gjør et felt i MS Word 2007 for tilgang i VBA?


Microsoft Word 2007 har en funksjon som kalles feltkoder, som er korte dokumentkomponenter som kan generere innhold automatisk. Eksempler på feltkoder inneholde dato, klokkeslett og sidetall. Word skriptspråk, Visual Basic for Applications kan sette inn nye feltkoder og programmatisk endre eksisterende på alle måter som tilbys av Word standard brukergrensesnitt. Arbeide med Word feltkoder gjennom dette grensesnittet og VBA-kode kan utløse ideer til berikende statiske deler av dokumentene dine med dynamisk oppdaterte data.

Bruksanvisning

1 Opprett et nytt dokument i Word og klikk på "Insert" -menyen, etterfulgt av «Dato og tid" -ikonet i "Text" panel. Sjekk "Oppdater automatisk" boksen, og dobbeltklikk deretter noen dato format for å sette inn et felt kode som automatisk oppdaterer med dagens dato.

2 Trykk "Enter" for å starte en ny linje, deretter klikker du på "Hurtig deler" -ikonet i "Text" panel. Klikk "Field", og deretter dobbeltklikker du noen av de nevnte feltkoder (f.eks "Side") for å sette det inn i dokumentet.

3 Trykk "Alt-F9" for å vise den faktiske forekomsten av feltkoder. Denne handlingen vil gi deg en forhåndsvisning av hva din VBA-kode vises. Trykk "Alt-F9" igjen for å gå tilbake til feltkodene 'vanlig visningsmodus.

4 Trykk "Alt-F11" for å gå inn i Visual Basic integrert utviklingsmiljø. Klikk "Sett inn" og deretter "Module" for å lage et nytt vindu der du kan skrive inn VBA-kode.

5 Skriv inn følgende subroutine inn den nye koden vinduet:

Public Sub showFields ()

Dim i, str1

Selection.InsertAfter "Field indeks, tekst, resultatet"

For i = 1 Til ActiveDocument.Fields.Count

Selection.InsertAfter vbCr

Med ActiveDocument.Fields (i)

str1 = .Index & ", >>" og .Code.Text & "<<", og .Result.Text

Selection.InsertAfter str1

End With

Neste jeg

Selection.InsertAfter vbCr

End Sub

Dette subroutine gjentas gjennom hvert felt i dokumentet og skriver ut informasjon knyttet til den. VBA åpner feltene gjennom "Fields" eiendom av "ActiveDocument" objekt. Denne eiendommen, som i hovedsak er en liste over alle feltkoder, er en del av hvert enkelt dokument. Word oppdaterer listen hver gang en bruker legger til eller sletter et felt.

6 Trykk "Alt-F11" for å gå tilbake til dokumentet, og klikk deretter på en blank linje. Trykk "Alt-F8" for å vise en liste over VBA subrutiner (dvs. makroer). Dobbeltklikk på "Show Fields" element for å kjøre VBA koden du skrev i trinn 5. Koden kjører og oppretter en kommaseparert liste med informasjon for hvert felt du har satt inn i trinn 2.