Sadržaj
Broji riječi u izboru
Ova Word VBA makronaredba odbrojavat će broj riječi u odabiru. Ako nema odabira, brojat će se broj riječi u cijelom dokumentu.
Sub WordCount () 'broji cijeli dokument, a zatim Count word za odabir (ako je nešto odabrano) Dim nWordsCount As Long Dim nCharCount As Long nWordsCount = ActiveDocument.Range.ComputeStatistics (wdStatisticWords) nCharCount = ActiveDocument.Range.ComputeStatistic Cijeli dokument sadrži: "& vbCrLf & nWordsCount &" riječi i "& vbCrLf & _ nCharCount &" znakovi bez razmaka ",," Broj riječi "" sada prikazuju broj riječi za odabrani tekst If Selection.Words.Count> = 1 I Selection.Type wdSelectionIP Zatim nWordsCount = Selection.Range.ComputeStatistics (wdStatisticWords) nCharCount = Selection.Range.ComputeStatistics (wdStatisticCharacters) MsgBox "Odabrani tekst sadrži:" & vbCrLf & nBr & nWords razmaci "," Broj riječi (odabir) "Završi ako završi podm
