Ser etter ord og uttrykk

June 6  by Eliza

David er en lærer som tildeler sine elever en serie på rundt tjue ord og uttrykk som de må bruke i en komposisjon. Hvert ord eller uttrykk må brukes minst én gang. Studentene får ett poeng for hver gang de bruker en av ord eller setninger, selv om ingenting ekstra for duplikater. David er på utkikk etter en enkel måte å markere sitt arbeid, kanskje med en makro som søker for hvert ord og uttrykk og skaper en slags rekord for deres bruk. Dave ønske er for Word å gjøre søkingen og telling, slik at han kan fokusere sin energi på å vurdere kvaliteten på sammensetningen.

Hvis du ønsker å manuelt finne ut hvor mange forekomster det er av et bestemt ord eller uttrykk, kan du bruke Word søkefunksjon:

  1. Trykk Ctrl + F. Word viser Kategorien Finn av Finn og erstatt dialogboksen.
  2. I boksen Finn, taster inn ordet eller uttrykket du vil finne.
  3. Klikk på Mer-knappen, hvis den er tilgjengelig.
  4. Hvis du søker etter et enkelt ord, klikker du på Finn hele ord i boksen.
  5. Klikker du Uthev Alle elementer funnet i boksen.
  6. Klikk Finn alle.

Word viser deg, i dialogboksen, hvor mange forekomster det ligger i ordet eller uttrykket. Denne teknikken, mens hendig, mister noe av sin sjarm hvis du trenger å gjenta det for tjue ord og uttrykk i trettifem ulike student komposisjoner. Faktisk, er en makro en mer praktisk måte.

Det ville være veldig praktisk hvis antall forekomster som vises i Søk og erstatt dialogboksen var tilgjengelig via VBA. Så vidt jeg har kunnet finne ut, er denne verdien ikke er tilgjengelig. Det betyr at du må stole på gjentatte søke og telling i makroen selv. Ett godt eksempel på hvordan dette kan gjøres er funnet i Microsoft Knowledge Base:

http://support.microsoft.com/kb/240157

Koden i denne siden kan endres, relativt lett, for å søke etter en serie av ord eller fraser og vise alle resultatene på en gang. En annen ganske unik tilnærming er å reversere forutsetninger om student komposisjoner: anta at de bruker hver av ord eller setninger (de starter med en score på 20 hvis det er tjue ord og uttrykk) og bare trekke poeng hvis de ikke bruker en av dem.

Sub Scorecard ()
Dim iScore As Integer
Dim iTopScore As Integer
Dim Word Som Variant
Dim i As Integer
Dim sUnused As String

'Skriv inn ord eller setninger i rekken nedenfor;
'Hvert ord eller uttrykk i anførselstegn og
'Atskilt med komma
Ordliste = Array ("Mr.", "Gelé", "krympe", _
"Riktig", "fix", "sammensatt", "høyt og tørt")

'Teller antall ord i matrisen
iTopScore = Cint (UBound (ordliste)) + 1
iScore = iTopScore

'Teller antall "savner"
sUnused = ""
For i = 1 Til iTopScore
Med Selection.Find
.forward = True
.Wrap = WdFindContinue
.Format = False
.MatchCase = False
.MatchAllWordForms = False
.MatchWholeWord = True
.Execute FindText: = ordliste (i - 1)
Avslutt med
Hvis Selection.Find.Found = False Deretter
iScore = iScore - 1
sUnused = sUnused & vbCrLf & ordliste (i - 1)
End If
Neste jeg

'Viser poengsummen
Hvis iScore = iTopScore Deretter
sUnused = "Alle ord og uttrykk ble brukt."
Else
sUnused = "Følgende ord og uttrykk" & _
"Ble ikke brukt:" & sUnused
End If
sUnused = vbCrLf & vbCrLf & sUnused
MsgBox Tekst: = "Stillingen er" & iScore & _
"Av" & iTopScore & sUnused, Tittel: "Hva er det Score" =
End Sub

Makroen viser en poengsum for sammensetning og også viser noen av ord eller setninger som ikke ble brukt i sammensetningen.

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (333) gjelder for Microsoft Word 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Word (Word 2007 og senere) her: Ser etter ord og uttrykk.