Sõna kuvatakse ebaõiged VBA "Words" vara


Selle artikli Microsoft Word 97 jaoks leiate artiklinumbriga 159791 .

Selle artikli Microsoft Word 98 Macintosh Editioni jaoks leiate artiklinumbriga 183870 .

Selle artikli Microsoft Word 2000 jaoks leiate artiklinumbriga 212705 .

Sümptomid


Tagasi Wordi arvu Microsoft Wordi dokumendi Microsoft Visual Basic for Applications (VBA) sõna atribuudi kasutamisel tagastatakse sõnade arv olevat ebatäpne.

Põhjus


Microsoft pakub programmeerimisnäiteid ainult artikli illustreerimiseks ilma igasuguse otsese või kaudse garantiita. See hõlmab, kuid ei piirdu kaudseid garantiisid turustatavuse või kindlaks otstarbeks sobivusega. See artikkel eeldab, et olete demonstreeritava programmeerimiskeelega programmeerimise keel ning luua protseduuride ja silumiseks kasutatavate tööriistadega tuttav. Microsofti tugitehnikud võivad aidata mõne konkreetse protseduuri funktsiooni selgitada, kuid ei muuda nad neid näiteid lisafunktsioonide pakkumiseks ega Koosta vastavaid protseduure teie konkreetsetele nõuetele. Kohta lisateabe saamiseks klõpsake Microsofti teabebaasi (Knowledge Base) artikli kuvamiseks järgmist artiklinumbrit:

290140 kuidas juhtida Office XP programmide näidiskoodi teabebaasi (Knowledge Base) artikleid:

Sõnad atribuudi tagastab kogum, mis kujutab endast kõik sõnad vahemik, valimine või dokumendis. Kogu sisaldab kõik kirjavahemärgid ja lõigu märgid valiku või dokumenti.

Näiteks kui püüate määrata järgmised kolm tekstirida word count

See on x arv sõnu.
See on x arv sõnu.
See on x arv sõnu.
sõnad atribuudi abil järgmiselt.
Sub GetWords()
MsgBox ActiveDocument.Words.Count

End Sub

tulemuseks on 24 sõnu.

Lahendus


Ainult sõnade arv dokumendi või vahemik, välja arvatud lõigumärkide ja kirjavahemärgid, kasutage ComputeStatistics meetodi asemel sõnu atribuut.

ComputeStatistics meetod tagastab sõnade arv, mis ei sisalda lõigumärkide või kirjavahemärke. Näidisteksti abil jaotises "Põhjus" koodi ComputeStatistics meetod tagastab arvu 18 sõnad:

Sub GetWords()
MsgBox ActiveDocument.Range.ComputeStatistics(wdStatisticWords)

End Sub

Lisateabe saamiseks klõpsake Microsofti teabebaasi artikli kuvamiseks järgmist artiklinumbrit:

241333 Word count makro lugema sõnu valikus saadaval

Küsige nõu Visual Basic for Applications kohta lisateabe saamiseks klõpsake Microsofti teabebaasi (Knowledge Base) artikli kuvamiseks järgmist artiklinumbrit:

226118 loend, mis on saadaval programmeerimiseks Visual Basic for Applications programmeerimine