Optælling Fields i et dokument

Barry har en temmelig stor Word dokument (ca. 50 sider), som indeholder hundreder af XE felter anvendes til at bygge et indeks. Han undrer sig, hvis der er en måde at producere en optælling af, hvor mange XE felter findes i dokumentet, der ikke involverer tælle dem ved hånden.

Der er et par måder, du kan nærme sig dette behov. Den første er til at stole på Word Find og Erstat kapaciteter. Her er de enkle trin:

  1. Vælg Indstillinger i menuen Funktioner. Word viser dialogboksen Indstillinger.
  2. Sørg for, at fanen Vis vises. (Se figur 1.)

    Optælling Fields i et dokument

    Figur 1. Se fanen Indstillinger i dialogboksen.

  3. Sørg for, at skjult tekst vises i dokumentet. (Bare sørg for, at enten den skjulte eller Alle afkrydsningsfelterne er valgt.)
  4. Klik på OK.
  5. Tryk på Ctrl + H. Word viser fanen Find Erstat og Erstat i dialogboksen. (Se figur 2.)

    Optælling Fields i et dokument

    Figur 2. Erstat fanen Søg og erstat dialogboksen.

  6. I feltet Søg indtaste "^ 19 XE" (uden gåseøjnene).
  7. I feltet Erstat med indtaste "^ &" (igen, uden gåseøjnene).
  8. Klik på Erstat alle.

Word finder alle XE felter og viser en optælling af, hvor mange udskiftninger blev foretaget. Dette er den ønskede tæller. Koden ^ 19 (i trin 6) er tegnet kode for åbningen feltet bandage, der angiver kun felter skal matches. Du kan, hvis det ønskes, nu slukke for visning af skjult tekst.

Der er et par ting at bemærke om denne sekvens af trin. For det første kan nogle folk tror, ​​at der er et skridt mangler i ovenstående: trykke på Alt + F9 for viser alle feltkoderne i dokumentet. Faktisk er dette trin ikke nødvendigt, fordi XE felter altid vises, så længe skjult tekst er synlig. Med andre ord, er at trykke på Alt + F9 ikke påvirke deres display ene eller den anden måde. Men hvis du regner en anden end XE felt felt, vil du ønsker at få vist feltkoderne før gør trinene.

En anden ting at bemærke er, at Word er temmelig flink, da det kommer til antallet af pladser, der kan følge en åbning felt tandbøjle. Ovenstående trin kun finder XE områder, hvor et enkelt mellemrum adskiller åbningen feltet tandbøjle (^ 19) og XE kode. Hvis dine marker indeholder flere mellemrum (eller uden mellemrum), så de forekomster af feltet vil ikke blive talt. Af denne grund, kan du bare søge efter XE (uden ^ 19 kode og rummet) og tænd for afkrydsningsfeltet Match sag. Dette vil arbejde, så længe der ikke er andre forekomster af aktiverede XE tegn i dokumentet.

Der er også nogle simple makroer, du kan bruge til at tælle XE felter. Hvis de eneste felter i dit dokument er XE felterne, så makroen er meget enkel, ja:

Sub CountFields ()
Dim iCnt As Integer

iCnt = ActiveDocument.Fields.Count
MsgBox "Der er" & iCnt & "felter i dokumentet."
End Sub

Denne fremgangsmåde vil ikke arbejde, men hvis der er andre felter i dit dokument. Husk-felter bruges til at rent faktisk at placere dit indeks i et dokument. Så hvis du bruger XE felter til opslagsord, er du sandsynligvis at bruge et felt til at indsætte den aktuelle indeks selv. Og, selvfølgelig, der kunne være mange andre felter i dit dokument til andre formål. I denne sandsynlighed, din makro nødt til at undersøge hvert felt og afgøre, om det er en XE felt eller ej.

Sub CountXEFields ()
Dim iCnt As Integer
Dim f Som Field

For hver f I ActiveDocument.Fields
Hvis f.Type = wdFieldIndexEntry Så iCnt = iCnt + 1
Næste
MsgBox "Der er" & iCnt & "XE felter i dokumentet."
End Sub

Denne makro kontrollerer Type ejendom hvert felt objekt for at sikre, at det er en XE felt. Hvis det er tilfældet, er det tilføjet til optælling og derefter tæller vises i slutningen af ​​makroen.

WordTips er din kilde til omkostningseffektiv Microsoft Word træning. (Microsoft Word er det mest populære tekstbehandlingsprogram i verden.) Dette tip (11752) gælder for Microsoft Word 97, 2000, 2002, og 2003. Du kan finde en version af dette tip til menufaner Word (Word 2007 og nyere) her: Tælle Fields i et dokument.


© 2019 Zajacperrone.com | Contact us: webmaster# zajacperrone.com