Sommario
Conta le parole nella selezione
Questa macro Word VBA conterà il numero di parole nella selezione. Se non viene effettuata alcuna selezione, conterà il numero di parole nell'intero documento.
Sub WordCount() 'conta l'intero documento, quindi il conteggio delle parole per la selezione (se è selezionato qualcosa) Dim nWordsCount As Long Dim nCharCount As Long nWordsCount = ActiveDocument.Range.ComputeStatistics(wdStatisticWords) nCharCount = ActiveDocument.Range.ComputeStatistics"M L'intero documento contiene: " & vbCrLf & nWordsCount & " parole e" & vbCrLf & _ nCharCount & " caratteri senza spazi", , "Conteggio parole" 'ora mostra il conteggio delle parole per il testo selezionato If Selection.Words.Count >= 1 And Selection.Type wdSelectionIP Then nWordsCount = Selection.Range.ComputeStatistics(wdStatisticWords) nCharCount = Selection.Range.ComputeStatistics(wdStatisticCharacters) MsgBox "Il testo selezionato contiene: " & vbCrLf & nWordsCount & " parole e" & vbCr & caratteri spazi", , "Conteggio parole (selezione)" End If End Sub
