Telle tegn i tekstbokser

March 3  by Eliza

Hvis du har et dokument som inneholder tekst i ulike tekstbokser, bør du forstå at hvis du gjør en ordtelling, ikke Word inkludere ordene i tekstboksene i ordet telle den returnerer. Hvis du ønsker å bare vite hvor mange ord i en tekstboks, er det en vei rundt dette: Bare velg tekstboksen hvis ord du ønsker å telle før du starter Word Count funksjon. Ord så pliktoppfyllende teller bare ordene i tekstboksen, ignorerer resten av dokumentet.

Det er en tid da dette select-før-count teknikken ikke vil fungere, men. Hvis du har flere tekstbokser som inneholder ord, og disse tekstboksene er gruppert, deretter Word Count funksjonen ikke vil anerkjenne dem som "tellbar" hvis du velger gruppen. Med andre ord, å telle tegn i tekstboksene som utgjør gruppen, må du først løse opp gruppen og deretter teller hver tekstboks.

Selvsagt kan dette få kjedelig å gjøre om igjen og om igjen. En måte å omgå dette på er å bruke en makro som utfører de samme trinnene for deg. Følgende makro, TextBoxCount, skritt gjennom alle figurene i dokumentet. Hvis de er gruppert, så er de automatisk oppheves. Den utfører deretter en ordtelling på hver tekstboksen, og returnerer en dialogboks som angir antall ord og tegn i tekstboksene (samlet) og antall ord og tegn i hele dokumentet, inkludert tekstboksene.

Sub TextBoxCount ()
Dim lngTBWords As Long
Dim lngTBChars As Long
Dim lngDocWords As Long
Dim lngDocChars As Long
Dim shpTemp Som Shape
Dim wcTemp Som Dialog
Dim bDone Som boolsk

Application.ScreenUpdating = False

Gjøre
bDone = True
For Hver shpTemp I ActiveDocument.Shapes
Hvis shpTemp.Type = msoGroup Deretter
shpTemp.Ungroup
bDone = False
End If
Neste shpTemp
Loop Inntil bDone

Kom i teller i hoveddokumentet
Selection.HomeKey Enhet: = wdStory
Satt wcTemp = Dialoger (wdDialogToolsWordCount)
wcTemp.Update
wcTemp.Execute
lngDocWords = wcTemp.Words
lngDocChars = wcTemp.Characters

«Gå gjennom figurer og legge teller
lngTBWords = 0
lngTBChars = 0
For Hver shpTemp I ActiveDocument.Shapes
shpTemp.Select
wcTemp.Execute
lngTBWords = lngTBWords + wcTemp.Words
lngTBChars = lngTBChars + wcTemp.Characters
Neste shpTemp
lngDocWords = lngDocWords + lngTBWords
lngDocChars = lngDocChars + lngTBChars

Application.ScreenUpdating = True
MsgBox Str (ActiveDocument.Shapes.Count) _
& "tekstbokser funnet med" & vbCr _
& Str (lngTBWords) og "ord (s) og" & vbCr _
& Str (lngTBChars) og "tegn" og vbCr & vbCr _
& "I den totale dokumentet er det" & vbCr _
& Str (lngDocWords) og "ord (s) og" & vbCr _
& Str (lngDocChars) og "tegn"
End Sub

Husk at denne makroen opphever noen gruppering tidligere har gjort i dokumentet. Av denne grunn, kan det være lurt å kjøre makroen etter arkiverer dokumentet, og deretter kaste dokumentet (legg det fra disk) etter å få din opptelling.

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (1839) gjelder for Microsoft Word 97, 2000, 2002, og 2003.